Программирование линейных вычислительных процессов с использованием операторов, реализующих базовые структуры ветвения. Вариант № 3

Страницы работы

4 страницы (Word-файл)

Содержание работы

Програмирование в TurboPaskal 7.0

Отчет по лабораторной работе №3

Тема-программирование  линейных вычислительных процессов с использованием операторов, реализующих  базовые структуры ветвения.

Цель работы - освоить на практике программирование несложных разветвляющихся вычислительных процессов, используя для этого, простейшие операторы управления, в частности условный оператор и оператор безусловного перехода

Выполнил: ст. гр.  ТО-07 Дамдинбазар уужимсанаа

                                                                                             Проверил: доц.  каф. ИКТ Журов Г.Н.

Дата: 25.03.08

Задание 1.Составить программу  вычисления y по формуле

Программу составить двумя способами:

А) С помощью условного оператора.

Б) С помощью оператора безусловного перехода.

Напечатать: t, y.

Решение: А

Решение:

Program Prim1;

var y,t:real; begin Writeln ('Введите значение t'); readln(t);

if t>2 then y:=t*t+2 else y:=sin(t*t+3);

writeln ('t=',t:2:3,'  y:=',y:3:3);

end.

Ответ:

Введите значение t; 59

t=59.000  y:=3483.000

Решение: Б

F:ЦЫДЫПОВ\37924

Program Prim1;                                                                                                          

var y,t:real; Label 1,2;

Begin Writeln (',Введите значение t,'); Readln(t); if t>2 then goto 1; y:=sin(t*t+3); 1: y:=t*t+2; 2: writeln('t=',t:3:2,'  y:=',y:3:4)

end. ,

Введите значение t, 56

t=56.00  y:=3138.0000

Задание 2.Составить программу для вычисления и печати указанной величины при произвольных значениях при произвольных значениях исходных величин.

Напечатать: х, у.

Решение:

Program Prim2;

var x,y,s:real; Begin Writeln('Введите значение x'); Readln(x); writeln('Введено x=',x:5:2); Writeln('Введите значение y');  readln(y); Writeln('Введено y=',y:5:3); if x<y then s:=(x*x-y*y*y)/(x+y) else if x*x+y*y<1 then s:=y/(x*x+y*y) else s:=x/(x*x+y*y); Writeln('Вычислено s=',s:3:4); end.

Ответ

Введите значение x; 34

Введено x=34.00

Введите значение y; 54

Введено y=54.000

Вычислено s=-1776.2273

Задание 3. Составить программу вычисления наименьшего из двух указанных вырвжений при произвольных значениях исходных величин, причем каждое выражение вычислять не более одного раза.

Решение:

Program Prim3;

 Var x,p,t,r:real;

 Begin Writeln('Введите x'); readln(x); Writeln('x=',x:4:5);

 t:=x*exp(-sqr(x))+4; r:=4*exp(-x)+x;

 if t<=r then p:=t else p:=r; Writeln('Вычислено p=',p:1:4);

 end.

Ответ.

Введите 2; x=2

Вычислено p=2.5413

Задание 4.

Разработать программу, которая вычисляет для целых значений аргумента одну из заданных функций в указанных точках (x = -7, -5, -2, 4, 7). Напечатать данные значения.

Программу составить двумя способами.

А) с помощью условного оператора;

Б) с помощью оператора выбора.

а) если x = -3, -2, -1, 0, то y=sin(x+2)

б) если x = 1, 2, 3, 4, 5, то y=Ln(5-x)

в) если x = -5, 6, то y=(x-2)

г) в остальных случаях y=tg(x-2)

Решение: А

Program Prim4;

var x:integer; y:real; Begin writeln('Введите значение x');

readln(x); if (x>=-3) and (x<=0) then y:=sin(2+x) else if (x>0) and (x<6) then

Похожие материалы

Информация о работе