Программирование - процесс и искусство создания компьютерных программ и/или программного обеспечения с помощью языков программирования. Программирование сочетает в себе элементы искусства, фундаментальных наук: информатики и математики.

Использование комбинированного и множественного типа

Задачи работы:
1. Изучить комбинированный и множественный типы данных.
2. Разработать алгоритм и составить программу для решения каждой из двух задач соответствующего варианта. Если не указано иначе, словом считать последовательность символов, не содержащую пустых символов (символов с кодами меньшими 33), буквами считать буквы латинского алфавита.
3. Подобрать наборы тестовых данных.

Задание:
1. Дан массив из n натуральных чисел ( n - const). Вывести цифры, которых нет в записи данных элементов массива.
2. Упорядочить массив, каждый элемент которого представляет собой время (запись из трех полей: часы, минуты и секунды). Сравнение времени t 1 с t 2 оформить подпрограммой.

Uses Crt;

Const n=5;
Var
a: array[1..n] of integer;
b: array[0..9] of boolean;
i,k:integer;

Begin
Clrscr;
WriteLn('Задание. Дан массив из n натуральных чисел (n - const).');
Writeln('Вывести цифры, которых нет в записи данных элементов массива.');
WriteLn;
Writeln('Исходные данные');
Write('Введите массив из '); Write(n); Write(' элементов: ');
For i:=1 to n do Read(a[i]);
For i:=0 to 9 do b[i]:=False;
For i:=1 to n Do Begin
k:=a[i];
Repeat
b[k mod 10]:=True;
k:=trunc(k/10);
Until k mod 10 = k;
End;

For i:=0 to 9 do if not b[i] then Begin
Write(i);
Write(' ');
End;
ReadLn;
ReadLn;
End.

----------------------------------------------

Uses Crt;
Const n=5;

Type
Time = Record
H,M,S:Longint;
End;

Function isMore(T1,T2:Time):Boolean;
Var
d1,d2:Double;
Begin
isMore:= (T1.S+T1.M*60+T1.H*3600) > (T2.S+T2.M*60+T2.H*3600);
End;

Var
a: array[1..n] of Time;
t:Time;
i,k:integer;

Begin
Clrscr;
WriteLn('Задание. Упорядочить массив, каждый элемент которого представляет собой время');
WriteLn('(запись из трех полей: часы, минуты и секунды). Сравнение времени t1 с t2 оформить подпрограммой.');
WriteLn;
Writeln('Исходные данные');
Write('Введите массив из '); Write(n); Writeln(' элементов: ');
For i:=1 to n do Begin
Read(a[i].H);
Read(a[i].M);
Read(a[i].S);
End;

i:=1;
Repeat
If isMore(a[i],a[i+1]) Then Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
i:=1;
end Else i:=i+1;
Until i>=n;

Writeln;
Writeln('Pезультат:');
For i:=1 to n do Begin
Write(a[i].H); Write(' ');
Write(a[i].M); Write(' ');
Write(a[i].S); Writeln;
End;
ReadLn;
ReadLn;
End.


Вы можете заказать выполнение работы по схожей или другой теме, заполнив форму заказа.
Можете посмотреть другие готовые работы

 
Меню
Главная
Услуги
Способы оплаты
Гарантии
Заказать
Готовые работы
Примеры алгоритмов
Контакты
 
 
Консультации
 
 
  ICQ 588641
 
Электронная почта
911@mathematix.ru
 
Skype
mathematix.ru
 
 
 
  © mathematix - контрольные, курсовые и дипломы по программированию Rambler's Top100