Паскаль

[kickmaster]

Паскаль

Доброго времени суток, помогите пожалуйста решить задачу Free Pascal Lazarus.
Множества
Var A,B: set of char; x: char; Переменной B присвоить множество полученное из А
А) Добавлением элемента x
Б) Удалением элемента х
Вот моя наработка:

 Var A,B: set of char; x: char; i:integer;
begin
  A:=['A','B'..'Z'];
  B:=[];
  writeln ('x');
  readln(x);
  B:=A-[x];
  B:=A+[x];
  writeln ('множество B') ;
  for i:= 0 to 255 do
  begin if char(i)In B then
  write (char (i));
    end;
  readln
end 
[CODE][CODE]

[/CODE][/CODE]

 

[Vladimir_S]

Вот моя наработка:

Исправил ошибки:

Var
 A,B: set of char;
 x: char;
 i:integer;
begin
  A:=['A'..'M'];
  writeln('Set A:') ;
  for i:= 65 to 90 do
   if chr(i) in A then write(chr(i)+' ');
  Writeln;
  write('x (A..M): ');
  readln(x);
  B:=A-[x];
  writeln('Set B (-):') ;
  for i:= 65 to 90 do
   if chr(i) in B then write(chr(i)+' ');
  writeln;
  write('x (N..Z): ');
  readln(x);
  B:=A+[x];
  writeln('Set B (+):') ;
  for i:= 65 to 90 do
   if chr(i) in B then write(chr(i)+' ');
  readln
end.

Вообще у меня создается впечатление, что Вы либо не пользуетесь транслятором, либо у Вас его нет вовсе. Нет, так Вы ничему не научитесь. Устанавливайте транслятор, компилируйте свои программы, запускайте, отлавливайте ошибки. Уж поверьте, это - единственный способ научиться основам программирования. А от писания программ на бумажке или в текстовом редакторе толку практически никакого, уверяю Вас.

 

[AlexZir]

Free Pascal Lazarus

вообще убило!

Владимир, какая может идти речь о трансляторе, если топикстартер Free Pascal IDE с бесплатным аналогом Delphi объединяет воедино

 

[Vladimir_S]

вообще убило!

Владимир, какая может идти речь о трансляторе, если топикстартер Free Pascal IDE с бесплатным аналогом Delphi объединяет воедино

Да ладно, Лёша, ну запятую товарищ пропустил! Да пусть бы хоть какой Паскаль поставил, даже этот, не при дамах будь сказано, АВС. Чего, разумеется, НЕ рекомендую. Ну там Turbo или Free - другое дело. Даже ANSI сойдёт, впрочем, это скорее в порядке шутки юмора. В Lazarus'е надо еще с библиотеками разбираться, там какие-то кодировщики подключаются, еще что-то...

 

[kickmaster]

Спасибо огромное