N litre girilen bir tankerde ki suyu girilen 10 adet bidonlara doldurulur ve çıktı olarak kaç tane bidon doldu kaç tanesi yarım dolu ve kaç tanesi boş olduğunu gösteren programcık
var
i,tanker:integer;
bidonlar: array[1..10] of integer;
begin
write('Tankerdeki litre:'); readln(tanker);
for i:=1 to 10 do begin
write(i,'. bidon litresi: '); readln(bidonlar[i]);
end;
for i:=1 to 10 do begin
if (tanker < bidonlar[i]) and (tanker > 0) then begin
writeln(i,'. bidon olan ', bidonlar[i],' litre biraz doludur');
tanker:=tanker- bidonlar[i];
end;
if tanker > = bidonlar[i] then begin
writeln(i,'. bidon olan ', bidonlar[i],' litre tam doludur');
tanker:=tanker- bidonlar[i];
end;
if tanker<1 then
writeln(i,'. bidon olan ', bidonlar[i],' litre Boştur');
end;
readln;
end.
Kaynak: http://www.tekno-logy.com/pascal-bidon-sorusu-ve-cozumu.html
