Технический форум - Программа на Паскаль. Множества

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Программа на Паскаль. Множества (http://www.tehnari.ru/f41/t89518/)

demone415

08.07.2013 22:46

Программа на Паскаль. Множества

Дана запись простого арифметического выражения над вещественными числами. Знаки операций, используемых в выражениях: -, +, *, /. Напечатать по одному разу все четные цифры, используемые в записи каждого числа чисел в порядке их появления.

Помогите, пожалуйста.

demone415

08.07.2013 23:08

Вот, я тут набросал:

program LR3_N;
const
A=['2','4','6','8'];
B=['1','2','3','4','5','6','7','8','9','0'];
var f:text;
v:char;
begin
assign(f,'text.txt'); reset(f);
{for i:=1 to length(f) do}
REPEAT
repeat
read(f,v);
until v in B;
If v in A then
write(v:4);
UNTIL EOF(f);
close(f);
end.

Но этот вариант выводит все четные подряд. А нужно без повторений.

Vladimir_S

09.07.2013 09:46

Цитата:

Сообщение от demone415 (Сообщение 927037)

Но этот вариант выводит все четные подряд. А нужно без повторений.

Пожалуйста:

Код:

const

 A=['2','4','6','8'];

 B=['1','2','3','4','5','6','7','8','9','0'];

var

 f:text;

 v:char;

 C:Set of Char;

begin

 C:=[];

 assign(f,'text.txt');

 reset(f);

 REPEAT

  repeat

   read(f,v);

  until v in B;

  If (v in A) and Not(v in C) then

   begin

    write(v:4);

    C:=C+[v];

   end;

 UNTIL EOF(f);

 close(f);

 Readln

end.

Часовой пояс GMT +4, время: 05:24.