Переделайте с процедурами. Опции

[TreyOl]

Готовая программа, только требуют с процедурами что бы были команды.

помогитею

Код

uses crt;
const n=4;

type city=record
name:string;
nar: byte;
kol: integer;
end;

var
temp:string;
arr :array[1..n] of city;
i,max,q:integer;
Ans,nam:string;
Tname:string;
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('Введите город');
readln(temp);
for i:=1 to n do
  if temp=arr[i].name then Tname:=arr[i].name;

  if (temp<> arr[1].name) and (temp <> arr[2].name) and (temp<> arr[3].name) and (temp<>arr[4].name) then writeln('Вы ввели неверный город');
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('Производить ввод данных?(y/n)');
readln(ans);
until ans<>'y';

for i:=1 to n do
begin
writeln(i,' ', arr[i].kol);
  if max < arr[i].kol  then begin max:=arr[i].kol;
q:=i;

       end;
       end;
       writeln('Максимальное количество наркоманов в городе ',arr[q].name,', их ', max);


end.

[Krjuger]

Ну не создавай ты новые темы,пиши в предыдущих,а по делу

требуют с процедурами что бы были команды.

С процедурами это понятно,но вот обьясни, что за команды?футбольные чтоли? наркоманы на команды разбились?Пожалуйста,пиши болеее развернуто,что тебе нужно.Тогда тебе быстрее и правильнее ответят.Если вы все таки отказались от использования перечислимых типов,то ваш код можно изрядно сократить.Например надобность в переменной Tname вообще отпала, можно смело удалить все,где оно попадается.
if Tname=arr[i].name then станет if temp=arr[i].name then

[TreyOl]

Ну не создавай ты новые темы,пиши в предыдущих,а по делу

Нужно использовать модуль и соответственно + процедуры.

эта часть идет как отдельная процедура

writeln('Введите город');
 readln(temp);
 for i:=1 to n do
  if temp=arr[i].name then Tname:=arr[i].name; 

  if (temp<> arr[1].name) and (temp <> arr[2].name) and (temp<> arr[3].name) and (temp<>arr[4].name) then writeln('Вы ввели неверный город');

потом эта

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('Производить ввод данных?(y/n)');
readln(ans);

и последняя

for i:=1 to n do
begin
 writeln(i,' ', arr[i].kol);
  if max < arr[i].kol  then begin max:=arr[i].kol;
 q:=i;

	   end;
	   end;

просьба использовать паскалевские теги (см. п.2 вверху этой страницы)

Сообщение отредактировано: Lapp - 22.02.2012 15:40