Как нарисовать в "Кумир" рыбку? Исполнитель Чертежник

использовать Чертежник

алг

нач

сместиться в точку (1,3)

опустить перо

сместиться в точку (3,4)

сместиться в точку (5,3)

сместиться в точку (7,4)

сместиться в точку (6,3)

сместиться в точку (7,2)

сместиться в точку (5,3)

сместиться в точку (3,2)

сместиться в точку (1,3)

поднять перо

сместиться в точку (2,2.95)

опустить перо

сместиться в точку (2,3.05)

сместиться в точку (2.05,3.05)

сместиться в точку (2.05,2.95)

сместиться в точку (2,2.95)

поднять перо

сместиться в точку (0,0)

кон

Объяснение:

Смотри картинку

Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом; представляя язык, автор в качестве цели его создания указывал построение небольшого и эффективного языка хорошему стилю программирования, использующему структурное программирование и структурированные данные.

Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программированию.Результат этой работы — язык Модула-2.

Const
   N = 13;
Var
   A,B:array[1..N] of integer;
   i:integer;
   S1,S2:real;
Begin
Randomize;
S1:=0;
S2:=0;
Write('A(');
For i:= 1 to N-1 do
    Begin
    A[i]:=random(201)-100;
    Write(A[i],',')
    End;
A[N]:=random(201)-100;
Write(A[N],')');
WriteLn;

Write('B(');
For i:= 1 to N-1 do
    Begin
    B[i]:=random(201)-100;
    Write(B[i],',')
    End;
B[N]:=random(201)-100;
Write(B[N],')');
WriteLn;
WriteLn;
Write('|A| = ');
For i:= 1 to N do
    Begin
    S1:=S1+A[i]*A[i];
    End;
S1:=Sqrt(S1);
WriteLn(S1);
Write('|B| = ');
For i:= 1 to N do
    Begin
    S2:=S2+B[i]*B[i];
    End;
S2:=Sqrt(S2);
WriteLn(S2);
WriteLn;
Write('Ближайшая точка: ');
if S1 < S2 then WriteLn('A')
else WriteLn('B')
End.