- 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
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
program kot;
var r,i,j, z : integer ;
famnom: array[1..11,1..26] of char;
Label lb1, lb2;
begin
Assign(input, 'c:\pascal\kot.txt');
Reset(input);
Assign(output, 'c:\pascal\tok.txt');
Rewrite(output);
for j:=1 to 10 do
for i:=1 to 26 do (*каждому символу присваивается свой номер в массиве*)
begin
read(input,famnom[j,i]);
write(famnom[j,i]); (*исходные данные копируются в файл*)
end;
writeln('');
writeln('');
close(input);
Assign(input, 'c:\pascal\kot.txt');
Reset(input);
begin
lb1 : for j:=1 to 10 do
begin
i:= 16;
while famnom[j,i]=famnom[j+1,i] do
i:=i+1; (*блабла*)
if famnom[j,i]<famnom[j+1,i] then
begin
for i := 1 to 26 do
begin
famnom[11,i]:=famnom[j,i]; (*сравниваются символы короч*)
famnom[j,i]:=famnom[j+1,i];
famnom[j+1,i]:=famnom[11,i];
end;
goto lb1;
end;
end;
end;
for j:=1 to 10 do
for i:= 1 to 26 do
begin
write(famnom[j,i]);
end;
close(input);
close(output);
end.
guest 23.07.2009 13:11 # −3
guest 23.07.2009 13:19 # 0
guest 24.07.2009 08:09 # 0
guest 05.08.2009 12:43 # 0
Например, зачем два раза считывать вводные данные?
guest 11.08.2009 09:20 # 0
labutinpa 14.08.2009 01:14 # 0
Это сейчас - ужас. Потом привыкнете. Как паталогоанатомы к трупам.
guest 24.12.2009 14:42 # 0
bugmenot 02.06.2010 12:05 # 0