Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедура и Файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kalipsoo
Извините, что спрашиваю простые вроде задачи, но мне нужно их обязательно сделать и в жатые сроки.А задачи вот такого плана:
1.)

Даны три массива символов.Определить какие символы входят в состав всех 3х массивов.Для решения задачи обязательно нужно исползовать процедуру или функцию.

Задача из разряда проще не куда, но у меня она никак не решается, то ли я в процедурах запутался..вообщем если не сложно, то приведите листинг программы, чтобы я со своим "убожеством" сравнил.

2.)Составить программы с помошью которых:
--сформировать текстовый файл из строк, которые должны быть введены с клавиатуры.
--вывести на экран строки содержащие слово "стоп".

Саму программу вроде написал, только она упрямо выдаёт неправильный результат, опять же если не сложно приложите листинг программы для наглядности.

Заранее спасибо за ответы smile.gif
мисс_граффити
Выкладывай результаты своих трудов... Тогда будет о чем говорить.
Сейчас это будет воспринято так: "Делать лень, решите за меня все"
Kalipsoo
Согласен звучит глупо )) Вот текст первой задачи, только просьба сразу не ругаться, а рассказать что не так, может я чего не понимаю....

1.)

Код
Program ZY;

type xp=array[1..5] of char;

var i:integer;

Procedure find(var a,b,c:xp);

var i:integer;
begin
For i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do readln(b[i]);
for i:=1 to 5 do readln(c[i]);

For i:=1 to 5 do
If (a[i]=b[i]) and (a[i]=c[i]) then writeln(a[i], 'Vxodit v 3 massiva');
end;
BEGIN
find(a,b,c);
end.
Ozzя
2.
var
f: text;
...
assign(f,'1.txt');
rewrite(f);
while s<>'END' do // признак окончания вводa
begin
readln(s);
writeln(f,s);
end;
close(f);
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.