Powiedz mi po kolej jak mam ten kod odczytać i przekazać na forum Dodano po 7 : aktualna wersja programu nadal jest błąd że zawsze o jedną gwiazdkę mniej pokaze niż wpisana liczba
program menu_gwiazdor;
uses crt;
var a,b,x,y,i,j : integer;
wybor : real;
begin
repeat
clrscr;
writeln('Wybierz uklad: ');
writeln('1. Linia pionowa ');
writeln('2. Linia pozioma ');
writeln('3. Prostokat ');
writeln('4. Koniec ');
writeln('Twoj wybor: ');
readln(wybor);
if wybor=1 then
begin
writeln('Podaj ilosc gwiazdek: ');
readln(a);
for i:=1 to a do
writeln('*');
readln;
end;
if wybor=2 then
begin
writeln('Podaj ilosc gwiazdek: ');
readln(b);
for i:=2 to b do
write('*');
readln;
end;
if wybor=3 then
begin
writeln('Podaj dlugosc doku a: ');
readln(x);
writeln('Podaj dlugosc boku b: ');
readln(y);
for i:=1 to x do
begin
for j:=1 to y do
write('*');
readln;
end;
end;
until wybor=4
end.