циклы while...do и repeat...until.

[deniks]

Ребят, помогите плз с написанием

Задание:
Написать две программы, которые выводят на экран заданный набор символов. Одна программа должна использовать только цикл while...do, а другая repeat...until. Массивы и строки не применять.

Как должно выводить...

I
I G
I G E
I G E C
I G E C A

[slips]

Если ничего не напутал то так

var
i:Integer;
          begin 
          i:=0;
          repeat 
                  case i of 
                             0: writeln('I');
                             1: writeln('I G');
                             2: writeln('I G E');
                             3: writeln('I G E C');
                             4: writeln('I G E C');
                         end;
          inc(i);
          until i=5;

var 
  I:Inteher;
              begin
                      i:=0;
                       while i<5 do  
                                        begin
                                         case i of 
                                                    0: writeln('I');
                                                    1: writeln('I G');
                                                    2: writeln('I G E');
                                                    3: writeln('I G E C');
                                                    4: writeln('I G E C');
                                              end;
                                           inc(i);
                                        end;
              end;

[slips]

4: writeln('I G E C А'); вот так правильнее

[Викдон]

массивы не применять в смысле для вывода или даже для хранения символов?

[deniks]

Сообщение от Викдон

массивы не применять в смысле для вывода или даже для хранения символов?

Их вообще ни как не применять, даже для хранения символов.

[puporev]

Вот обе задачи в одной, если надо разделишь.

uses crt;
var i,j:integer;
begin
clrscr;
i:=1;
while i<=5 do
  begin
    j:=1;
    while j<=i do
      begin
       write(chr(ord(74-2*j+1)),' ');
       inc(j);
      end;
    writeln;
   inc(i);
  end;
readln;
i:=0;
repeat
inc(i);j:=0;
  repeat
   inc(j);
   write(chr(ord(74-2*j+1)),' ');
  until j=i;
writeln;
until i=5;
readln;
end.

[puporev]

Вообще-то строку (chr(ord(74-2*j+1)),' '); лучше переписать
(chr(ord(73-2*(j-1))),' '); это более логично (73-код символа I)