Как сделать, чтобы пользователь вводил размер рисунка произвольно? - 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;
Объяснение кода листинга программы
- Программа начинается с объявления переменной
n
и присваивания ей значения 9. - Затем используется цикл
for
для вывода на экран сетки размером 9x9. - В каждой ячейке сетки выводится значение номера строки и столбца (начиная с 0).
- После вывода сетки выводится значение переменной
n
. - Затем используется цикл
for
для вывода на экран чисел от 1 до 9.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д