Массив записей. Сведения об отправлении поездов дальнего следования

@trouble135 · Регистрация: 02.03.2012

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

Kodzaev · 05.04.2012, 18:55

Pascal

Uses crt;
Type
book=Record
num: Integer;
gor: String;
tim: String;
end;
Var
x: Array[1..100] of book;
i,n,k: Integer;
s: String;
BEGIN
Clrscr;
Writeln('Введите кол-во поездов: '); Readln(n);
For i:=1 to n do
begin
  Writeln('Номер поезда: '); Readln(x[i].num);
  Writeln('Город назначения: '); Readln(x[i].gor);
  Writeln('Время отправления: '); Readln(x[i].tim);
end;
Writeln('Введите нужный город: '); Readln(s);
For i:=1 to n do
If x[i].gor=s Then Inc(k);
Writeln('Количество поездов которые следуют в ',s,' - ',k);
Readln
END.

@trouble135 0 / 0 / 1 Регистрация: 02.03.2012 Сообщений: 46
		1
	Массив записей. Сведения об отправлении поездов дальнего следования 05.04.2012, 17:52. Показов 1411. Ответов 1 Метки нет (Все метки) Ввести массив записей, который содержит сведения об отправлении поездов дальнего следования : номер поезда, город назначения, время отправления.Вывести на экран количество поездов, которые следуют в указанный город. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Массив записей. Сведения об отправлении поездов дальнего следования

Решение