--> Archiwum Forum
âøßùž® [ Centurion ]
Turbo Pascal + Podzielniki liczby
Witam
Mam prosbe, czy moglby ktos mi napisac kod programu, ktory wyswietla podzieliki wprowadzonej liczby? Z gory dzieki!
donzoolo [ Senator ]
program parzyste;
uses crt;
var input, robocza:integer;
answer:string[1];
begin
ClrScr;
writeln ('type the number you wish to know what dividors does it have');
write ('(no bigger than 30000): ');
readln (input);
ClrScr;
if input>30000 then begin
writeln ('ERROR 404: your number is too big, the program will go crazy');
writeln ('Proceed anyway? (Y/N)');
readln (answer);
ClrScr;
if (answer = 'n') then halt;
end;
robocza:=1;
writeln ('your number was: ', input);
writeln ('it''s dividors are:');
while robocza<=input do begin
if WhereY=25 then begin
write('press ENTER to proceed');
readln;
ClrScr;
writeln ('your number was: ', input);
writeln ('it''s dividors are:');
end;
if (input mod robocza) = 0 then writeln (robocza);
robocza:=robocza+1;
end;
write('press ENTER to end program');
readln;
end.
âøßùž® [ Centurion ]
donzoolo--> to ma byc napisany prosto program do szkoly, a nie sciagniety nie wiadomo skad :-). Jezeli ktos zna sie na programowaniu to niech napisze.
donzoolo [ Senator ]
ehhh... chce ci powiedziec ze napisalem ten program sam do pierwszej klasy LO...
âøßùž® [ Centurion ]
Po co pisales po angielsku i w taki sposob? Przeciez ten program mozna napisac w kilku wierszach. ;/ Skopiowales ze strony i wkleiles i to byla twoja cala praca.
donzoolo [ Senator ]
pisalem po angielsku bo bylem w klasie o profilu dwujezycznym, co oznacza ze mialem czesc przedmiotow wykladaych po angielsku......
przestan szczylu sie wymadrzac, za skomplikowany jest dla ciebie taki program??? to sa podstawowe operacje... powodzenia w przyszlosci z TP... na moja pomoc nie licz
âøßùž® [ Centurion ]
Jak jestes taki programista z dwujezycznej klasy to napisz ten program w skroconej wersji bez errorow i wystarczy mi po polsku (zmienne np. a,i). To powinno ci zajac ok. 2min. Dzieki z gory.
fifalk [ fifalkowiec ]
tak trudno samemu sobie przeorbic? oczekujesz, ze ktos ci bedzie poprawial programy zgodnie ze wszystkimi twoimi zyczeniami, podajac dodatkowo w komentarzu twoje imie i nazwisko jako autora?
Novus [ Genera� ]
Arbuz - wybacz okreslenie ale jestes glupi jak but. Donzoolo napisal Ci idealny program, bez bledow, prosty, przejrzysty, nawet z interfejsem, a ty narzekasz. Wywal sobie ze zrodla niepotrzebne reczy i przetlumacz te pare zdan z angielskiego. Nie powinno ci to zajac wiecej niz minute, ale w praktyce wyjdzie Ci pewnie z 30.
BIGos [ bigos?! ale g³upie ]
dok³adnie, arbuz glupku, nie doœc ¿e ci jakiœ koleœ napisa³ za ciebie zadanie domowe to jeszcze masz jakieœ aty i sie rzucasz, buraku ze s³om¹ w butach.
moneo [ Nikon Sevast ]
bez kitu, skad sie tacy biora...
"Skopiowales ze strony i wkleiles i to byla twoja cala praca"
Ty za to napisales na forum i jeszcze sie plujesz i to jest cala twoja praca..
program jest spoko i jeszcze z obsluga bledow (choc moznaby dla formalnosci zwiekszyc zakres mozliwych wpisywanych liczb do 32767..)