Reik pagalbos is programavimo

mokykloj programuojam paskalio kalba va duota programa ir reikia joje taip papildyt ar pakeist funkcijom kad skaiciuotu lyginius ir nelyginius skaitmenis, o cia skaiciuoja ivesto maziausio ir didziausio skaitmenu suma ir sandauga.

program P9a;

Uses Crt;

function Did(a : integer) : integer;

var s, b : integer;

begin

s := 0;

while a > 0 do

begin

b := a mod 10;

a := a div 10;

if b > s then s := b

end;

Did := s

end;

function Maz(a : integer) : integer;

var s, b : integer;

begin

while a > 0 do

begin

b := a mod 10;

a :=a div 10;

if b < s then s := b

end;

Maz := s

end;

var a : integer;

begin

Clrscr;

Readln(a);

writeln (did (a) * Maz (a));

writeln (Maz (a) + did (a));

Delay(8000);

end.

gal kas gali padet?

na duota programa ir is jos reikia padaryti kad isvstu i ekrana is duoto skaiciaus lyginius skaitmenis ir po to nelyginius

suformuluok klausima is naujo, nes nesupratau ko reikia.

isvest visus lyginius ir nelyginius, ar ka cia reikia?

na parasiau paciam gale pranesimo

tarkim kur did funkcija, vietoj

if b > s then s := b

parasyk

if ((b mod 2) > s) then writeln ('Nelyginis ',b) else writeln ('Lyginis ',b);

ir daug tau is cia nereikes dalykus, tokiu kaip gale

writeln (did (a) * Maz (a));

writeln (Maz (a) + did (a));

pasirasyk did(a);

ir viskas, na daug prasitrynk visko :)

na, o jei tau reikia, kad pirma tik nelyginius isvestu, tai atskiras funkcijas pasidaryk ir ta if'a isdalink ir viskas.

tarkim kur did funkcija, vietoj

 

if b > s then s := b

 

parasyk

 

if ((b mod 2) > s) then writeln ('Nelyginis ',b) else writeln ('Lyginis ',b);

 

 

ir daug tau is cia nereikes dalykus, tokiu kaip gale

 

writeln (did (a) * Maz (a));

writeln (Maz (a) + did (a));

 

pasirasyk did(a);

 

ir viskas, na daug prasitrynk visko :)

o gal galetum pratrynt? :) nelabai as cia suprantu :)

tai, kaip atsiskaitysi, jei nieko nesupranti?

funkcija i procedura padariau, nes tau nereikia nieko is jos grazint.

gal gerai..

program P9a;
Uses Crt;
procedure nelyginiai(a : integer);
var b : integer;
begin
while a > 0 do
begin
b := a mod 10;
a := a div 10;
if ((b mod 2) > 0) then write(b,' ');
end;
end;
procedure lyginiai(a : integer);
var b : integer;
begin
while a > 0 do
begin
b := a mod 10;
a := a div 10;
if ((b mod 2) = 0) then write(b,' ');
end;
end;
var a : integer;
begin
Clrscr;
Readln(a);
write('Nelyginiai ');
nelyginiai(a);
writeln;
write('Lyginiai ');
lyginiai(a);
Delay(8000);
end.

Man būtų gėda duoti kam skaityt neformatuotą kodą...

Nieko nekeičiau, bet...

program P9a;
Uses Crt;
var a : integer;

function Did(a : integer) : integer;
var s, b : integer;
begin
	s := 0;
	while a > 0 do
		begin
		b := a mod 10;
		a := a div 10;
		if b > s then s := b
	end;
Did := s
end;

function Maz(a : integer) : integer;
var s, b : integer;
begin
	while a > 0 do
		begin
		b := a mod 10;
		a :=a div 10;
		if b < s then s := b
	end;
Maz := s
end;

begin
Clrscr;
Readln(a);
writeln (did (a) * Maz (a));
writeln (Maz (a) + did (a));
Delay(8000);
end.

... atrodo kur kas geriau nei mišrainė.

dekui , bet taip protingai nerasom mes :)

Man būtų gėda duoti kam skaityt neformatuotą kodą...

 

Nieko nekeičiau, bet...

 

... atrodo kur kas geriau nei mišrainė.

ne tau vienam, cia paciam suprasti sudetinga, o dar kai eiluciu buna kelis simtus kartu daugiau, tai.. na mums tai pazymi mazindavo uztai, todel, jau iprasta rasyt graziai.

na cia tam rasiau kur parase man programa :) keliau formatuota bt gavosi misraine ir patingejau perdaryt