Pascal - Procedury i funkcje

Ilość znaków

Ilość znaków
Pascal - Procedury i funkcje

Program: rysujący określoną ilość znaków.

Prosty program wypisujący ilość znaków podaną wcześniej przez użytkownika. Znakiem jest “$”.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program trojkat;
uses crt;
var w,i,k:integer;
procedure pytaj;
          begin
               write('Podaj ilosc: ');
               read(w);
          end;
begin
clrscr;
pytaj;
        begin
             for k:=1 to w do write('$');
             writeln;
             w:=w+1;
        end;
        readkey;
end.