VPF::Использование строковых переменных #2

vetal07

Дата 30.4.2009, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2009

Репутация: нет
Всего: нет

Подскажите как правильно в эту решенную и работающую программу добавить оператор With.Я пробовал и у меня не получилось,постоянно выводит ошибку 75.

Код

program zad1lab2naz;
Uses crt;
type t=array[1..8] of string[20];
     tt=array[1..8] of integer;
var
s:t;
n:tt;
i, max: integer;
Procedure Poisk;
   Begin
   writeln('');
   Writeln('*****************');
   max:=n[1];
   for i:=2 to 8 do
     if max<n[i] then max:=n[i];
   for i:=1 to 8 do
   if n[i]=max then
   writeln('Samaya dlinnaya familiya: ',s[i]);
   Writeln('*****************');
   end;
begin
clrscr;
 for i:=1 to 8 do
  begin
    write('Vv-te ',i,' slovo: ');
    readln(s[i]);
    n[i]:=length(s[i]);
  end;
Poisk;
readln;
end.

volvo877

Дата 30.4.2009, 17:12 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

vetal07, ты что, издеваешься? Вчера ты привел программу в которой используется запись, но тебе надо было от нее избавиться. Сегодня ты приводишь программу БЕЗ записей (и без With, естественно), и тебе надо в нее эти Record-ы запихать... Причем ни в первом, ни во втором случае ты не соизволил ни привести СВОИХ попыток решить задачу, ни собственно ПОСТАНОВКУ задачи... Типа, есть, она правильная, не ваше дело, что она делает, мне сюда надо With??? Что, нагуглил только решение, которое не подходит, а теперь мечешься в попытке спихнуть кому-то чтоб исправили? Продолжай метаться дальше...

Ошибку 75 у него выдает... Вот у меня почему-то не выдает. Но раз ты мне не показываешь твою попытку решения, то я тебе свое решение тоже не покажу. Можешь идти сдавать, решение существует...

vetal07

Дата 30.4.2009, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2009

Репутация: нет
Всего: нет

топик удалите,я не то написал,ошибся smile

P.S и задачки я сам решил,по аналогу другим,а не с гуглил smile

Это сообщение отредактировал(а) vetal07 - 30.4.2009, 20:02

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »