Question

Записать программу для печати звездочками любой фигуры ПАСКАЛЬ

Answer 1

Ответ:

program test;

var i, j: integer;

begin

for i:=1 to 7 do

begin

for j:=i to 7 do write(' ');

for j:=1 to i do write(' *');

writeln

end

end.

Answer 2

Вот пример программы на языке Паскаль для печати фигур звездочками:

program PrintShapes;

uses
  SysUtils;

procedure PrintRectangle(width, height: Integer);
var
  i, j: Integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to width do
      Write('*');
    Writeln;
  end;
end;

procedure PrintTriangle(height: Integer);
var
  i, j: Integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to i do
      Write('*');
    Writeln;
  end;
end;

procedure PrintDiamond(height: Integer);
var
  i, j: Integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to height - i do
      Write(' ');
    for j := 1 to 2 * i - 1 do
      Write('*');
    Writeln;
  end;
  for i := height - 1 downto 1 do
  begin
    for j := 1 to height - i do
      Write(' ');
    for j := 1 to 2 * i - 1 do
      Write('*');
    Writeln;
  end;
end;

var
  choice, width, height: Integer;
begin
  repeat
    Writeln('Choose a shape to print:');
    Writeln('1. Rectangle');
    Writeln('2. Triangle');
    Writeln('3. Diamond');
    Writeln('0. Exit');
    Write('Enter your choice: ');
    Readln(choice);
    
    case choice of
      1:
      begin
        Write('Enter the width of the rectangle: ');
        Readln(width);
        Write('Enter the height of the rectangle: ');
        Readln(height);
        PrintRectangle(width, height);
      end;
      2:
      begin
        Write('Enter the height of the triangle: ');
        Readln(height);
        PrintTriangle(height);
      end;
      3:
      begin
        Write('Enter the height of the diamond: ');
        Readln(height);
        PrintDiamond(height);
      end;
      0:
        Writeln('Exiting...');
      else
        Writeln('Invalid choice. Please try again.');
    end;
    
    Writeln;
  until choice = 0;
end.

Эта программа предлагает пользователю выбрать фигуру для печати: прямоугольник, треугольник или ромб. Затем пользователь вводит необходимые параметры (ширина и высота для прямоугольника, высота для треугольника и ромба), и программа печатает выбранную фигуру звездочками.

Примечание: Приведенный выше код является примером и может быть модифицирован или расширен в соответствии с требованиями и предпочтениями пользователя.