Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Федеральное агентство по образованию
ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)
Кафедра компьютерных систем
в управлении и проектировании (КСУП)
ОТЧЕТ
К лабораторной работе 5 (процедуры и функции) по дисциплине
“Программирование на языках высокого уровня”
Студент гр. 539
C Н Бараусов
23.03.2010
Принял:
ст. преподаватель каф. КСУП
Е. А. Потапова
2010
СОДЕРЖАНИЕ
1. Введение 3
2. Анализ задачи №58 4
3. Блок-схема 5
4. Решение программы на языке Turbo Pascal 6
5. Заключение 6
ВВЕДЕНИЕ
Данная лабораторная работа посвящена решению задач в разделе “ процедуры и функции ”. Цель работы – научиться составлять алгоритмы с использованием процедур и функций. А также научиться рационально, применять полученные знания в среде программирования.
Далее я приступлю к анализу и решению двух задач, путем составления алгоритмов, блок-схем и написания программных кодов на языке Turbo Pascal.
АНАЛИЗ ЗАДАЧИ №7
Пусть даны N натуральных номеров билетов ХХХХХХ. Найти среди них счастливые (сумма первых трёх чисел равна сумме второй тройки чисел).
Для решения задачи:
- создаём процедуру;
- создаем N шестизначных чисел
- складываем первые три и вторые три числа;
- если первая сумма равна второй, то билет счастливый;
-вызываем процедуру;
БЛОК-СХЕМА (процедуры)
РЕШЕНИЕ ПРОГРАММЫ НА ЯЗЫКЕ TURBO PASCAL
Procedure happy(n:integer);
var i,c1,c2,c3,c4,c5,c6:longint;
a:array[1..99] of longint;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=Random(900000)+100000;
writeln(a[i]);
c1:=a[i] div 100000;
c2:=a[i] div 10000-10*c1;
c3:=a[i] div 1000-100*c1-10*c2;
c4:=a[i] div 100-1000*c1-100*c2-10*c3;
c5:=a[i] div 10-10000*c1-1000*c2-100*c3-10*c4;
c6:=a[i] mod 10;
if c1+c2+c3=c4+c5+c6 then
WritelN (' Ticket- ',a[i],'',!!!этот билет счастливый!!!');
end;
end;
var
n:integer;
begin
write(‘BBedute n’);
readln(n);
happy(n);
readln;
end.
ЗАКЛЮЧЕНИЕ
В ходе лабораторной работы я научился применять полученные знания и составлять алгоритмы с использованием процедур и функций, что помогло мне решить поставленные задачи из раздела “Массивы” и получить результаты вычислений при помощи программирования в Turbo Pascal.