Программирование циклических алгоритмов с предусловием
ОТЧЕТ По лабораторным работам Вариант-4
Выполнил:
Проверила: ст. преподаватель
Омск-2014
Лабораторная работа 1 Основы программирования в среде Турбо Паскаля. Оператор присваивания, процедуры ввода– вывода Задание 1(программа 1_1)
Текст: Program l1; Var w: real; x: integer; const a=4.1; b=-2.3; begin writeln(‘vvedite x’); readln(x); w:=((x*x*x)+SQR(a)*COS(2*x))/(x+SQRT(a+b*sin(3*x))); writeln(‘w=’,w:6:2, ’ pri x=’,x); end.
Лабораторная работа 2 Программирование разветвленных алгоритмов. Операторы передачи управления Задание 1(программа 2_1) Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент:
4. Для i [7,12], ai4+bi при I< 10, где a=2.2,b=0.3. y= tg(i+0.5) при I= 10, e2i+ при I>10,
program l2; var y: real; i: integer; const a=2.2; b=0.3; begin writeln(‘vvedite celoe i iz interval [7,12]’); readln(i); if (i<10) then y:=a*i*i*i*i+b*i else if (i=10) then y:=sin(i+0.5)/cos(i+0.5) else y:=exp(2*i)+sqrt(sqr(a)+sqr(i)); writeln(‘y=’,y:6:2,’ pr ii=’,i); end. Лабораторная работа 3 Программирование циклических алгоритмов с заданным Числом повторений Задание 2(программа 3_2) Вычислить значения двух функций в n равномерно распределенных в диапазоне а≤x≤b точках. Результаты оформить в виде таблицы.
Program lab3; const а = -2; b = 5;n=14; var F1, F2, x, dx: real; {dx - шаг изменения х} i: integer; {i - пеpеменная цикла} begin dx: = abs(b-a)/(n-1); x:=a; writeln (' ___________________________'); writeln ('| I | X | F1 | F2 |'); writeln ('|---|--------------|------------|------------|'); for i:=1 to n do {опеpатоp цикла} begin F1:=exp(5*ln(ABS(x+10))); F2:=EXP(-(x+5)); writeln('|', i:3,' |', x:8:3,'|', F1:8:4,' |', F2:8:6,' |'); x:=x+dx; end; writeln('|________________________|); end.
Лабораторная работа 4 Программирование циклических алгоритмов с предусловием
Задание 2(программа 4_2) Модифицировать (изменить) программу 3_2 для вычисления функций F1(x) и F2(x) с применением вместо счетного цикла оператора цикла с предусловием. Выполнить ее и сравнить результаты с полученными в предыдущей работе.
Program lab4; const а = -2; b = 5;n=14; var F1, F2, x, dx: real; {dx - шаг изменения х} begin dx: = abs(b-a)/(n-1); x:=a; writeln (' ___________________________'); writeln ('| I | X | F1 | F2 |'); writeln ('|---|--------------|------------|------------|'); while (x<=b) do{ начало цикла c предусловием} begin F1:=exp(5*ln(ABS(x+10))); F2:=EXP(-(x+5)); writeln('|', i:3,' |', x:8:3,'|', F1:8:4,' |', F2:8:6,' |'); x:=x+dx; end; writeln('|________________________|); end.
Лабораторная работа 5 ©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|