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

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

Форум «Всё о Паскале» _ Задачи _ Процедура и Файлы

Автор: Kalipsoo 21.11.2007 2:59

Извините, что спрашиваю простые вроде задачи, но мне нужно их обязательно сделать и в жатые сроки.А задачи вот такого плана:
1.)

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

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

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

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

Заранее спасибо за ответы smile.gif

Автор: мисс_граффити 21.11.2007 4:18

Выкладывай результаты своих трудов... Тогда будет о чем говорить.
Сейчас это будет воспринято так: "Делать лень, решите за меня все"

Автор: Kalipsoo 21.11.2007 17:14

Согласен звучит глупо )) Вот текст первой задачи, только просьба сразу не ругаться, а рассказать что не так, может я чего не понимаю....

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я 23.11.2007 17:19

2.

var
f: text;
...
assign(f,'1.txt');
rewrite(f);
while s<>'END' do // признак окончания вводa
begin
readln(s);
writeln(f,s);
end;
close(f);
...