Лабораторная работа №3 Задача 1
Постановка задачи: Реализовать программу из ЛБ №2 через процедуру.
Тест:
Данные |
Выходные данные |
N |
Число |
Блок-схема:
Вызов процедуры heizenberg
Конец
Процедура heizenberg
Начало
Листинг программы:
program zadacha_1;
uses crt;
var i,n:integer;
sum:real;
procedure heizenberg;
begin
sum:=0;
writeln('Введите N:');
readln(n);
for i:=1 to n do
sum:=sum+(1+0.1);
writeln(sum);
end;
begin
heizenberg;
end.
Скриншот:
Рис 4.
Задача 2
Постановка задачи: Реализовать программу из ЛБ №2 через функцию.
Тест:
Данные |
Выходные данные |
N |
Число |
Блок-схема:
Начало
Функция
heizenberg
n
sum:= heizenberg(n)
sum
Конец
Листинг программы:
program zadacha_4;
uses crt;
var i,n:integer;
sum:real;
function heizenberg(x:integer):real;
begin
sum:=0;
writeln('Введите N:');
readln(x);
for i:=1 to x do
sum:=sum+(1+0.1);
heizenberg:=sum;
end;
begin
read(n);
sum:= heizenberg(n);
writeln(sum);
end.
Скриншот:
Рис 5.
Лабораторная работа №4
Задача 1
Постановка задачи: Преобразовать введенную строку к верхнему регистру.
Тест:
Данные |
Выходные данные |
Строка s |
СТРОКА |
Блок-схема:
Начало
Конец
S
s:=upperCase(s)
S
Листинг программы:
program nevermore;
uses crt;
var s:string;
begin
writeln(‘Введите строку s');
read(s);
s:=upperCase(s);
writeln(s);
end.
Скриншот:
Рис 6.
Задача 2
Постановка задачи: Дана строка S. Оставить в конце строки то количество символов, которое укажет пользователь, остальное стереть.
Тест:
Данные: |
Выходные данные: |
Строка S |
Некое кол-во символов |
Конец
S
s:=s+'.'
delete (s,1,(length(s)-n))
I<=n-1
length(s)>n
S,N
Начало
Листинг программы:
uses crt;
var s: string;
n, i: integer;
begin
write ('Введите s');
readln (s);
write ('Введите n');
readln (n);
if length(s)>n then delete (s,1,(length(s)-n)) else
for i:=length(s) to n-1 do
s:=s+'.';
writeln (s);
end.
Скриншот:
Рис 7.