Paskalis

Gal kas nors aiskiau galetu?be klaidu

Kas galit pataisyt ?

program Noname1;

var suma, kiekis, sk, vid :real;

begin

read(sk);

suma+=sk;

kiekis++;

while (sk>1) or (sk<10) do begin

WriteLn('Iveskite pazymius');

read(sk);

vid:=suma /kiekis ;

end;

writeln ('Vidurkis: ',vid);

Readln;

end.

program Noname1;

var suma, kiekis, sk, vid:integer;

begin

suma:=0;

kiekis:=0;

repeat

begin

readln(sk);

suma:=suma+sk;

kiekis:=kiekis+1;

end

until (sk<1) or (sk>10);

vid:=(suma+kiekis div 2) div kiekis ;

writeln ('Vidurkis: ',vid);

Readln;

end.

Bet keistas vidurkio skaiciavimas...

P.S. Vis dar is telefono.

program Noname1;

var suma, kiekis, sk, vid:integer;

begin

suma:=0;

kiekis:=0;

repeat

begin

readln(sk);

suma:=suma+sk;

kiekis:=kiekis+1;

end

until (sk>1) and (sk<10);

vid:=(suma+kiekis div 2) div kiekis ;

writeln ('Vidurkis: ',vid);

Readln;

end.

 

Bet keistas vidurkio skaiciavimas...

P.S. Vis dar is telefono.

Dekui t mix bet nelabai veikia.Neina ivesti daug skaiciu tik vienas.

Gal galit kas nors pataisyti daR?

Gal galit kas nors pataisyti daR?

Man rodos pataisiau. Pabandyk. :)

until (sk>1) and (sk<10);

Until'e neturėtų priešinga sąlyga būti? :)

Man rodos pataisiau. Pabandyk. :)

Dekui t-mix dabar viskas gerai. :)

O gal ir nelabai neteisingai skaiciuoja.

Duoti du skaičiai skait ir vard – paprastosios trupmenos skaitiklis ir vardiklis. Para¬šykite programą duotai trupmenai suprastinti. Joje panaudokite procedūrą.

Čia kažkaip reik kad if skait ir vard mod 3 = 0 then dalint?

Ar kažkas panašaus? nesuprantu...

Dekui. :lol:

Duoti du skaičiai skait ir vard – paprastosios trupmenos skaitiklis ir vardiklis. Para¬šykite programą duotai trupmenai suprastinti. Joje panaudokite procedūrą.

 

Čia kažkaip reik kad if skait ir vard mod 3 = 0 then dalint?

Ar kažkas panašaus? nesuprantu...

 

Dekui. :lol:

Manau kažkas tokio

if skait mod vard = 0 then begin... toliau susiskaičiuoji skait ir vard, bet tai nėra lengva :)

Manau kažkas tokio

 

if skait mod vard = 0 then begin...

bet jei tarkim bus 10/8, tai sitas nepavyks. Jei gerai mastau :lol:

:lol: uoj rimtai, cia sumasyvais turbūt bus, išpradžių

for i:=1 to skait do begin

if skait mod i=0 then i priskiri masyvuj

ta pati padarai su vardikliu, tada surandi tuose dvejuose masyvuose aukščiausią skaičių, kuris yra abejuose masyvuose ir tada belieka skait ir vard padalinti iš to skaičiaus. Dėja paskaliu užrašyti viso šito nelabai mokėčiau arba ilgai užtrukčiau, tikiuosi padės :)

sad bet jeigu pvz 11/33 tai iš 11 kad dalintų, tai nžn kaip padryt kad tikrintų iš ko dalinasi abu ir tada rašytų rezultatą... :lol:

Masyvo dar nemoku ir su juo negalima :lol:)

Bet dekui, pats pasidariau

Iš pradžių padariau kad skaičiuotų tų skaičių didžiausią bendrą daliklį, tada padalinau iš jo duotą trupmeną ir gavosi :))

Gal galite kitą padėti? :))

Parašykite programą, kurioje būtų panaudota procedūra dviejų duotų natūrinių skaičių didžiausiam bendrajam dalikliui ir mažiausiam bendrajam kartotiniui rasti.

Žinau kaip apskaičiuoti Dbd, mbk irgi padaryčiau, bet dar i procedūrą idėti, gal kas padėsit? :D)

Dekui.

Pasidariau :lol:)

Paskutinis :lol:)

Jei galite padėkite :)

De Morgano dėsnis teigia, kad

not (a and b) = not a or not b.

Reikia parašyti funkciją šiam dėsniui....

Reikia parašyti funkciją šiam dėsniui....

Netyčia :) T-mix, matyt, kad jau žinai :)

padek :lol:

Netyčia :) T-mix, matyt, kad jau žinai :)

padek :lol:

Aš tai taip tikrinčiau, bet nesu tikras ko ten iš Jūsų reikalauja (JPM, taip? :D):

program tikrinimas;
var a, b: boolean;

function tikrinam(a, b: boolean):boolean;
begin
tikrinam := (not (a and b)) = (not a or not b);
end;

begin
for a := false to true do
	for b := false to true do
		writeln(tikrinam(a, b));
readln;
end.

Sorry, nemačiau, dėkui, baigiau viska :lol:

Čia šiek tiek ne į temą klausimas.

Jums užkrauna: (http://ims.mii.lt/jpm/user) puslapį? ;)

Nežinau kas pasidare, man neužkrauna, o turiu užduotis išsiųsti iki sausio 4d...

Istaisykit klaidas, o cia ju tikrai daug, nesamone tos ir paprogrames :)

program parduotuve;

TYPE mas=array[1..10] of integer;

var f,rez:text;

a,t1,t2,n,ind,i,max,x,sek,sek2:integer;

m:mas;

{=======duomenys=========}

procedure duomenys;

begin

assign (f,'C:\duom.txt');

assign (rez,'C:\rezultatai.txt');

reset (f);

rewrite (rez);

read (f,t1,t2,n);

while not eof(f) do begin

read (f,a);

ind:=ind+1;

m[ind]:=a;

end;

end;

{=======didziausias skaicius=========}

function maxi(m1:mas;ind1,x1,i1:integer):integer;

begin

max:=m1[1];

for i1:=2 to ind1 do if max<m[i1] then begin

max:=m[i1];

x1:=i1;

end;

end;

{=======sekundes=========}

function sekundes(m1:mas;ind1,t1t,x1,t2t:integer):integer;

begin

for i:=1 to x1+1 do sekundes:=m1[ind1]*t1t+t2t;

sek2:=max*t1t+t2t;

end;

{==========rezultatas========}

procedure rezultatas;

begin

writeln (x:4,max:4,sek:4,sek2:4);

close (f);

close (rez);

end;

begin

duomenys;

max:=maxi(m,ind,x,i);

sek:=sekundes(m,ind,t1,x,t2);

rezultatas;

Readln;

end.

Tau cia su funkcijomis reikia parasyti, man kaip tik tokia pacia uzduoti dave, galiu ikelt savo parasyta jei nori

parasiau, nes ir man paciam reikejo.

program pirkejai;
type mas = array[0..100] of integer;
var t1, t2, N, i, maxPrekiu, kasininkeSugais, visasLaikas: integer;
prekes: mas;
f, g: text;
procedure nuskaitymas();
begin
	for i:=1 to N do
		readLn(f, prekes[i]);
end;
function daugiausiaPrekiu(N: integer; prekes: mas): integer;
var i, max, nr: integer;
begin
	max := prekes[1];
	nr := 1;
	for i:=1 to N do
		if max < prekes[i] then
			begin
				nr := i;
				max := prekes[i];
			end;
	daugiausiaPrekiu := nr;
end;
function atsiskaitoPer(t1, t2, i: integer; prekes:mas): integer;
var laikas: integer;
begin
	laikas := t1*prekes[i];
	laikas := laikas + t2;
	atsiskaitoPer := laikas;
end;
begin
{ --- FAILU AITIDARYMAS ---}
assign(f, 'DUOM.TXT'); reset(f);
assign(g, 'REZ.TXT'); rewrite(g);
{ --- PAGRINDINIU DUOMENU NUSKAITYMAS ---}
readLn(f, t1, t2, N);
nuskaitymas();
{ --- RANDAME DIDZIAUSIA PREKIU KIEKI ---}
maxPrekiu := daugiausiaPrekiu(N, prekes);
{ --- LAIKO APSKAICIAVIMAI ---}
kasininkeSugais := atsiskaitoPer(t1, t2, maxPrekiu, prekes);
visasLaikas := 0;
for i:=1 to maxPrekiu do
	visasLaikas := visasLaikas + atsiskaitoPer(t1, t2, i, prekes);
{ --- DUOMENU ISVEDIMAS ---}
writeLn(g, maxPrekiu, ' ', prekes[maxPrekiu], ' ', visasLaikas, ' ', kasininkeSugais);
{ --- FAILU UZDARYMAS ---}
close(f); close(g);
end.

Na dekuj, bet butu gerai savo istaisyta varianta pamatyt tada suprasciau kur klaidos buvo, Plx programoj nelabai susigaudau ;)

o gal kas man pades as siandien pradejau su paskaliu tai va man uzduotis yra tokia is tokio vardo kaip prideta exelyje reikia toki pat padaryti su pascaliu gal kas galit padeti?

P.S labai prasau reikia pagalbos... :)

Vytka.rar