Меню сайта

Задача №7

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


Program zap_7-

Uses Crt-

Const n=10-

Type reys = record

N : integer-

Stan_ot, Stan_pr,vrem, vrem_p:string[10]-

end-

Var a : array[1..n] of reys-

i :byte-

g:string-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘N поезда ‘,I)-

Readln(N)-

Writeln(‘Станция отправления’)-

Readln(stan_ot)-

Writeln(‘Станция прибытия’)-

Readln(stan_pr)-

Writeln(‘Время прибытия’)-

Readln(vrem)-

Writeln(‘Время в пути’)-

Readln(vrem_p)-

end-

for i:=1 to n do

with a[I] do

writeln (N:4,’ ‘,stan_ot,’ ‘,stan_pr,’ ‘,vrem, ‘ ‘,vrem_p)-

Readln-

end.

Категория: Записи | Дата: 20.01.13

Меню раздела
Блок