Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
9 / 9 / 0
Регистрация: 15.01.2010
Сообщений: 9
1

Написать программу, которая позволяет получит следующую информацию

18.01.2010, 03:06. Показов 695. Ответов 6
Метки нет (Все метки)

Написать программу, которая позволяет получит следующую информацию:
- всю программу телепередач на день;
- по введенному с клавиатуры времени выдать название передачи, которая будет транслироваться в это время;
- название самой длинной и самой короткой (по длительности) телепередачи.
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2010, 03:06
Ответы с готовыми решениями:

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

Написать программу которая позволяет за один сеанс работы добавить информацию о нескольких людях в файл
Написать программу которая позволяет за один сеанс работы добавить информацию о нескольких людях в...

Написать програму которая выдает следующую информацию
создать файл в котором даные про сотрудников фирмы - фамилия,название отдела, должность ,...

Написать программу, выдающую на печать следующую информацию: фамилию сборщика и общее количество деталей
Б. Написать программу, выдающую на печать следующую информацию: фамилию сборщика и общее количество...

__________________
6
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
18.01.2010, 03:26 2
Для какого ТВ-канала?
0
9 / 9 / 0
Регистрация: 15.01.2010
Сообщений: 9
18.01.2010, 03:29  [ТС] 3
не имеет значения
1
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
18.01.2010, 04:30 4
Примерно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Uses Crt;
 
Type
    TTVShow = record
     Title: String;
     Time: String;
    end;
 
    TTVShowList = record
     Chanel: String;
     Date: String;
     Count: Integer;
     List: Array[1..9] of TTVShow;
    end;
 
procedure SetTVShow(var TVShow: TTVShow; Time,Title: String);
begin
 TVShow.Time := Time;
 TVShow.Title := Title;
end;
 
Var
   TV1: TTVShowList;
   Choice,i: Integer;
   Time: String;
begin
 ClrScr;
 TV1.Chanel := '1';
 TV1.Date := '18.01.2010';
 TV1.Count := 9;
 SetTVShow(TV1.List[1],'00:40','Молодожены');
 SetTVShow(TV1.List[2],'02:30','Путь Карлито: Восхождение к власти');
 SetTVShow(TV1.List[3],'04:00','Акула');
 SetTVShow(TV1.List[4],'05:00','Новости');
 SetTVShow(TV1.List[5],'05:05','Телеканал "Доброе утро"');
 SetTVShow(TV1.List[6],'09:00','Новости');
 SetTVShow(TV1.List[7],'09:20','Малахов+');
 SetTVShow(TV1.List[8],'10:20','Модный приговор');
 SetTVShow(TV1.List[9],'11:20','Контрольная закупка');
 repeat
  WriteLn('(0) - Список телепередач');
  WriteLn('(1) - Телепередача по времени');
  WriteLn('(9) - Выход');
  Write('Ваш выбор: '); ReadLn(Choice);
  case Choice
  of 0: for i := 1 to TV1.Count
        do WriteLn(TV1.List[i].Time:6,' ',TV1.List[i].Title);
     1: begin
        Write('Укажите время: ');
        ReadLn(Time);
        for i := 1 to TV1.Count
        do if TV1.List[i].Time = Time
           then WriteLn(TV1.List[i].Time:6,' ',TV1.List[i].Title);
        end;
     9: Break;
  end;
 until False;
end.
Последнюю часть доделывайте сами.
1
9 / 9 / 0
Регистрация: 15.01.2010
Сообщений: 9
18.01.2010, 04:52  [ТС] 5
Страдалецъ, Ну помогите, пожалуйста, со второй частью: Написать программу, которая создает файл, который содержит информацию о расписании телепередач на день. Структура записи: название передачи, время начала передачи, время окончания передачи.
2
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
18.01.2010, 04:55 6
Не, я уже сплю.
0
9 / 9 / 0
Регистрация: 15.01.2010
Сообщений: 9
18.01.2010, 04:57  [ТС] 7
Страдалецъ, Извините за беспокойство, но а до 9 утра сможете? Просто мне капец если не будет проги.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2010, 04:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Написать программу, выдающую на печать следующую информацию: фамилию пассажира и нашли вес багажа
Написать программу, выдающую на печать следующую информацию: фамилию пассажира и нашли вес багажа;...

Написать программу, которая позволяет вводить целочисленную матрицу
1) Написать программу, которая позволяет вводить одномерный целочис-ленный массив из 10 элементов и...

Написать программу, которая позволяет нарисовать закрашенный треугольник
Задание 4. Написать программу, которая позволяет нарисовать закрашенный треугольник. ...

Написать программу, которая позволяет просматривать текстовые файлы
Написать программу, которая позволяет просматривать текстовые файлы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.