Alff [ Junior ]
POMOCY! Mam sprawdzian! SZYBKO! Program w Turbo Pascalu!
Mam teraz sprawdzian na informatyce w szkole! Mam jeszcze troszke czasu! potrzebuję szybko program! Prosze pomóżcie mi i go napiszcie! ]
treść programu:
"oblicz sumę liczb nieparzystych z przedziału [8,46] "
Pozdrawiam! Z góry dzięki!
M'q [ Schattenjager ]
program suma
var a,wynik=integer;
begin
a:=9;
wynik:=a;
if a<46 then
begin
a:=a+2;
wynik:=wynik+a;
end;
else
write (wynik);
end.
To tak na szybko, mogą być jakieś zonki, więc lepiej sprawdź.
Alff [ Junior ]
Sorki jest jakis lekki błędzik - prosiłbym o szybką poprawkę :) OGROMNE DZIĘKI!!!!
M'q [ Schattenjager ]
program suma;
var a,wynik:integer;
begin
a:=9;
wynik:=a;
if a<46 then
begin
a:=a+2;
wynik:=wynik+a;
end;
write (wynik);
end.
Alff [ Junior ]
Dzięki wielkie! Dostałem 4 za lekkie błędy! Ja mykam bo dzwonek był!! Dzieki wielkie! <PIWO> dla Ciebie!
M'q [ Schattenjager ]
Np.
DarkStar [ PowerUser ]
brak petli jest malym bledem?:)
Father Michael [ Padre ]
DarkStar -> wlasnie cos mi ten IF wadzi, powinno byc chyba WHILE :)
DarkStar [ PowerUser ]
raczej repeat until:)
cos mi sie wydaje, ze M'q blednie rozwiazal leniowi prace domowa. zdziwi sie chlopak:P
Father Michael [ Padre ]
DarkStar -> moze tez byc REPEAT UNTIL :)
z FOR tez by dzialalo :)
captain_nemo [ Generaďż˝ ]
a nie powinno byc tak ?
program suma;
var a,wynik:integer;
begin
a:=9;
wynik:=0;
while a>=9 and a<=46 do
begin
if a mod 2 = 1 then
wynik:=wynik+a;
inc(a)
else
inc(a);
end;
write (wynik);
end.
Father Michael [ Padre ]
captain_nemo -> moze byc i tak, choc mozna to spokojnie skrocic:
- nie sprawdzac warunku a>=9 bo napewno zachodzi
- zwiekszac a o 2 a nie o 1, dzieki czemu dwukrotnie przyspieszymy dzialanie i mozemy pominac warunek.
Wypowiedź została zmodyfikowana przez jej autora [2005-01-04 12:05:11]
DarkStar [ PowerUser ]
tak zwana optymalizacja:)
Sir klesk [ Sazillon ]
:O
fanlegii79 [ Konsul ]
program sumaNiep8_46;
write (54*17);
end.
captain_nemo [ Generaďż˝ ]
Father
dalem takie warunki bo na nich dobrze widac co sie dzieje i koles moze sie cos nauczy...
Father Michael [ Padre ]
captain_nemo -> nas uczyli optymalizowac co sie tylko da, wiec jestem do tego przyzwyczajony :)
WindowsXP [ Konsul ]
To korzystając z tematu:
Mam TP 7.0 i po uruchomieniu TURBO.EXE z folderu BIN odpala się normalny interfejs Pascala, tyle, że nie mogę wklepać żadnych znaków. Nie działa nawet menu. Dlaczego?
M'q [ Schattenjager ]
Dzięki wielkie! Dostałem 4 za lekkie błędy!
cos mi sie wydaje, ze M'q blednie rozwiazal leniowi prace domowa.
No faktycznie się zdziwi, w cholere błędów, po fakcie to wszyscy chętni do pomocy, ale jak trzeba to jak zwykle nikogo nie było.
donzoolo [ Senator ]
winXP----> sprobuj nacisnac ALT+Enter