Программирование в среде Паскаль

Процедуры ввода и вывода. Оператор присваиваний: расчет площади боковой поверхности конуса. Операторы условия и выбора; циклы; символьные строки. Подсчет количества гласных букв в тексте, состоящем из латинских букв и заканчивающимся точкой; множества.
Краткое сожержание материала:

Размещено на

Отчет по лабораторным работам

Программирование в среде Паскаль

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

Тема: Процедуры ввода и вывода. Оператор присваиваний

1. Постановка задачи:

Определить площадь боковой поверхности конуса с радиусом основания R и высотой h.

2. Необходимые формулы:

S=Pi*R*h

3. Алгоритм:

Размещено на

4. Спецификация:

№	Название	Обозначение	Тип	Единица измерения	Статус
		В алгоритме	В программе
1	Площадь боковой поверхности конуса	S	S	Real	Метры2	Выходная
2	Радиус основания	R	R	Real	Метры2	Входная
3	Высота конуса	h	h	Real	Метры2	Входная

5. Тестовый пример:

R=3; h=2;

S=Pi*R*h=3,14*3*2=18,85

6. Текст программы:

Program LR1;

Uses crt;

Var S,R,h:real;

Begin

Clrscr;

Writeln(`Введите радиус R');

Readln(R);

Writeln(`Введите высоту h');

Readln(h);

S:=Pi*R*h;

Writeln(`Площадь боковой поверхности конуса S=',S:2:3);

Readln;

End.

7. Результат работы программы:

Вывод: Составленная программа работает правильно, так как результат совпадает с тестовым примером.



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

Тема: Операторы условия и выбора

1. Постановка задачи:

Вычислить алгоритм, вычислить тестовый пример и написать программу для решения задачи: Имеется несколько научно - технических источников, в каждом из которых приведена своя формула для расчета модуля упругости, МПа

1) E=30*y/(1.5(30/R))

2) E=1.45*t*³v(10*R)

3) E=0.51*t*v(10*R)

R - Кубиковая прочность МПа; t - объемная масса легкого бетона кг/м³. По номеру источника рассчитать модуль упругости материала.

2. Необходимые формулы:

1) E=30*y/(1.5(30/R))

2) E=1.45*t*³v(10*R)

3) E=0.51*t*v(10*R)

3. Алгоритм:



Размещено на

4. Спецификация:

№	Название	Обозначение	Тип	Единица измерения	Статус
		В алгоритме	В программе
1	Кубиковая прочность	R	R	Real	МПа	Входная
2	Объем массы легкого бетона	t	t	Real	Кг/м3	Входная
3	Модуль упругости материала	E	E	Real	-	Выходная
4	Число, вводимое с клавиатуры	n	n	Integer	-	Входная

5.Тестовый пример:

Пусть R=1 t=1 E=?

Е₁=0.952

E₂=3.124

E₃=1.613

6. Текст программы:

Program LR1;

uses crt;

var n: integer;

E,R,y,t: real;

begin

clrscr;

write('Введите число n');

readln(n);

writeln ('введите R');

readln(R);

writeln ('введите t');

readln(t);

case n of

1: E:=30*t/(1.5+(30/R)) else

2: E:=1.45*t*exp(1/3*ln(10*R))

3: E:=0.51*t*sqrt(10*R)

else writeln ('другая');

end;

writeln('модуль упругости равен E:=',E:5:3);

readln;

end.

7. Результат работы программы:



Вывод: Составленная программа работает правильно, так как результат совпадает с текстовым примером.

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

Тема: Циклы

1. Постановка задачи: Вычислить произведение n! До значения 1255534676756

2. Необходимые формулы:

3. Алгоритм

Размещено на



4. Спецификация:

№	Название	Обозначение	Тип	Единица измерения	Статус
		В алгоритме	В программе
1	Значение Факториала	i	i	integer	-	Выходная
2	Введенное значение	n	n	integer	-	Входная
3	Переменная	f	f	Real	-	Входная

5. Тестовый пример: Введем число n=1

n!=1; n!=2; n!=6; n!=24; n!=120; n!=720; n!=5040; n!=40320; n!=362880; n!=3628800; n!=39916800; n!=479001600; n!=6227020800; n!=87178291200;

6. Текст программы:

program LR1;

label 1;

var i,n: integer;

f: Real;

begin

writeln('Введите значение n=');

readln(n);

1: f:=1;

for i:=1 to n do f:=f*i;

if f<=1255534676756 then

begin

writeln('n!=',f);

n:=n+1;

goto 1;

end;

writeln('Конец');

end.

7. Результат работы программы

Вывод: Составленная программа работает правильно, так как результат совпадает с тестовым примером.

Отчет по лабора...