Информатика 2. Гнедов ОО Программирование 2-4в. Отчет лабораторная работа 2 по дисциплине Программирование по учебнометодическому пособию Потаповой Е. А

• Название: Отчет лабораторная работа 2 по дисциплине Программирование по учебнометодическому пособию Потаповой Е. А
• Анкор: Информатика 2
• Дата: 12.02.2023
• Размер: 128.28 Kb.
• Имя файла: Гнедов ОО Программирование 2-4в.docx
• Тип: Отчет; #933665

Министерство образования и науки Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ

УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)

Кафедра автоматизированных систем управления

(КАСУ)

ОТЧЕТ

Лабораторная работа № 2

по дисциплине

«Программирование»

по учебно-методическому пособию Потаповой Е. А.

Выполнил студент:

Гнедов Олег Олегович

2021 г.

СОДЕРЖАНИЕ

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

3.3. Тестирование программы

4. 
   Анализ задачи № 2.
   
5. 
   Решение задачи.
   
   1. 
      Описание используемых переменных, обоснование выбора типа данных
      
   2. 
      Описание алгоритма
      
6. 
   Заключение.
   

Приложение 1. Листинг программы.

Приложение 2. Листинг программы.

1. 
   Введение.
   

Лабораторная работа №2 посвящена созданию программ с использованием массивов.

2. 
   Анализ задачи № 1.
   

Ищем номера строки и столбца наибольшего элемента матрицы.

3. 
   Решение задачи.
   

• 
  Начало
  
• 
  Объявляем переменные
  
• 
  Задаем массив
  
• 
  Считываем размерность матрицы
  
• 
  Задаётся цикл
  
• 
  Вычисляет max
  
• 
  Получаем результат
  

4. 
   Анализ задачи № 2.
   

Получаем все малые латинские буквы, не входящие в строку.

4. 
   Решение задачи.
   

• 
  Начало
  
• 
  Задаём переменные
  
• 
  Заполняем множество m1 символами
  
• 
  Считываем введёную строку
  
• 
  Сформировали множество
  
• 
  Получаем множество m3 символов не вышедших в строку
  

6. Заключение.

В результате выполнения лабораторной работы получены практические навыки составления программ на языке Паскаль.

Приложение 1

Var A:array[1..20,1..20] of integer;

i,j,max,imax,jmax,m,n:integer;

Begin

write('Введите размерность M,N: ');readln(m,n);

For i:=1 to m do

Begin

For j:=1 to n do

Begin

A[i,j]:=random(51)-25;

write(A[i,j]:4);

if (i=1)and(j=1) then

Begin

max:=A[i,j];

imax:=i;

jmax:=j;

End;

if A[i,j]>max then

Begin

max:=A[i,j];

imax:=i;

jmax:=j;

End;

End;

writeln;

End;

writeln('Max: ',max,' находится в A[',imax,',',jmax,']');

readln;

End.

Приложение 2

var s:string; //Описываю переменные и множества символов

i:integer;

c:char;

m1,m2,m3:set of char;

begin

m1:=['a'..'z']; //Запомнил множество m1 символами от a до z

m2:=[];

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

readln(s);

for i:=1 to length(s) do

if s[i] in m1 then //Считал введённую строку,сравнил её символы с множеством m1

begin //и сформировал из них множество символов m2,которое затем вычтем

m2:=m2+[s[i]]; //из множества m1 и получим множество символов m3,не вошедших в ведённую строку

end;

m3:=m1-m2;

for c:='a' to 'z' do

if c in m3 then write(c,' '); //Распечатал полученную строку

readln;

end.