Как сделать, чтобы пользователь вводил размер рисунка произвольно? - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Program lab6;
  const
    P='   ';
    T='           ';
    R='      ';
Var
    x,y,z:real;
    i:integer;
Begin
  WriteLn('на экран');
  WriteLn;
  WriteLn('Ввод исходных данных');
  WriteLn('Таблица результатов');
  WriteLn;
  WriteLn(T,'--------------T--------------T--------------¬');
  WriteLn(T,'¦_____X_______¦______Y_______¦_______Z______¦');
  WriteLn(T,'¦             ¦              ¦              ¦');
  x:=1;
  while x<11 do
    begin
      y:=arctan(x);
      z:=1+sqrt(x);
      WriteLn(T,'¦',P,x:4:1,R,'¦',P,y:4:6,P,'¦',P,z:5:6,P,'¦');
      x:=x+1;
    end;
  WriteLn(T,'¦_____________¦______________¦______________¦');
 Writeln;
 for i:=1 to 5 do
   begin
   WriteLn(T,'' : (i-1),i,'' : (5-i),i);
   end;
   Write(T);
 for i:=1 to 6 do
 begin
 Write(i);
 end;
 ReadLn;
End
нечего не поменялось только числа снизу записываються а нужно что бы размер нижнего рисунка менялся

Решение задачи: «Как сделать, чтобы пользователь вводил размер рисунка произвольно?»

textual
Листинг программы
 n:=9;
 for i:=1 to n-1 do
   begin
   WriteLn(T,'' : (i-1),i,'' : (n-1-i),i);
   end;
   Write(T);
 for i:=1 to n do
 begin
 Write(i);
 end;

Объяснение кода листинга программы

  1. Программа начинается с объявления переменной n и присваивания ей значения 9.
  2. Затем используется цикл for для вывода на экран сетки размером 9x9.
  3. В каждой ячейке сетки выводится значение номера строки и столбца (начиная с 0).
  4. После вывода сетки выводится значение переменной n.
  5. Затем используется цикл for для вывода на экран чисел от 1 до 9.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы