Программа о статистике употребления наркотиков в разных городах, Помогите подредактировать. Опции

[TreyOl]

(начало тут: помогите.[двумерные массивы+записи] , Lapp )

В N городах провели обследование жителей на предмет употребления или не-употребления ими наркотиков (1 - употребляет, 0 - не употребляет). Результаты обсле-дования жителей поступают не упорядоченными по городам. Определить города с мак-симальной тенденцией к употреблению наркотиков.

uses crt;
const n=4;
type
 town=(Magnitogorsk,Saratov,Moscow,Perm);
type city=record
name:town;
nar: byte;
kol: integer;
end;

var
temp:string;
arr :array[1..n] of city;
i:integer;
Ans:char;
Tname:town;
begin
arr[1].name:=Magnitogorsk;
arr[2].name:=Saratov;
arr[3].name:=Moscow;
arr[4].name:=Perm;
arr[1].kol:=0;
arr[2].kol:=0;
arr[3].kol:=0;
arr[4].kol:=0;
repeat
 writeln('Vvedite gorod');
 readln(temp);
 if temp='Magnitogorsk' then
	Tname:=Magnitogorsk
 else
  if temp='Saratov' then
	Tname:=Saratov
  else
	if temp='Moscow' then
	   Tname:=Moscow
	else
	  if temp='Perm' then
		 Tname:=Perm
	  else
		writeln('Vi vveli neverniy gorod');

for i:=1 to n do
 if Tname=arr[i].name then
 begin
	writeln('употребляешь нарктотики?');
	readln(arr[i].nar);
	if arr[i].nar=1 then
	 arr[i].kol:=arr[i].kol+1;
  end;
writeln('prodolzit* vvod?(y/n)');
Ans:=readkey;
until ans<>'y';
for i:=1 to n do
 writeln(i,' ', arr[i].kol);

readln;
end.

Сообщение отредактировано: Lapp - 17.02.2012 10:06

[Krjuger]

А попросить помощи в старой теме,где основа сего творенья была написана, религия не позволяет???
Для того,чтобы вывести город с максимальным результатом,его дня начала надо найти,что было вам сказано еще в прошлый раз...Более того, вариант, когда вместо одного из городов вы напишите какую-нибудь лабуду, работать не станет, угадайте почему А сам вывод будет практически идентичным тому,как делался ввод.

if Res=Magnitogorsk then
    writeln('Magnitogorsk')
else
  if Res=Saratov then  
      writeln('Saratov')
  else
    if Res=Moscow then
       writeln('Moscow')
    else 
       writeln('Perm');

Ну а как найти максимум и присвоить значение соотв. города переменной Res, придумайте сами, кстати Res: town;

[Lapp]

Юля, Крюгер прав, лучше было бы продолжить старую тему. Я не стал объединять, но название именил (читай Правила!)

По теме..
Крюгер, а почему бы не употребить оператор case? Он как раз для таких случаев сделан.

case Res of
  Magnitogorsk: writeln('Magnitogorsk');
  Saratov: writeln('Saratov');
  Moscow: writeln('Moscow');
  Perm: writeln('Perm');
  else writeln('town is not recognized');
end;

Но я бы посоветовал сделать не так, а вот так..
Вставь после описания типа town:

const
  TownName: array[town] of string[20]= ('Magnitogorsk','Saratov','Moscow','Perm');

А при выводе результата поступай так:

writeln('Самый наркозависимый город: ',TownName[Res]);