Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Udzin
3 / 3 / 1
Регистрация: 06.06.2010
Сообщений: 55
#1

По данным о расписании движения пригородных поездов определите значение наибольшего интервала времени между отправлениями поездов. - Turbo Pascal

28.09.2010, 18:38. Просмотров 715. Ответов 1
Метки нет (Все метки)

По данным о расписании движения пригородных поездов определите значение наибольшего интервала времени между отправлениями поездов.

Помогите!!!!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 18:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос По данным о расписании движения пригородных поездов определите значение наибольшего интервала времени между отправлениями поездов. (Turbo Pascal):

Массив записей содержит информацию о расписании поездов - Turbo Pascal
Массив записей содержит информацию о расписании поездов: номер поезда, направление (откуда – куда, например Волгоград – Москва), время...

Расписание движения поездов - Turbo Pascal
program Project2; {$APPTYPE CONSOLE} uses SysUtils, Windows; const n=20; type traininfo=record

Расписание движения поездов - Turbo Pascal
Создать массив-расписание движения, храняший информацию о 20 поездах отправляющихся со станции Москва. каждый элемент расписания содержит :...

Записи: расписание движения поездов - Pascal
Составить программу выводящую на экран расписание движения поездов(станция отправления,станция прибытия,время прибытия и время в...

Составить программу, выводящую на экран расписание движения поездов - Pascal
Ребята, срочно надо сдать отчет в универ. Никак не могу сделать. Дура наверное. Помогите пожалуйста бедной девушке!!!!! Добавлено...

Ввести массив записей, который вмещает расписание движения поездов - Turbo Pascal
Доброго времени суток! помогите с заданием пжл: Ввести массив записей, который вмещает расписание движения поездов. Элемент массива...

1
Tronix
157 / 104 / 5
Регистрация: 22.08.2010
Сообщений: 215
28.09.2010, 19:50 #2
Взято из SWAG
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
{From: Scott Stone <Scott.Stone@m.cc.utah.edu> }
 
Procedure CompTimes(t1,t2 : string);
Var
  h1,h2,m1,m2,s1,s2 : string;
  x0,x1,x2,x3,x4,x5,sec0,sec1 : integer;
  err : integer;
  timediff : integer;
Begin
  h1:=t1[1]+t1[2];
  h2:=t2[1]+t2[2];
  m1:=t1[4]+t1[5];
  m2:=t2[4]+t2[5];
  s1:=t1[7]+t1[8];
  s2:=t2[7]+t2[8];
  val(h1,x0,err);
  val(h2,x1,err);
  val(m1,x2,err);
  val(m2,x3,err);
  val(s1,x4,err);
  val(s2,x5,err);
  sec0:=((3600*x0)+(60*x2)+(x4));
  sec1:=((3600*x1)+(60*x3)+(x5));
  timediff:=abs(sec1-sec0);
  writeln('Time Difference is ',timediff,' seconds.');
End;
 
begin
  CompTimes('11:23:31','16:32:21');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2010, 19:50
Привет! Вот еще темы с ответами:

Пусть дан файл целых чисел. Определите длину наибольшего интервала возрастания и среднее арифметическое чисел этого интервала - Turbo Pascal
Пусть дан файл целых чисел. Определите длину наибольшего интервала возрастания и среднее арифметическое чисел этого интервала.

Найти скорости поездов - Turbo Pascal
пассажирский поезд в течение т1 часа проходит на 10 км. больше, чем товарный в течение т2 часа. скорость товарного поезда на 20км / ч...

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

Записи: формирование расписания поездов - Turbo Pascal
использую записи написать программу которая формирует расписание поездов. Расписание включаеи в себя номер поезда, пункт назначения, время...


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

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

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