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

vetal07

Дата 29.4.2009, 21:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажите что тут исправить

Код


Program lab2zad2naz;
Uses Crt;
Type
Grad=record
g:string;
end;
Var
mas:array[1..10]of grad;
i,j:byte;
kol,kol1:byte;
Procedure Proc;
Begin
   For i:=1 to 10 do
    Begin
    Write('Vvedite gorod #',i,': ');
    Readln(mas[i].g);
    kol1:=0;
    For j:=1 to Length(mas[i].g) do
        Begin
        If (mas[i].g[j]='a')or(mas[i].g[j]='A') Then kol1:=kol1+1;
        end;
    If kol1>1 Then kol:=kol+1;
    End;
   End;
Begin
ClrScr;
kol:=0;
Proc;
Writeln('');
writeln('****************');
Writeln('Kolichestvo gorodov s dvumya bukvami "a": ',kol);
writeln('****************');
Readln;
End.

,

Задача решена через массива с использованием Reccord,а нужно без него,впринципе тут не трудно только надо по убирать массивы,а у меня всеравно что то не получаеться,плиз подскажите!!!

ФедосеевПавел

Дата 29.4.2009, 22:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Ну и убери массивы. Объяви переменную - Town : String - и её и обрабатывай в цикле вместо mas[i].g
Т.е. "в упор" выполни замену строки "mas[i].g" на строку "Town" во всём тексте программы.

vetal07

Дата 29.4.2009, 22:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Точнее я не пойму как тут изменить в этой строчке
If (mas[i].g[j]='a')or(mas[i].g[j]='A') Then kol1:=kol1+1; если mas[i] на Town а с этим как быть g[j]???

Это сообщение отредактировал(а) vetal07 - 29.4.2009, 22:13

ФедосеевПавел

Дата 29.4.2009, 22:17 (ссылка)

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

Загрузка ...

Опытный

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

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

Код

If (Town[j]='a')or(Town[j]='A') Then kol1:=kol1+1;

volvo877

Дата 29.4.2009, 23:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Зачем здесь вообще двойные условия - непонятно...

Код

if UpCase(Town[j])='A' then ...
{ или }
if Town[j] in ['a', 'A'] then ...

vetal07

Дата 30.4.2009, 04:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем огромное спасибо за помошь smile

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