--> Archiwum Forum
Jedziemy do Gęstochowy [ PAINKILLER ]
Pomoc z zadaniem - programowanie - Turbo Pascal.
Otóż mam do wykonania takie oto zadanie:
Zadanie domowe: Napisz program, który pyta użytkownika o jakąś liczbę. Po wprowadzeniu liczby przez użytkownika, program ma pomnożyć ją przez wszystkie liczby od 1 do 2000 i pokazać wyniki (linijka pod linijką).
póki mi nie wychodzi to całe zapętlanie, może jest tu ktoś kto jest w tym lepszy i umie wykonać to zadanie?
z góry dzięki za pomoc.
Toshi_ [ Got sarcasm? ]
Jak już masz zmienną z podaną liczbą (np."liczba"), to jedziesz z pętlą:
wynik:=0;
i:=1;
repeat
begin
wynik:=liczba*i;
writeln(wynik);
i:=i+1;
end;
until i = 2000;
Mogą być jakieś błędy składniowe, bo już parę latek w Pascalu nie pisałem :P
qaq [ Kaka Demona ]
Uhhh... dawno nie pisałem w Pasalu ale spróbuję.
var liczba,mnoznik:integer;
begin
writeln('Wpisz dowolna liczbe ');
readln(liczba);
mnoznik:=0;
repeat
mnoznik:=mnoznik+1;
writeln(liczba*mnoznik);
until mnoznik=2000;
readln;
end.
Napisz czy dziala, bo nigdzie sam nie moge znalezc kompilatora.
[edit] teraz powinno działać