Paskal programos

Galit padet isprest kelis uzdavinius su paskaliu?

Vienas

Parašyta programa, kuri turėtų rasti skaičių sum, lygų skaičiaus n skaitmenų sumai (pavyzdžiui, jei n = 154, tai sum = 10):

program suma;

var n, sum: integer;

begin

sum := 0;

readln(n);

while n >= 0 do

begin

sum := sum + n div 10;

n := n div 10;

end;

writeln(sum);

end.

Tačiau šioje programoje yra klaidų.

Perrašykite programą ir ištaisytas klaidas pažymėkite kita spalva.

Ir kita

Duota programa mažiausiam ir didžiausiam natūraliojo skaičiaus skaitmeniui rasti:

program minmax;

var min, max, s, sk : integer;

begin

read (s);

max := ...; min := ...;

while ... do

begin

... := ... mod 10; { randamas paskutinis skaičiaus skaitmuo }

if sk > max

then max := sk;

if sk < min

then min := sk;

... := ... div 10 { atmetamas paskutinis skaičiaus skaitmuo }

end;

write (min, max: 3)

end.

Perrašykite šią programą, papildykite trūkstamas vietas ir jas pažymėkite kita spalva.

Galit padet isprest kelis uzdavinius su paskaliu?

Vienas

 

Parašyta programa, kuri turėtų rasti skaičių sum, lygų skaičiaus n skaitmenų sumai (pavyzdžiui, jei n = 154, tai sum = 10):

program suma;

var n, sum: integer;

begin

sum := 0;

readln(n);

while n >= 0 do

begin

sum := sum + n div 10;

n := n div 10;

end;

writeln(sum);

end.

Tačiau šioje programoje yra klaidų.

Perrašykite programą ir ištaisytas klaidas pažymėkite kita spalva.

 

Ir kita

 

 

Duota programa mažiausiam ir didžiausiam natūraliojo skaičiaus skaitmeniui rasti:

program minmax;

var min, max, s, sk : integer;

begin

read (s);

max := ...; min := ...;

while ... do

begin

... := ... mod 10; { randamas paskutinis skaičiaus skaitmuo }

if sk > max

then max := sk;

if sk < min

then min := sk;

... := ... div 10 { atmetamas paskutinis skaičiaus skaitmuo }

end;

write (min, max: 3)

end.

Perrašykite šią programą, papildykite trūkstamas vietas ir jas pažymėkite kita spalva.

pirmoje : sum := sum + n div 10; // cia vietoj div turi būt mod, nes liekaną turi dėt, o ne sveika dalį

a

Galit padet isprest kelis uzdavinius su paskaliu?

Vienas

 

Parašyta programa, kuri turėtų rasti skaičių sum, lygų skaičiaus n skaitmenų sumai (pavyzdžiui, jei n = 154, tai sum = 10):

program suma;

var n, sum: integer;

begin

sum := 0;

readln(n);

while n >= 0 do

begin

sum := sum + n div 10;

n := n div 10;

end;

writeln(sum);

end.

Tačiau šioje programoje yra klaidų.

Perrašykite programą ir ištaisytas klaidas pažymėkite kita spalva.

 

Ir kita

 

 

Duota programa mažiausiam ir didžiausiam natūraliojo skaičiaus skaitmeniui rasti:

program minmax;

var min, max, s, sk : integer;

begin

read (s);

max := ...; min := ...;

while ... do

begin

... := ... mod 10; { randamas paskutinis skaičiaus skaitmuo }

if sk > max

then max := sk;

if sk < min

then min := sk;

... := ... div 10 { atmetamas paskutinis skaičiaus skaitmuo }

end;

write (min, max: 3)

end.

Perrašykite šią programą, papildykite trūkstamas vietas ir jas pažymėkite kita spalva.

antra :

max := 0; min := 0;

while s>= 0 do

sk := s mod 10;

s := s div 10

Ačiū tau labai.

Ir dar vieno noreciau paklaust

Duotas sveikasis skaičius, priklausantis uždaram intervalui nuo –999 iki 999.

Parašykite programą, kuri išvestų pranešimą, nusakantį skaičiaus ženklą ir iš kiek skaitmenų jis susideda.

Pavyzdžiui, įvedus 54, programa turėtų pranešti, kad tai teigiamas dviženklis skaičius,

įvedus –101, jog tai yra neigiamas triženklis skaičius;

jeigu buvo įvestas nulis, reikia išvesti pranešimą, kad įvestas nulis.

Bandziau daryt taip bet aiskiai klaidu priveliau

program noname3;

var a : integer;

begin

writeln('Iveskite skaiciu');

Read(a);

if a<-100 then writeln('Trizenklis neigemas skaicius');

If a<-10 then

begin; writeln ('Dvizenklis neigemas skaicius');

end;

If a<0 then

begin;

writeln ('Vienazenklis neigemas skaicius');

end;

If 10 > a then

begin; writeln('Vienzenklis teigemas skaicius');

end;

if 100>a then

begin;

writeln('Dviženklis teigemas skaicius');

end;

if 1000>a then

begin; writeln('Triženklis teigemas skaicius');

end;

end.

program skaiciai;

type    skaicius = -999..999;

Var sk : skaicius;
begin
 WriteLn('Iveskite skaicius: ');
 Readln(sk);
   if sk = 0 then WriteLn('Skaicius yra lygus 0')
             else
   if sk > 0 then
             begin
               if sk < 10  then WriteLn('skaicius teigiamas vienazenklis');
               if (sk < 100) and (sk >= 10) then WriteLn('skaicius teigiamas dvizenklis')
                           else WriteLn('skaicius teigiamas trizenklis');
             end
             else
             begin
               sk := sk * (-1);
               if sk < 10  then WriteLn('skaicius neigiamas vienazenklis');
               if (sk < 100) and (sk >= 10) then WriteLn('skaicius neigiamas dvizenklis')
                           else WriteLn('skaicius neigiamas trizenklis');
             end;
   Readln;
end.

dar vienas sprendimo būdas:

program skaiciai;

type    skaicius = -999..999;

Var sk : skaicius;
   st : string;
begin
 WriteLn('Iveskite skaicius: ');
 Readln(sk);
   if sk = 0 then WriteLn('Skaicius yra lygus 0')
             else
   if sk > 0 then
              begin
                str(sk, st);
                WriteLn('Skaicius yra teigiamas ',length(st),'-zenklis');
              end
             else
              begin
                 sk := sk * (-1);
                 str(sk, st);
                 WriteLn('Skaicius yra teigiamas ',length(st),'-zenklis');
              end;
   Readln;
end.