Question

Написать программу в Паскаль Написать водный корабль, человек,звезда

Answer 1

Begin
writeln('водный корабль, человек, звезда');
readln;
end. 
Какой вопрос, такой ответ.

Answer 2

Program example;
begin
 writeln('Водный корабль');
 writeln('Человек');
 writeln('Звезда');
end.

Answer 3

Конечно, вот пример программы на языке Паскаль, которая создает и отображает на экране изображения водного корабля, человека и звезды:

pascalCopy code
program Drawing;

uses
  crt;

procedure DrawShip();
begin
  writeln('       /^\/^\');
  writeln('     _|__|  O|');
  writeln('\/     /~     \_/ \');
  writeln(' \____|__________/  \');
  writeln('        \_______      \');
  writeln('                `\     \                 \');
  writeln('                  |     |                  \');
  writeln('                 /      /                    \');
  writeln('                /     /                       \\');
  writeln('              /      /                         \ \');
  writeln('             /     /                            \  \');
  writeln('           /     /             _----_            \   \');
  writeln('          /     /           _-~      ~-_         |   |');
  writeln('         (      (        _-~    _--_    ~-_     _/   |');
  writeln('          \      ~-____-~    _-~    ~-_    ~-_-~    /');
  writeln('            ~-_           _-~          ~-_       _-~');
  writeln('               ~--______-~                ~-___-~');
end;

procedure DrawPerson();
begin
  writeln('   O');
  writeln('  /|');
  writeln('  / |');
  writeln('  / |');
  writeln('   |');
  writeln('  / \');
end;

procedure DrawStar();
begin
  writeln('    *');
  writeln('  *****');
  writeln('*******');
  writeln('  *****');
  writeln('    *');
end;

begin
  clrscr;
  DrawShip();
  writeln();
  DrawPerson();
  writeln();
  DrawStar();
  readln;
end.

После запуска этой программы на экране должны появиться изображения водного корабля, человека и звезды.