Министерствонауки ивысшегообразованияРФФедеральноегосударственноебюджетноеобразовательноеучреждениевысшегообразованияТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМУПРАВЛЕНИЯИРАДИОЭЛЕКТРОНИКИ(ТУСУР)Кафедракомпьютерныхсистемвуправленииипроектировании(КСУП)ОТЧЕТЛабораторная работа № 1подисциплине«Программирование»Выполнила студент: Мустакимова Альбина Равильевна специальность2021г.СОДЕРЖАНИЕ

1. 
   Введение 3
   
2. 
   Анализ задачи № 1 4
   
3. 
   Решение задачи 5
   
   1. 
      Описание используемых переменных,
      

обоснованиевыбора типаданных 6

2. 
   Описание алгоритма 6
   
3. 
   Тестирование программы 7
   
1. 
   Заключение 8
   

Приложение1.Листингпрограммы 9Приложение2.Распечатки тестов… 11program lb11;var i,l,n,max,min:integer;A:array[1..100] of integer;beginwrite('Введите количество целых чисел:');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 beginif maxthen max:=A[i+1];

if min>A[i+1] then min:=A[i+1];

end;

l:=max-min;

writeln('Длина промежутка:',l);

end.

Описание используемых переменных, обоснование выбора типа данных.

1. 
   N – Количество целых чисел
   
2. 
   I – эта переменная нужна для работы с массивом
   
3. 
   A[i] – целочисленный массив
   
4. 
   Max – максимальное число в массиве
   
5. 
   Min – минимальное число в массиве
   
6. 
   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.

---

Смотрите также файлы

• Характеристика учебной и профессиональной деятельности обучающегося во время производственной практики.docx

• П. Э. Caмуэльcoн.doc

• Качества навыка полноценного чтения младших школьников и пути их формирования.doc

• Муниципальное общеобразовательное учреждение средняя общеобразовательная школа 16 копейского городского округа.docx

• Организация производства.docx