Файл: Отчет лабораторная работа 1 по дисциплине Программирование.docx
Добавлен: 11.01.2024
Просмотров: 17
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Министерство науки и высшего образования РФ Федеральное государственное бюджетное образовательное учреждение
высшего образования
ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)
Кафедра компьютерных систем в управлении и проектировании (КСУП)
ОТЧЕТ
Лабораторная работа № 1 по дисциплине
«Программирование»
Выполнила студент: Мустакимова Альбина Равильевна специальность
2021г.
СОДЕРЖАНИЕ
-
Введение 3 -
Анализ задачи № 1 4 -
Решение задачи 5-
Описание используемых переменных,
-
обоснование выбора типа данных 6
-
Описание алгоритма 6 -
Тестирование программы 7
-
Заключение 8
Приложение 1. Листинг программы 9
Приложение 2. Распечатки тестов… 11
program lb11;
var i,l,n,max,min:integer;
A:array[1..100] of integer;
begin
write('Введите количество целых чисел:');readln(n);
writeln('Введите целые числа:');
for i:=1 to n do readln(A[i]);
max:=A[1];min:=A[1];
for i:=1 to n-1 do
begin
if maxthen max:=A[i+1];
if min>A[i+1] then min:=A[i+1];
end;
l:=max-min;
writeln('Длина промежутка:',l);
end.
Описание используемых переменных, обоснование выбора типа данных.
-
N – Количество целых чисел -
I – эта переменная нужна для работы с массивом -
A[i] – целочисленный массив -
Max – максимальное число в массиве -
Min – минимальное число в массиве -
L – длина промежутка между минимальным и максимальным число
Program lab12;
var s,S1,S2,S3:string;
f,f1:boolean;
procedure pal(s:string;f1:boolean);
var n,t,h,i:integer;
A:array[1..100] of string;
begin n:=length(s);h:=(n div 2);
for i:=1 to n do A[i]:=copy(s,i,1);
t:=0;
for i:=1 to h do
if A[i]<>A[n+1-i] then Break else t:=t+1;
if t=h then writeln('Да') else writeln('Нет');end;
begin
write('Введите первую строку:');readln(S1);
write('Введите вторую строку:');readln(s2);
write('Введите третью строку:');readln(s3);
s:=s1; pal(s,f1);f:=f1;
s:=s2; pal(s2,f);f:=f1;
s:=s3; pal(s3,f);f:=f1;
writeln;
end.
