Question

Cześć ; ) potrzebuje napisać program wyświetlający 10 kolejnych liczb naturalnych począwszy od 1 , mam taki kod źródłowy i nie wiem co w nim jest źle , pomocy ; ) program odliczanie;

uses crt;

var a:integer;

begin

clrscr;

a:=0;

while a=10 do

begin a:=a+1;

end;

readln;

end.

Answer 1

Warto by zadbać o to, by po pierwsze program rzeczywiście wyświetlał te liczby, a żadnej funkcji wypisującej w powyższym kodzie nie widzę...

Po drugie, warunek "dopóki a jest równe 10" zaraz po przypisaniu zera do tej zmiennej nigdy nie będzie spełniony.

 

Takie coś powinno działać:

 

program odliczanie;

 

      var a:integer;

begin

 

 a:=0;            

       while a<10do            

      begin            

      a:=a+1;            

      writeln(a);          

      end;

readln;

end.

 

  Funkcje czyszczenia ekranu wyrzuciłem na chwilkę aby sprawdzić to na ideone, który tego nie przepuszcza, ale prawdopodobnie możesz je z powrotem tu wrzucić (razem z uses crt;)

Answer 2

program odliczanie;
uses crt;
var
        a:integer;

begin
clrscr;
        a:=0;

        while (a<10) do
        begin
                a:=a+1;
                write(a,',');
        end;

readln;
end.