PASCAL programma

MAn ir viegla programma jaataisa.. itkaa.
Noteikt vai skaitlis ir naturaala skaitla kvadraats.
   Buutiibaaa  vajag ievadiit skaitli, tad kvadraatsakni un ja velkas kvadraatsakne, tad jaa, skaitlis ir vesela skaitla kvadraats, ja nee, tad nav. Nemaaku pierakstiit!

man bija pirms tam šada doma. izrādījās, ka viņa nestrādā ar daudziem skaitļiem...

program laboratorijas_darbs_3;
uses crt;
var X,Y,Z:Real;

begin
clrscr;
writeln('Programma noteiks, vai skaitlis ir vai nav naturaaƒla skaitlja kvadraaƒts');
writeln('ievadiet X');
readln(X);
if X<0 then writeln('ievadi pozitiivu skaitli') else
begin
Y:=SQRT( X );
Z:=SQR( Y );

if Z=X then writeln('Skatlis ir  naturaaƒla skaitlja kvadraaƒts.')
else writeln('skaitlis nav naturƒla skaitla kvadraaƒts.');

readln;
end;
end.
Paldies :)

peec kvadraatsaknes vareetu kko meeginaat izdariit citu, nevis porsta kaapinaat atpakalj. jo daduzi skatlji kapinot atpakalj sanaak taadi pashi. :d sviests

Komentāri:

#1 Lielkuilis @ 2010.10.12 23:11

Y jābūt nevis plikai kvadrātsaknei, bet atmetot nost daļu aiz komata (INT funkcija).
Sen nav bijusi darīšana ar programmēšanu un Pascal tādēļ pašam nav pa rokai.
Varbūt, var Y uzreiz definēt kā veselu skaitli? Nezinu, tik vai nebūs kāds errors sakarā ar tipu neatbilstību.

#2 RyCLe @ 2010.10.12 23:26

Nesapratu.

#3 ob1 @ 2010.10.12 23:29

Kaut kā tā:
Y:=INT(SQRT( X ));
Z:=Y*Y;