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

[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 6:06

[Krjuger]

Откуда я знаю, что знает ТС,а что нет,уж условие if она должна знать.Я и так только с 3 попытки более менее понял условие задачи,так вот человек обьясняет задачу.
Я вообще не понимаю, зачем нужны в этой задаче перечислимые типы,без них задача решается в разы короче и проще, всего 1 массивом из 4 целых чисел.

Сообщение отредактировано: Krjuger - 17.02.2012 15:08

[Lapp]

Откуда я знаю, что знает ТС,а что нет

А какая тебе разница?.. Решай, как считаешь нужным (то есть наилучшим способом). А на проблемы реагируй, когда они возникнут - зачем придумывать ограничения самому заранее?

только с 3 попытки более менее понял условие задачи,так вот человек обьясняет задачу.

эээ.. ))) у тебя, извини, тоже бывают не совсем понятные посты.. ))
Это один из приятных моментов на форуме - учиться понимать других и ясно выражаться самому. Воспринимай это как бонусную задачу )).

Я вообще не понимаю, зачем нужны в этой задаче перечислимые типы,без них задача решается в разы короче и проще, всего 1 массивом из 4 целых чисел.

В упражнениях часто так - можно проще решить иначе, но нужно использовать именно это. Что же касается именно перечислимых типов - oh boy, я с трудом припоминаю примеры, где они действительно уместны..