Меню сайта

Задача №17

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


Program zap_17-

Uses Crt-

Const n=7-

Type temper = record

dat1,den:string[20]-

t,vl:integer-

end-

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

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите дату’)-

Readln(dat1)-

Writeln(‘ Введите день недели’)-

Readln(den)-

Writeln(‘ Введите температуру воздуха’)-

Readln(t)-

Writeln(‘ Введите влажность’)-

Readln(vl)-

End-

Writeln(‘График изменения температуры’)-

for i:=1 to n do

with a[I] do

writeln (dat1,’ ‘,den,’ ‘,t,’ ‘,vl)-

Readln-

end.

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

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