Изображение графиков функций - Pascal
Формулировка задачи:
Задача заключается в изображении графиков функций график вводится стринговой строкой а прога его рисует, так вот я не могу догнать как организавать переход от стринговой строки к мат формуле чтоб паскаль считал... помагите плз...
Решение задачи: «Изображение графиков функций»
textual
Листинг программы
[SIZE=2] var s:array[1..3]of string; i:integer; st:string; x,y:real; begin s[1]:='y=x'; s[2]:='y=x^2'; s[3]:='y=ln(x)'; write('st: ');readln(st); write('x=');readln(x); for i:=1 to 3 do if s[i]=st then case [/SIZE][FONT=Courier New][SIZE=2]i[/SIZE][/FONT][SIZE=2] of 1:y:=x; 2:y:=x*x; 3:y:=ln(x); end; [/SIZE]
Объяснение кода листинга программы
В этом коде:
- Объявлены переменные: массив строк s, целочисленная переменная i, строка st, вещественные переменные x, y.
- Задаются начальные значения для строк s.
- Пользователю предлагается ввести строку для сравнения.
- Затем пользователю предлагается ввести значение для x.
- Далее выполняется цикл по элементам массива s.
- Если значение st совпадает со значением в текущем элементе массива, то выполняется соответствующий case-условие:
- При i=1, y присваивается значение x.
- При i=2, y присваивается значение x*x.
- При i=3, y присваивается значение ln(x).
- Код не содержит завершения программы или выхода из цикла, поэтому он будет выполняться до тех пор, пока пользователь не прервет его выполнение.