Задание по информатике ! Очень . Заполни пропуски в программе подходящими командами (выбрать «а» или «б»), используя вызовы двух вс алгоритмов, чтобы исполнитель Чертёжник нарисовал следующий рисунок: (фото)
алг рыбка нач сместиться в точку (2, 3) опустить перо а) элемент 1; б) элемент 2 а) поднять перо; б) опустить перо сместиться на вектор (0, —2) а) поднять перо; б) опустить перо сместиться на вектор (2, 0) а) элемент 1; б) элемент 2 сместиться на вектор (—2, 0) поднять перо сместиться в точку (6, 3) опустить перо а) элемент 1; б) элемент 2 сместиться на вектор (1, 1) а) поднять перо; б) опустить перо сместиться в точку (7, 4) опустить перо а) элемент 1; б) элемент 2 поднять перо сместиться на вектор (1, —3) опустить перо а) элемент 1; б) элемент 2 поднять перо сместиться на вектор (—1, —3) опустить перо а) элемент 1; б) элемент 2 а) поднять перо; б) опустить перо сместиться на вектор (0, —2) опустить перо сместиться на вектор (—1, 1) кое алг элемент 1 нач сместиться на вектор (1, 1) сместиться на вектор (—1, 1) кон алг элемент 2 нач сместиться на вектор (—1, 1) сместиться на вектор (1, 1) кон
program xopow1; uses crt; var a, b, Sek: integer; begin writeln('Введите границы:'); repeat readln(a, b); until b >= a; clrscr; for a := a to b do begin Sek := a * 60; writeln(a, ' мин. = ', sek, ' сек.') end end.
2.
program xopow2; uses crt; Var z:integer; f,x,y:real; Begin clrscr; Writeln; X:=10000; Y:=(x/100)*10; for z:=1 to 7 do Begin X:=x+y; Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); End; Writeln('Нажмите Enter...'); Readln; end.
program xopow1; uses crt; var a, b, Sek: integer; begin writeln('Введите границы:'); repeat readln(a, b); until b >= a; clrscr; for a := a to b do begin Sek := a * 60; writeln(a, ' мин. = ', sek, ' сек.') end end.
2.
program xopow2; uses crt; Var z:integer; f,x,y:real; Begin clrscr; Writeln; X:=10000; Y:=(x/100)*10; for z:=1 to 7 do Begin X:=x+y; Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); End; Writeln('Нажмите Enter...'); Readln; end.
program xopow1;
uses crt;
var
a, b, Sek: integer;
begin
writeln('Введите границы:');
repeat
readln(a, b);
until b >= a;
clrscr;
for a := a to b do
begin
Sek := a * 60;
writeln(a, ' мин. = ', sek, ' сек.')
end
end.
2.
program xopow2;
uses crt;
Var
z:integer;
f,x,y:real;
Begin
clrscr;
Writeln;
X:=10000;
Y:=(x/100)*10;
for z:=1 to 7 do
Begin
X:=x+y;
Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.');
End;
Writeln('Нажмите Enter...');
Readln;
end.