Файл: Отчет лабораторная работа 1 по дисциплине Программирование по учебнометодическому пособию Потаповой Е. А.docx
Добавлен: 19.03.2024
Просмотров: 17
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ
УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)
Кафедра автоматизированных систем управления
(КАСУ)
ОТЧЕТ
Лабораторная работа № 1
по дисциплине
«Программирование»
по учебно-методическому пособию Потаповой Е. А.
Выполнил студент:
Гнедов Олег Олегович
2021 г.
СОДЕРЖАНИЕ
-
Введение. -
Анализ задачи № 1. -
Решение задачи.-
Описание используемых переменных, обоснование выбора типа данных -
Описание алгоритма
-
3.3. Тестирование программы
-
Анализ задачи № 2. -
Решение задачи.-
Описание используемых переменных, обоснование выбора типа данных -
Описание алгоритма
-
-
Заключение.
Приложение 1. Листинг программы.
Приложение 2. Листинг программы.
-
Введение.
Лабораторная работа № 1 посвящена созданию программ с использованием простых управляющих структур: условного оператора, цикла.
Решение первой задачи предусматривает использование простых типов данных
Решение второй задачи предусматривает использование строкового типа данных.
-
Анализ задачи № 1.
В первой задаче нужно подсчитать количество вхождений в строку цифр.
-
Решение задачи.
-
Начало -
Объявляем переменные -
Задаем цикл -
Вводим строку str -
В результате получаем количество вхождений цифр в строку
-
Анализ задачи № 2.
Во второй задаче не требуется хранения исходных последовательностей значений
, вводится n, затем в цикле, работающем n раз, осуществляется пошаговый ввод чисел, постепенно вычисляется необходимый результат.
-
Решение задачи.
-
Начало -
Объявляем переменные -
Считываем целое число n -
Проверяем его модуль -
Считываем количество последних цифр m -
Получаем сумму m
6. Заключение.
В результате выполнения лабораторной работы получены практические навыки составления программ на языке Паскаль.
Приложение 1
Задача 1
Для каждой цифры '0', '1', ... , '9' подсчитать количество
вхождений в данную строку S.
program z1;
var i, j, q : integer;
str : string;
c : char;
begin
readln(str);
for i := 0 to 9 do begin
c := chr(ord('0')+i);
q := 0;
for j := 1 to length(str) do
if(str[j] = c) then inc(q);
writeln('Цифра ', c, ' встречается в строке ', q, ' раз');
end;
end.
Приложение 2
Задача 2
Даны натуральные числа n, m. Получить сумму m последних цифр числа n. Число n вводить как величину типа integer, и строки не использовать.
program z2;
var m,n,i,s:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);//Проверка отрицательного числа
write('Введите количество последних цифр m=');
readln(m);
s:=0;
for i:=1 to m do
begin
s:=s+n mod 10;
n:=n div 10;
end;
write('Сумма ',m,' последних цифр=',s);
end.