![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Решение. Сравнить числа. Выдать результат.
Решение Дано: a; b; c; d. Сравнить числа. Выдать результат.
program z2b; var A, B, C, D: integer; begin writeln('Введите A, B, C, D'); readln(A, B, C, D); If (D< A) and (D< B) and (D< C) then writeln('Неправда') else writeln('Правда'); readln; end.
Результаты: Running " c: \program files (x86)\fpc\bin\i386-win32\z2b.exe " Введите A, B, C, D Неправда
При других параметрах: Running " c: \program files (x86)\fpc\bin\i386-win32\z2b.exe " Введите A, B, C, D Правда
задание 3. Программирование алгоритмов циклической структуры
1) Вычислить многократно значение функции одного аргумента
при изменении аргумента в заданном диапазоне с известным шагом Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы: Решение Дано: функция, зависящая от аргумента x, значения которого изменяются в заданном диапазоне с заданным шагом; параметры a, b. Найти: значения функции для каждого значения аргумента в заданном диапазоне. Математическая модель: Для многократного вычисления значений функции необходимо каждый раз проверять, какое из аналитических заданий этой функции соответствует текущему числовому значению аргумента x (x=x 0, x 0+ h, x 0+2∙ h, …, xn). Пусть y – значение функции; x – значение аргумента; a, b – параметры x1 - начальное значение х хn - конечное значение х h - шаг изменения х
program z31; var a, b, x, y, x1, xn, h: real; begin a: =2.6; b: =-0.39; x1: =1; xn: =7; h: =0.5; x: =x1; writeln('x', ' ': 6, 'y'); while x< =xn do begin If x< 2.8 then y: =(a+b)/(exp(x)+cos(x)); If (x> =2.8) and (x< 6) then y: =(a+b)/(x+1); If x> =6 then y: =exp(b*x)+sin(x); writeln(x: 3: 1, ' ', y: 6: 3); x: =x+h; end; readln; end. Результаты: Running " c: \program files (x86)\fpc\bin\i386-win32\z3-1.exe " x y 1.0 0.678 1.5 0.485 2.0 0.317 2.5 0.194 3.0 0.553 3.5 0.491 4.0 0.442 4.5 0.402 5.0 0.368 5.5 0.340 6.0 -0.183 6.5 0.294 7.0 0.722
|