|
Персональная страничка
| |
1. Линейные программы: арифметические операторы, стандартные функции и ввод/вывод в текстовом режиме
15. Записи
Предыдущий раздел:
15.4. Примеры использования записейСледующий раздел:
16.1. Ссылочные типы и указателиЗадание 15: Записи
1. Время суток задается в формате чч:мм:сс. Создайте процедуру, которая по заданному времени вычисляет, какое время получится через одну минуту. Для хранения информации о времени используйте тип запись.
2. Создайте процедуру, которая будет печатать запись из предыдущей задачи в формате чч:мм:сс. Скажем, если поля записи равны 12 (часы), 5 (минуты) и 0 (секунды), процедура должна сформировать и напечатать строку 12:05:00.
3. Определите тип данных, хранящий информацию о прямой. Создайте процедуру, вычисляющую прямую, проходящую через 2 точки.
4. Создайте текстовый файл, хранящий информацию из багажной ведомость камеры хранения, включив следующую информацию: ФИО пассажира, количество и общий вес вещей. Выведите в новый файл записи о пассажирах, суммарный вес вещей которых больше 10кг.
5. Составьте список студентов, включающий ФИО и 5 оценок. Напишите программу, удаляющую из списка тех, кто имеет хотя бы одну двойку.
Следующий раздел:
Предыдущий раздел:
1 комментарий
|
Copyright 2010 by Dikanev Taras
|
|
Использовала строки для записи времени, потому как цифрами не передашь 00 01, это не нарушает условие задачи?
program Vremya;
type
TVremya = record
ch: 0..23;
mm: 0..59;
ss: 0..59;
end;
var
s: TVremya;
procedure Minuta(s:TVremya);
Var
a, b, c: string;
n:integer;
begin
if s.mm=59 then
begin
s.mm:=0;
s.ch:=s.ch+1;
end
else
s.mm:=s.mm+1;
if s.ch=24 then
s.ch:=0;
str(s.ss,c);
str(s.mm,b);
str(s.ch,a);
repeat
if s.ch>24 then begin writeln (false); break end;
if s.mm>59 then begin writeln (false); break end;
if s.ss>59 then begin writeln (false); break end;
if s.ch<=9 then a:='0'+a;
if s.mm<=9 then b:='0'+b;
if s.ss<=9 then c:='0'+c;
writeln(a, ':', b, ':', c);
n:=1;
until n=1;
end;
begin
writeln ('Введите время:');
writeln ('часы:');
readln (s.ch);
writeln ('минуты');
readln (s.mm);
writeln ('секунды');
readln(s.ss);
writeln ('Через 1 минуту будет:');
Minuta(s);
end.