Не работает For с Real-ом - Turbo Pascal
Формулировка задачи:
В общем, проблема такая: нужно решить уравнение y для значений x=[0,3pi] с шагом в pi/2, но проблема такая, почему то фор не хочет компилироваться с real и, как узаказать шаг для x? а то он каждый рах плюсует 1 в переменной x. Сделать это надо ОБЯЗАТЕЛЬНО через фор через другие циклы получается само собой. Буду рад за ответы
Решение задачи: «Не работает For с Real-ом»
textual
Листинг программы
program zxc; var x,y: Real; i:integer; begin for i := 0 to 6 do begin x := i*pi/2; y:=0.5*x+sin(x)*sin(x); writeln('x= ',x,',y= ',y); x:=x+pi/2; end; end.
Объяснение кода листинга программы
- В программе объявлены три переменные: x, y и i. Переменная x типа Real, а переменные y и i типа Integer.
- В цикле for i := 0 to 6 do происходит итерация от 0 до 6 (inclusive).
- На каждой итерации цикла значение переменной i увеличивается на 1.
- Значение переменной x вычисляется как i*pi/2, где pi - это константа, представляющая число пи (примерно равное 3.14159).
- Значение переменной y вычисляется как 0.5x+sin(x)sin(x), где sin(x) - это функция, возвращающая синус значения переменной x.
- Вычисленные значения x и y записываются в файл с помощью функции writeln. В строке 'x= ' перед значением x ставится пробел, чтобы строка форматирования была корректной.
- После завершения цикла значение переменной x увеличивается на pi/2. Это необходимо для перехода к следующей итерации цикла.
- Программа завершается после завершения цикла.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д