- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
Program L_121;
uses crt;
Var N : integer;
b,z : string;
f1 : text;
Begin
assign(f1,'Единица измерения.txt');
writeln('1 Соотношение конкретной единицы измерения длины');
writeln('2 Соотношение единиц измерения длины');
writeln('3 Обозначение единиц измерения длины');
writeln('4 Назначение единиц измерения длины');
read(N);clrscr;
reset(f1);
case N of
1:begin
write('Введите единицу измерения : ');
read(b);clrscr;
readln(f1,z);writeln(z);
if b='миллиметр' then begin readln(f1,z);writeln(z); end;
if b='сантиметр' then begin readln(f1,z);readln(f1,z);writeln(z); end;
if b='дециметр' then begin readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
if b='метр' then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
if b='километр' then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z); end;
end;
2:begin
readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
end;
3:begin
readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
end;
4:begin
readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
readln(f1,z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
end;
end;
End.