Протабулировать функцию в цикле for - Turbo Pascal

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

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

составить программу расчета и вывода на экран функции y=(x*x-1)/x для х от -15 до 15 с шагом 1

Решение задачи: «Протабулировать функцию в цикле for»

textual
Листинг программы
uses crt;
var x,k:integer;
begin
clrscr;
k:=1;
for x:=-15 to 15 do
if x<2 then
if x=0 then writeln('x=  0  y не определено')
else writeln('x=',x:3,' y=',(x*x-1)/x:7:3)
else
 begin
  gotoXY(24,k);
  write('x=',x:3,' y=',(x*x-1)/x:7:3);
  k:=k+1;
 end;
readln
end.

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

  1. В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Затем объявляются две переменные: x и k, которые имеют тип integer.
  3. С помощью функции clrscr() очищается экран.
  4. Переменная k инициализируется значением 1.
  5. Затем начинается цикл for, который выполняется 20 раз.
  6. В условии цикла указано, что переменная x должна быть в диапазоне от -15 до 15.
  7. Если значение переменной x меньше 2, то выводится сообщение x= 0 y не определено.
  8. Если значение переменной x равно 0, то выводится сообщение x= 0 y не определено.
  9. В остальных случаях выводится сообщение x=, за которым следует значение переменной x, затем знак равенства, значение переменной x, деленное на само себя, и знак равенства, и, наконец, значение переменной k.
  10. После вывода сообщения переменная k увеличивается на 1.
  11. Если значение переменной x равно 0, то с помощью функции gotoxy() перемещается курсор на позицию (24,k).
  12. Затем с помощью функции write() выводится сообщение x=, за которым следует значение переменной x, знак равенства, значение переменной x, деленное на само себя, и знак равенства.
  13. После этого переменная k увеличивается на 1.
  14. Когда значение переменной x равно 0, цикл for завершается.
  15. С помощью функции readln() происходит чтение ввода с клавиатуры.
  16. И, наконец, с помощью функции endm() закрывается программа.

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

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