Программирование в среде Паскаль
Writeln ('модуль упругости равен E:=', E:5:3); Ввод вывод присваивание множество. Тема: Операторы условия и выбора. Тестовый пример: Введем число n=1. Отчет по лабораторной работе 5. Отчет по лабораторной работе 4. Отчет по лабораторной работе 3. Отчет по лабораторной работе 2. Отчет по лабораторной работе 1. Writeln ('Введите число от 1 до 20'); Число, вводимое с клавиатуры. Результат работы… Читать ещё >
Программирование в среде Паскаль (реферат, курсовая, диплом, контрольная)
Отчет по лабораторным работам Программирование в среде Паскаль
Отчет по лабораторной работе 1
Тема: Процедуры ввода и вывода. Оператор присваиваний
1. Постановка задачи:
Определить площадь боковой поверхности конуса с радиусом основания R и высотой h.
2. Необходимые формулы:
S=Pi*R*h
3. Алгоритм:
4. Спецификация:
№ | Название | Обозначение | Тип | Единица измерения | Статус | ||
В алгоритме | В программе | ||||||
Площадь боковой поверхности конуса | S | S | Real | Метры2 | Выходная | ||
Радиус основания | R | R | Real | Метры2 | Входная | ||
Высота конуса | 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®;
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*3v (10*R)
3) E=0.51*t*v (10*R)
R — Кубиковая прочность МПа; t — объемная масса легкого бетона кг/м3. По номеру источника рассчитать модуль упругости материала.
2. Необходимые формулы:
1) E=30*y/(1.5(30/R))
2) E=1.45*t*3v (10*R)
3) E=0.51*t*v (10*R)
3. Алгоритм:
4. Спецификация:
№ | Название | Обозначение | Тип | Единица измерения | Статус | ||
В алгоритме | В программе | ||||||
Кубиковая прочность | R | R | Real | МПа | Входная | ||
Объем массы легкого бетона | t | t | Real | Кг/м3 | Входная | ||
Модуль упругости материала | E | E | Real | ; | Выходная | ||
Число, вводимое с клавиатуры | n | n | Integer | ; | Входная | ||
5.Тестовый пример:
Пусть R=1 t=1 E=?
Е1=0.952
E2=3.124
E3=1.613
6. Текст программы:
Program LR1;
uses crt;
var n: integer;
E, R, y, t: real;
begin
clrscr;
write ('Введите число n');
readln (n);
writeln ('введите R');
readln®;
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! До значения 1 255 534 676 756
2. Необходимые формулы:
3. Алгоритм
4. Спецификация:
№ | Название | Обозначение | Тип | Единица измерения | Статус | ||
В алгоритме | В программе | ||||||
Значение Факториала | i | i | integer | Выходная | |||
Введенное значение | n | n | integer | Входная | |||
Переменная | f | f | Real | Входная | |||
5. Тестовый пример: Введем число n=1
n≠1; n≠2; n≠6; n≠24; n≠120; n≠720; n≠5040; n≠40 320; n≠362 880; n≠3 628 800; n≠39 916 800; n≠479 001 600; n≠6 227 020 800; n≠87 178 291 200;
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<=1 255 534 676 756 then
begin
writeln ('n≠', f);
n:=n+1;
goto 1;
end;
writeln ('Конец');
end.
7. Результат работы программы Вывод: Составленная программа работает правильно, так как результат совпадает с тестовым примером.
Отчет по лабораторной работе 4
Тема: Символьные строки
1. Постановка задачи: В тексте, состоящем из латинских букв и заканчивающимся точкой, подсчитайте количество гласных букв.
2. Алгоритм:
ввод вывод присваивание множество
3. Спецификация
№ | Название | Обозначение | Тип | Единица измерения | Статус | ||
В алгоритме | В программе | ||||||
Кол-во гласных | K | K | Integer | ; | ; | ||
Переменная | i | i | Integer | ; | ; | ||
Символьная строка | 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. Спецификация
№ | Название | Обозначение | Обозначение | Тип | Единица измерения | Статус | |
В алгоритме | В программе | ||||||
Переменная | n | n | Integer | ; | Входная | ||
Переменная | i | I | integer | ; | Входная | ||
Переменная | s | s | integer | ; | Выходная | ||
4. Тестовый пример.
Введите число от 1 до 20.
Простое
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. Результат программы Вывод: Составленная программа работает правильно, так как результат совпадает с тестовым примером