Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 3
Регистрация: 05.09.2012
Сообщений: 55

Задача "Расписание движения"

31.12.2013, 19:56. Показов 1268. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста, решить задачу!
Миниатюры
Задача "Расписание движения"  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
31.12.2013, 19:56
Ответы с готовыми решениями:

Записи: расписание движения самолетов
1.Выполнить на ЭВМ программу с использованием типа данных «запись». Пояснение: Дано расписание движения самолетов. Расписание...

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

Составить программу, выводящую на экран расписание движения поездов
Люди, пытался создать программу с такой задачей: Составить программу, выводящую на экран расписание движения поездов при помощи record....

4
For i:=0 to 150 do
 Аватар для El41
225 / 105 / 108
Регистрация: 05.01.2012
Сообщений: 287
03.01.2014, 20:34
Добавлено через 10 минут
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
var
  f1, f2: text;
  V: array[1..100] of integer;
  T: array[1..100] of integer;
  L: Integer;N, I: integer;
  d, x: real;
 
begin
  Assign(f1, 'input.txt');
  Reset(f1);
  
  i := 1;
  
  Read(f1, L, N); //заполним переменные
  i := 1;
  while not eof(f1) do
  begin
    read(f1, T[i], V[i]);//заполним массивы
    inc(i);
    
  end;
  
  for i := 1 to N do
  begin
    write(T[i], ' ', V[i], ' ');
    writeln;
  end;
  
  for i := 1 to 4 do
  begin
    if V[i] = 0
      then d := d + T[i]
   else
    begin
    x := d * v[i];
    if x < l
      then
    begin
      x := l - x;
      d := d + x / v[i];
    end;end;
    
  end;
  Close(f1);
  Assign(f2, 'output.txt');
  Rewrite(f2);
  
  writeLn('L=', L);
  writeLn('N=', N);
  Writeln(f2,d:5:3);
  Close(f2);
  
  
end.
Вроде верно.
0
1 / 1 / 3
Регистрация: 05.09.2012
Сообщений: 55
04.01.2014, 17:51  [ТС]
Проходит только 4 теста из 11.
0
For i:=0 to 150 do
 Аватар для El41
225 / 105 / 108
Регистрация: 05.01.2012
Сообщений: 287
05.01.2014, 00:12
У меня не было тестов, для прогонки.Если вы их скинете, то посмотрю как исправить.
0
0 / 0 / 0
Регистрация: 04.01.2014
Сообщений: 8
05.01.2014, 00:30
сайт на котором задачка случайно не informatics.mccme.ru?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.01.2014, 00:30
Помогаю со студенческими работами здесь

Задача Расписание турнира
Как известно, командные спортивные соревнования часто проводятся по круговой системе, когда любые две команды должны сыграть между собой...

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

Расписание движения поездов
Помогите, пожалуйста, с курсовой работой. Надо создать программу с расписанием движения поездов, их промежуточными станциями, временем...

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

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru