Составить программу и блок-схему для вычисления суммы площадей всех квадратов, стороны которых изменяются в цикле от 1 до 10. В отчет включить текст программ на Паскале, реакции ЭВМ.
1)var a,b,c,a1,b1,c1,s:integer; begin writeln('Введите количество часов в первом моменте времени'); readln(a); writeln('Введите количество минут в первом моменте времени'); readln(b); writeln('Введите количество секунд в первом моменте времени'); readln(c); writeln('Введите количество часов во втором моменте времени'); readln(a1); writeln('Введите количество минут во втором моменте времени'); readln(b1); writeln('Введите количество секунд во втором моменте времени'); readln(c1); s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1); writeln(s,' секунд'); end. 2)var a,b:integer; s:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); if (a+b) mod 2 =0 then s:=a*b else s:= a/b; writeln(s); end. 3)var b,s,n:real; begin writeln('Введите количество часов'); readln(n); n:=n/3; s:=2*power(2,(n-1)); writeln(s,' амёб'); end. 4)var a:array[1..7]of integer; i:integer; begin for i:=1 to 7 do begin a[i]:=random(11); writeln('a[',i,']= ',a[i]); end; end.
использовать Чертежник
алг буквы
нач
е
п
б
ч
ц
ш
кон
алг е
нач
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (2,0)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (1,-4)
кон
алг п
нач
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (2,0)
сместиться на вектор (0,-4)
поднять перо
сместиться на вектор (1,0)
кон
алг б
нач
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
сместиться на вектор (0,4)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (1,0)
кон
алг ч
нач
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (0,-4)
поднять перо
сместиться на вектор (1,4)
кон
алг ц
нач
опустить перо
сместиться на вектор (0,-4)
сместиться на вектор (2,0)
сместиться на вектор (0,4)
сместиться на вектор (0,-4)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
поднять перо
сместиться на вектор (1,5)
кон
алг ш
нач
опустить перо
сместиться на вектор (0,-4)
сместиться на вектор (1,0)
сместиться на вектор (0,4)
сместиться на вектор (0,-4)
сместиться на вектор (1,0)
сместиться на вектор (0,4)
кон