Персональная страничка
Диканева Тараса
Викторовича

Главная \ Преподавательское \ Программирование для начинающих

15. Записи

Предыдущий раздел:

Следующий раздел:

Задание 15: Записи

1. Время суток задается в формате чч:мм:сс. Создайте процедуру, которая по заданному времени вычисляет, какое время получится через одну минуту. Для хранения информации о времени используйте тип запись.

2. Создайте процедуру, которая будет печатать запись из предыдущей задачи в формате чч:мм:сс. Скажем, если поля записи равны 12 (часы), 5 (минуты) и 0 (секунды), процедура должна сформировать и напечатать строку 12:05:00.

3. Определите тип данных, хранящий информацию о прямой. Создайте процедуру, вычисляющую прямую, проходящую через 2 точки.

4. Создайте текстовый файл, хранящий информацию из багажной ведомость камеры хранения, включив следующую информацию: ФИО пассажира, количество и общий вес вещей. Выведите в новый файл записи о пассажирах, суммарный вес вещей которых больше 10кг.

5. Составьте список студентов, включающий ФИО и 5 оценок. Напишите программу, удаляющую из списка тех, кто имеет хотя бы одну двойку.

Следующий раздел:

Предыдущий раздел:

1 комментарий

  1. Helene

    Использовала строки для записи времени, потому как цифрами не передашь 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.

Добавить комментарий