№1. представить фрагмент алгоритма в виде блок-схемы. составить программу, соответствующую данной блок-схеме.
a: = 18
b: = 10
a: = b - a/3
b: = 12/a*2
№2.
представить фрагмент алгоритма в виде блок-схемы. составить программу, соответствующую данной блок-схеме.
a: =3
b: =10
a: =b - 24/a
b: =12/a*3
№ 3. представить фрагмент алгоритма в виде блок-схемы. составить программу, соответствующую данной блок-схеме.
a: =50
b: =33
a: =(b-11)/2*7
b: =2*(a-b)+3*(a+b)
№ 4. представить фрагмент алгоритма в виде блок-схемы. составить программу, соответствующую данной блок-схеме.
a: =24
b: =12
a: =a*b/32
b: =8*a+4*b
ОбъясОтличник
program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
Подробнее - на -
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;