Технический форум

Технический форум (http://www.tehnari.ru/)
-   Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)
-   -   Помогите составить программу на Паскале (http://www.tehnari.ru/f43/t87257/)

rkfdjxrf 07.04.2013 12:02

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

interacia 07.04.2013 15:16

Цитата:

Определить по номеру вагона является ли он пассажирским,
А как по номеру определить какой вагона является пассажирским а кокой нет.
Ходить заглядывать по вагонам? :turma:
Может есть какие то признаки в номере вагона по которым можно определить?

Цитата:

посчитать кол-во пассажирских и грузовых поездом
Я ходить по вагонам не буду.tehno014
Если кто ни будь принесет файлик с номерами или же сам забьет в программу?tehnosleep
Другими словами как будут поступать данные в программу?

Подозреваю что условие задания не полное.:tehnari_ru_020:

rkfdjxrf 07.04.2013 18:13

номер вагона
 
нужно , чтобы программа сама определяла при забивании номера вагона какой он. например, пассажирские начинаются с 1-3, а грузовые 4 и т.д., т.е. задать произвольно

interacia 07.04.2013 19:11

Вот вам задачка.
Может подойдёт?

Код:

program Poezda;
var
a,Kol,i:integer;
Vagon,kolPas,kolGruz:integer;
begin
i:=0;
a:=1;
kolPas:=0;
kolGruz:=0;
Vagon:=0;
Writeln('предположим что все номера поездов 4 значные');
Writeln('Тогда номера начинающиеся на 1 2 3 будем считать пассажирскими');
Writeln('Вводите номера вагонов пока не надост а когда надоест введите цифру 0');
While (a<>0) do
begin
inc(i);
Writeln('Номер ',i,')поезда ');
Readln(a);
if ((a div 1000)<4)and((a div 1000)>0) then
  begin
  inc(kolPas);
  end;
if ((a div 1000)>3)and((a div 1000)>0) then
  begin
  inc(kolGruz);
  Write('введите количество вагонов в грузовом составе ',a,':');
  Readln(kol);
  Vagon:=Vagon+kol;
  end;
end;
Writeln('кол-во пассажирских поездов',kolPas);
Writeln('кол-во грузовых поездов',kolGruz);
Writeln('кол-во вогонов в грузовых поездах',Vagon);
end.


rkfdjxrf 07.04.2013 19:43

спасибо большое


Часовой пояс GMT +4, время: 22:28.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.