Файл: Отчет лабораторная работа 2 по дисциплине Программирование по учебнометодическому пособию Потаповой Е. А.docx
Добавлен: 19.03.2024
Просмотров: 7
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ
УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)
Кафедра автоматизированных систем управления
(КАСУ)
ОТЧЕТ
Лабораторная работа № 2
по дисциплине
«Программирование»
по учебно-методическому пособию Потаповой Е. А.
Выполнил студент:
Гнедов Олег Олегович
2021 г.
СОДЕРЖАНИЕ
-
Введение. -
Анализ задачи № 1. -
Решение задачи.-
Описание используемых переменных, обоснование выбора типа данных -
Описание алгоритма
-
3.3. Тестирование программы
-
Анализ задачи № 2. -
Решение задачи.-
Описание используемых переменных, обоснование выбора типа данных -
Описание алгоритма
-
-
Заключение.
Приложение 1. Листинг программы.
Приложение 2. Листинг программы.
-
Введение.
Лабораторная работа №2 посвящена созданию программ с использованием массивов.
-
Анализ задачи № 1.
Ищем номера строки и столбца наибольшего элемента матрицы.
-
Решение задачи.
-
Начало -
Объявляем переменные -
Задаем массив -
Считываем размерность матрицы -
Задаётся цикл -
Вычисляет max -
Получаем результат
-
Анализ задачи № 2.
Получаем все малые латинские буквы, не входящие в строку.
-
Решение задачи.
-
Начало -
Задаём переменные -
Заполняем множество 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.
