Строки в массиве двумерном, строки Опции

[Zundell]

Ребят подскажите пожалуйста,вот мне нужно запонить массив (двумерный) строками(чтоб была первая строка,вторая строка,третья и т.д),после этого необходимо проверить встречается ли хотя бы в трех строках цифры и знаки сравнения.Задачу решить с использованием множеств.Беда в чем,в том что я не могу заполнить массив символами,т.е сделать строки.(я как понимаю необходимо ввести строку,затем с помощью length посчитать длинну строки и дальше посимвольно записать первый символ в a[1,j],и так далее).Проверку на вхождение символов я знаю как делать..но вот с вводом не моглибы помочь?заранее благодарен.

[мисс_граффити]

ну давай разбираться...

Const
z=10;
var
a:array[1..10,1..100] of char;
str:string[100];
i,j,n,m:integer;
f1:boolean;
p:set of char;
begin
f1:=false;
p:=['1'..'9'];
writeln('vvedite kolvo strok');
readln(m); {итак, m - это количество задействованных строк. хорошо бы проверять, что m<=10... ну ладно}
for i:=1 to m do
  begin
  writeln('vvedite stroku ravnuju 10 simvolam'); {в чем глубокий смысл этой просьбы? зачем выделяем 100 ячеек под строку, если ее длина равна 10?}
  readln(str);
  n:=length(str); {просили ввести строку длины 10, а теперь определяем ее длину. не верим пользователю?}
  for j:=1 to n do 
    a[i,j]:=str[j];
  end;
{вот в этом месте n равно длине последней строки, m равно количеству строк}
writeln('  ');
for i:=1 to m do {до m, логично}
  begin
  for j:=1 to n do {почему до n? а если какая-то строка короче или длиннее последней?}
    write(a[i,j],' ');
  writeln;
  end;
for i:=1 to 3 do {откуда берется 3? это что-то новенькое...}
  for j:=1 to n do {опять же - n}
  begin
    if a[i,j] in p then {типа f1:=a[i,j] in p? то есть только один символ тебя интересует?}
    f1:=true else
    f1:=false;
  end;
if f1 then writeln('est') else writeln('net'); {если бы ты расставил отступы, то увидел бы, что это не в цикле... или ты и не хочешь писать для каждой строки?}
readln;
end. 

Сообщение отредактировано: мисс_граффити - 5.02.2007 19:40