Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задачки по процедурам и функциям

Автор: nekkit 10.05.2006 16:40

Привет всем!
Вот задачка (циклы)
Эту задачку нужно переделать (Процедуры и Функции) в два варианта
1) чтобы была процедура
2) функция
В компьютер по очереди вводят расстояние от Москвы до областных центров
России. По мере поступления информации в компьютер печатать расстояние
самого удаленного города из тех, что уже обработаны.

Код

Program Zadacha22;
Var
  b,Kol,MaxKm:Integer;
  City,maxcity:String;
Begin
  ClrScr;
  MaxKm:=0;
  maxcity:=' ';
  Write('Сколько проанализируем городов?');
  Readln(Kol);
  For b:=1 to kol do
    Begin
      Write('введите город:');
      Readln(City);
      Write('Расстояние от Москвы до',City,'=');
      Readln(Km);
      if MaxKm<Km
        then
          Begin
            Maxkm:=km;
            maxcity:=City;
          end;
       End;
    Write('Самое большое расстояние от Москвы до',MaxCity,'=',Maxkm);
    Readln;
End.