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

Размещено на http://www.allbest.ru/

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

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

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

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

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

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

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

S=Pi*R*h

3. Алгоритм:

Размещено на http://www.allbest.ru/

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. Алгоритм:



Размещено на http://www.allbest.ru/

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. Алгоритм

Размещено на http://www.allbest.ru/



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. Результат работы программы

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

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

Тема: Символьные строки

1. Постановка задачи: В тексте, состоящем из латинских букв и заканчивающимся точкой, подсчитайте количество гласных букв.

2. Алгоритм:

ввод вывод присваивание множество



Размещено на http://www.allbest.ru/

3. Спецификация

№	Название	Обозначение	Тип	Единица измерения	Статус
		В алгоритме	В программе
1	Кол-во гласных	K	K	Integer	-	-
2	Переменная	i	i	Integer	-	-
3	Символьная строка	S	S	sting	-	-

-

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

Mama mila ramy

Ответ:6 гласных

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

program LR1;

uses crt;

var i,k: integer;

S: string;

begin

clrscr;

write('Введите строку');

readln(S);

k:=0;

for i:=1 to length(s) do

if S[i] in ['a','e','o','I','y','u'] then k:=k+1;

writeln('количество гласных букв равно k=',k);

readln(k);

end.

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

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

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

Тема: Множества

1. Постановка задачи: Опишите множество Pr(1..20)и поместите в него все простые числа в диапазоне 1..20 и определите, простые они или нет. Выход цикла - введенное значение, равное 99.

2. Алгоритм



3. Спецификация

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

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

Введите число от 1 до 20.

5

Простое

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

var pr:array [1..8] of integer;

i,x:integer;

c: integer;

begin

pr[1]:=2;

pr[2]:=3;

pr[3]:=5;

pr[4]:=7;

pr[5]:=11;

pr[6]:=13;

pr[7]:=17;

pr[8]:=19;

c:=0;

repeat

writeln ('Введите число от 1 до 20');

readln(x);

if (x<2) or (x>20) then writeln ('Введите число из указанного промежутка')

else

begin

for i:=1 to 8 do

if x=pr[i] then c:=0 else c:=c+1;

if c>7 then writeln('число не простое')else writeln('простое');

c:=0;

end;

until x=99;

end.



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

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

Размещено на Allbest.ru