reikia pagalbos su pascal.

Sveiki, kas moka naudotis pascal jeigu nesunku padekit parasyt tokia programele...

Skaicius n faktorialas - tai paeiliui pateiktu naturaliuju skaiciu sandauga. Parasykite programa N faktorialui rasti.

Na jomajo.... paklausykit gi jus per pamokos bent ką nors , didieji puslapių kūrėjai, o net sudaugint skaičius nuo n iki 1 negalit...

program faktorialas;
var i:integer;
	sk, ats:longint;
begin
 writeLn('Iveskite skaiciu:');
 readln(sk);
 ats:=1;
 for i:=1 to sk do
	ats:=ats*i;
 writeln('Skaiciaus ', sk, 'faktorialas yra ', ats);
 readln;
end.

Na jomajo.... paklausykit gi jus per pamokos bent ką nors , didieji puslapių kūrėjai, o net sudaugint skaičius nuo n iki 1 negalit...

Klausom, bet neiketu isviso sito pascalio, nezinau, sunkus jis man labai tos visokios funkcijos ir t.t.

Dekui iGor !

Jeigu tau PASCALIS sunkus, tai geriau net nežiūrėk kitų programavimų kalbų.

TVS'ų instaliavimas ir modulių integravimas tai ne PROGRAMAVIMAS!

Jeigu tau PASCALIS sunkus, tai geriau net nežiūrėk kitų programavimų kalbų.

TVS'ų instaliavimas ir modulių integravimas tai ne PROGRAMAVIMAS!

O kas sake kad ziuriu i programavimo kalbas? Pff...

labas,

klausykit gal galetumet padeti?

1. Užduotis

Parašykite programą, kuri apskaičiuotų skaičių sekos [n; m] skaičių kvadratų sumą bei skirtingai nelyginių ir lyginių skaičių kvadratų sumas.

zinokit labai reikia

labas,

klausykit gal galetumet padeti?

 

1. Užduotis

Parašykite programą, kuri apskaičiuotų skaičių sekos [n; m] skaičių kvadratų sumą bei skirtingai nelyginių ir lyginių skaičių kvadratų sumas.

 

zinokit labai reikia

Ir ko tu būtent nesupranti čia? ;)

nu as nesuprantu tu ciklu pascal'io

net neisivaizduoju kaip turetu atrodyti programa

Tu negali neįsivaizduoti, nes mokytojas iš lempos tokios užduoties negalėjo duoti. Apie tai turi būti šnekėtą per pamokas.

Tu negali neįsivaizduoti, nes mokytojas iš lempos tokios užduoties negalėjo duoti. Apie tai turi būti šnekėtą per pamokas.

Būtent. Ir išvis, suprantu, kai žmogus daro ir nesigauna arba neranda kur klaidą padarė, tada galima padėt. O čia nori, kad kažkas jiem nemokamai programas rašytų (nors ir mažos, nesudėtingos)..

o tai jus galvojat as pats nebandziau? patikekit nesu is tu kurie iesko lengviausio kelio. tik tai man tikrai sunku ismokti per 45min i savaite. nenorit nepadekit. ;)

o tai jus galvojat as pats nebandziau? patikekit nesu is tu kurie iesko lengviausio kelio. tik tai man tikrai sunku ismokti per 45min i savaite. nenorit nepadekit. ;)

Kas trukdo dar 45 minutes namie pasimokyt? Teorijos, net lietuviu kalba, yra labai aiškiai parašytos ir su pavyzdžiais.

O jei bandei, tai įdėk kodą, gal ten tik viena eilutė bloga, tai pagalbos greit sulauksi ir kitiem lengviau bus.

program ciklas;

var n, m, sum, sumlyg, sumnelyg:integer;

begin

WriteLn('iveskite n ir m');

Readln (n);

read(m);

sum:=(n*n)+(m*m); sumlyg:=((n*n)mod 2=0)+((m*m) mod 2 =0); sumnelyg:=((n*n) mod 2 <>0)+((m*m) mod 2<>0);

writeln (sum);

writeln (sumlyg);

writeln(sumnelyg) ;

end.

nu man tikrai geda uz tokias nesamones, bet nieko daugiau nemoku.

gal tada bent jau galit pasakyti kur tos literaturos greiciau susirast?

program kvadratai;
var n, m, neL, L, i, suma:integer;
begin
read(n, m);

suma := 0;
neL := 0;
L := 0;

for i := n to m do
	begin
		suma := suma + i * i;
		if i mod 2 <> 0 then neL := neL + i * i
						else L := L + i * i;
	end;

writeln('Kvadratu suma: ', suma);
writeln('Lyginiu skaiciu kvadratu suma: ', L);
writeln('Nelyginiu skaiciu kvadratu suma: ', neL);
end.

Netikrinau, bet kažkas panašaus.

prie to pačio, gal galėtų kažkas parašyt programėlę uždaviniui :

Duotas triženklis skaičius. Parašyk programą kuri pašalintų vidurinį skaitmenį :)

Žinau, kad uždavinys pasirodė juokingas, bet aš pradedu nebesusigaudyt, ką ir kodėl rašyt nuo begin eilutės.. kai prasideda sk1 := tr mod div 100 ir t.t :D

prie to pačio, gal galėtų kažkas parašyt programėlę uždaviniui :

Duotas triženklis skaičius. Parašyk programą kuri pašalintų vidurinį skaitmenį 2:diamond:

Žinau, kad uždavinys pasirodė juokingas, bet aš pradedu nebesusigaudyt, ką ir kodėl rašyt nuo begin eilutės.. kai prasideda sk1 := tr mod div 100 ir t.t :)

Na iš esmės, po begin eilutės rašomas visas sprendimo algoritmas - sprendimas. :D Nežinau kaip dar suprantamiau paaiškint. Viskas kaip matematikoj, kartais dar ir paprasčiau. Kad ir nežinodamas ką ir kaip rašyt, vistiek pirma turi susigalvot, kaip tą uždavinį spręst, apmastyt patį procesą, tik tada galvot, ką rašyt. Pavyzdžiui šiame uždavinyje: reikia išmesti vidurinį skaitmenį, taigi prieš tai reikia visą skaičių išsiskaidyti skaitmenimis, o išmetus vidurinįjį vėl skaitmenis sujungti į vientisą skaičių. Algoritmas su komentarais:

program Bevardė6;
var sk,a,c:longint;
begin
 Readln(sk); //įvedam tą triženklį skaičių
  c:=sk mod 10; //atskiriam paskutinį skaitmenį, jį įrašom į kintamajį c
  a:=sk div 100; //atskiriam pirmajį skaitmenį, jį įrašom į kintamajį a
  sk:=a*10+c; //vidurį išmetėm, dabar likusius du skaitmenis jungiam į skaičių
 WriteLn(sk);
 Readln;
end.

O jei konkrečiai funkcijų ir veikimo principų nežinai, tai tiesiog mokytis ir dar kartą mokytis. 2:diamond:

gal kas galetu pasakyti mano klaidas?

Parašykite programą, kuri patinkrintų ar teisinga formulė:

1³ + 3³ + …+ (2n – 1)³ = n²(2n² – 1),

Kai n = 1, 2, …, 100.

program ciklas2;

var pr, gr, h, n, teisinga, neteisinga, sum:integer;

begin

WriteLn('iveskite n');

Readln (n);

pr :=1;

gr:=100;

h :=1;

sum :=0;

while pr <= gr do

begin

sum := sum + (n*n*n);

pr := pr + h

end;

if sum =(n*n)*(2*(n*n)-1)

then = teisinga

else = neteisinga;

writeln ('teisinga');

writeln ('neteisinga');

end.

gal kas galetu pasakyti mano klaidas?

 

Parašykite programą, kuri patinkrintų ar teisinga formulė:

1³ + 3³ + …+ (2n – 1)³ = n²(2n² – 1),

Kai n = 1, 2, …, 100.

 

 

 

program ciklas2;

var pr, gr, h, n, teisinga, neteisinga, sum:integer;

begin

WriteLn('iveskite n');

Readln (n);

pr :=1;

gr:=100;

h :=1;

sum :=0;

while pr <= gr do

begin

sum := sum + (n*n*n);

pr := pr + h

end;

if sum =(n*n)*(2*(n*n)-1)

then = teisinga

else = neteisinga;

writeln ('teisinga');

writeln ('neteisinga');

end.

Pirma, tai programavimui yra skirta atskira skiltis. Programavimas

Antra, ne pro šalį išmokt formatuot kodą, ir dėt jį į

kodui skirtą foną

.

Na o jei apie programą, tai vieno ciklo pas tavęs trūksta. Tu tikrini skaičius tik nuo 1 iki 100, bet netikrini ar su kiekvienu teisinga lygybė. O ir kai žinomas kartojimų skaičius, paprasčiau naudot for ciklą. Aš įsivaizduoju taip:

program Bevardė6;
var a,sum,n,lygu:longint;
netinka:boolean;
begin
sum:=0;
for n:=1 to 100 do //tikrinam su visais skaičiais nuo 1 iki 100
 begin
  for a:=1 to n do //skaičiuojam kairiąją lygybės pusę
sum:=sum+(2*a-1)*(2*a-1)*(2*a-1);
  lygu:=n*n*(2*n*n-1); //skaičiuojam dešiniąją lygybės pusę
  if sum <> lygu then //tikrinam ar jos lygios
neteisinga:=true;
  sum:=0;
 end;
if not neteisinga then //jei visiem skaičiam lygybė tiko, tai neteisinga:=false
 writeln('Formulė teisinga')
else Writeln('Formulė neteisinga');
Readln;
end.

deja man reikia tai padaryti su cklu while

Dėja tokiu atveju turbūt tai bus neįmanoma...

CMON! PiXelz beveik ant lėkštutės padavė...