Лабораторная работа № 2 Работа в среде Турбо Паскаль на пэвм. Чтение и составление программ простейших линейных вычислительных процессов.

Чтение и составление программ простейших линей-ных вычислительных процессов.

Линейный вычислительный процесс

Элементы языка Турбо Паскаль.

Структура программы линейного вычислительного процесса, структурная схема программы, константы и переменные, операторы (присваивания, ввода, вывода, … ).

Пример2.1 Найти среднее значение суммы трех чисел 5, 17, 8.

Program SREDNEE_3;

var

x,y,z:integer;

sum:integer;

begin

x:=5;

y:=17;

z:=8;

sum:=x+y+z;

writeln('srednee znatschenie',x:4,',',y:4,',',z:4);

writeln('rawno',(sum div 3):4)

end. {Результат см. Alt+F5}

Объяснить работу программы. В какой форме будет представлен результат вычисления?

Пример2.2 Найти среднее значение суммы любых трех чисел с точностью до второго знака после запятой.

Program SREDNEE_3r;

var

x,y,z:real;

sum:real;

begin

writeln('vvedite tri tschisla X,Y,Z');

read(x,y,z);

sum:=x+y+z;

writeln('srednee znatschenie',x:10:2,',',y:10:2,',',z:10:2);

writeln('rawno',(sum / 3):8:2)

end. {Результат см. Alt+F5}

Объяснить работу программы. Что будет напечатано?

Лабораторная работа № 3 Работа в среде Турбо Паскаль. Чтение и составление программ линейных вычислительных процессов.

Пример 3.1 Найти синус и косинус угла, заданного в радианах.

Program TRIG_1; {заголовок программы}

var

x,y,z:real;

begin

writeln('vvedite ugol X v radianah');

read(x);

y:=sin(x);

z:=cos(x);

writeln('sinus ugla raven',y:6:2);

writeln('kosinus ugla raven',z:6:2)

end.

Пример 3.2 Найти синус и косинус угла, заданного в градусах.

Program TRIG_2; {заголовок программы}

const Pi=3.14; {объявление констант}

var x,x1,y,z:real; {объявление переменных}

begin {тело программы}

writeln('vvedite ugol X v gradusah');

read(x);

x1:=Pi*x/180;

y:=sin(x1);

z:=cos(x1);

writeln('sinus ugla raven',y:6:2);

writeln('kosinus ugla raven',z:6:2)

end.

Пример 3.3 Определить длину окружности (L) и площадь круга (S) радиуса R.

L:=2*Pi*R, S:=Pi*sqr(R).

Program KRUG_1; {заголовок программы}

const {razdel objavlenija konstant}

Pi=3.14;

var {razdel objavlenija peremennih}

R,L,S:real;

begin {telo programmi}

writeln('vvedite radius R v metrah');

read(R);

L:=2*Pi*R;

S:=Pi*sqr(R);

writeln('dlina okrugnosti v metrah L=',L:8:2);

writeln('ploschad kruga v metrah kvadratnih S=',S:8:2)

end. {rezultat smotrite ALT+F5}

Лабораторная работа № 4 Работа в среде Турбо Паскаль. Чтение и составление программ линейных вычислительных процессов.

Пример 4.1 Написать программу, которая для заданного целого числа печатает следующую таблицу

Program TABLIZA_1; {programma postroenija tablizi}

var a, a3, a6:integer; {a3=a^3, a6=a^6=(a^3)^2}

begin

writeln('vvedite a');

read(a);

a3:=a*a*a; a6:=sqr(a3);

writeln('Tabliza treugolnaja');

writeln(a:4);writeln(a3:4,a6:4);writeln(a6:4,a3:4,a:4)

end. {rezultat Alt+F5}

Построить таблицы при а=1, 2. Объяснить работу программы. Построить структурную схему программы.

Пример 4.2 Вычислить выражение z = ab/c +c/ab при заданных значениях a, b, c.

Program LIN_1; {vitschislit z:=(a*b/c)+(c/(a*b))}

var z,a,b,c:real;

begin

writeln('vvedite tschisla a, b, c');

read(a,b,c);

z:=(a*b/c)+(c/(a*b));

writeln('z=',z:8:2)

end.

Вычислить z при а = 5, b = 17, c = 7. Объяснить работу програм-мы. Построить структурную схему программы.

Пример 4.3 Построить график функции У(Х) в интервале Х[-2,+2] для целых значений Х, если a=5, b=4, c=1.

Program LIN_2;

var

a,b,c,x,y:integer;

begin

writeln('vvedite znatschenie X');

read(x);

a:=5; b:=4; c:=1;

y:=a*sqr(x)+b*x+c;

writeln('x=',x,',','y=',y)

end.

Объяснить работу программы. Построить структурную схему программы.