Pereiti prie turinio

Free paskalis

Vytautasss

Sukūrė Vytautasss
Programuotojų kampas

 Dalintis Sekėjai 0

Rekomenduojami pranešimai

Rimas

Rimas 1.146

Atrašyta
Atrašyta

http://www.games.lt/g/forum.zinutes/25537

 

Pažiūrėk tos temos pirmą atsakymą, ten yra parašyta programa kvadratinių lygčių sprendimui. Nelabai nusimanau programavime, bet manau turėtų tikti FPS'ui.

Deja ne, ten Perl'ui. Bet siek tiek gaudantis perdaryti nera sudetinga. Nors ir pacia programa parasyti nera sudetinga. :) Buciau prie PC, tai parasyciau...
Nuoroda į pranešimą
Dalintis kituose puslapiuose
liudvikas

liudvikas 4

Atrašyta
Atrašyta 
program kvadratines;
var a, b, c, D, x1, x2 : real;
begin
writeln('Prasome ivesti koficienta "a"');
readln(a);
writeln('Prasome ivesti koficienta "b"');
readln(b);
writeln('Prasome ivesti koficienta "c"');
readln(c);
D:=sqr(b)-4*a*c;
if D<0 then writeln('Sprendiniu nera');
if D=0 then
begin
x1:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1=x2 = ', x1:2:2);
end;
if D>0 then
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x1:2:2);
end;
readln();
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Plx

Plx 669

Atrašyta
Atrašyta 

program kvadratines;
var a, b, c, D, x1, x2 : real;
begin
writeln('Prasome ivesti koficienta "a"');
readln(a);
writeln('Prasome ivesti koficienta "b"');
readln(b);
writeln('Prasome ivesti koficienta "c"');
readln(c);
D:=sqr(b)-4*a*c;
if D<0 then writeln('Sprendiniu nera');
if D=0 then
begin
x1:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1=x2 = ', x1:2:2);
end;
if D>0 then
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x1:2:2);
end;
readln();
end.

Viskas butu gerai bet juk formule yra B*B - 4ac o ne sqr(B)-4ac? Tai viskas atrodytu sitaip:

program kvadratines;
var a, b, c, D, x1, x2 : real;
begin
writeln('Prasome ivesti koficienta "a"');
readln(a);
writeln('Prasome ivesti koficienta "b"');
readln(b);
writeln('Prasome ivesti koficienta "c"');
readln(c);
D:=(b*b)-4*a*c;
if D<0 then writeln('Sprendiniu nera');
if D=0 then
begin
x1:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1=x2 = ', x1:2:2);
end;
if D>0 then
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x1:2:2);
end;
readln();
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Rimas

Rimas 1.146

Atrašyta
Atrašyta
Taigi ir parašiau kad:
Taip, suprantu, bet uždavinio sąlyga prašo programos, kuri spręstų kvadratines lygis, o kadangi tas atvejis, kai a=0, yra ne kvadratinė lygis, tai programa tokių lygčių spręsti ir neprivalo. Nors, žinoma, blogiau nuo to ko gero nebūtų. ;)

Pataisyta programa atrodytų taip:

program kvadratines;
var a, b, c, D, x1, x2 : real;
begin
writeln('Prasome ivesti koficienta "a"');
readln(a);
writeln('Prasome ivesti koficienta "b"');
readln(b);
writeln('Prasome ivesti koficienta "c"');
readln(c);
if a <> 0 then
begin
D:=(b*b)-4*a*c;
if D<0 then writeln('Sprendiniu nera');
if D=0 then
begin
x1:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1=x2 = ', x1:2:2);
end;
if D>0 then
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b+sqrt(D))/2*a;
writeln('D = ', D:2:2);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x1:2:2);
end;
end else begin
x1:=-c/b;
writeln('x = ', x1:2:2);
end;
readln();
end.

O jei a=x^3, tai jau gauname kūbinę lygtį (niekur gi nepasakyta, kad a, b ir c gali būti tik skaičiai, o negali būti kintamieji). Niekas šito atvejo nepamiršo? :D

Nuoroda į pranešimą
Dalintis kituose puslapiuose
crezzyman

crezzyman 123

Atrašyta
Atrašyta (redaguota)

Vienas žmogelis lankantis „Pascal‘io“ kursus sakė kad dėstytojai programas tikrina su: –N, 0, +N

O kad vestu x^3, kintamaji nelabai tesu matęs ;)

Aišku galim ka sugalvoti su raidėmis...

Tačiau čia pateikta užduotis spėju 9-12kl.

Redagavo crezzyman
Nuoroda į pranešimą
Dalintis kituose puslapiuose
Rimas

Rimas 1.146

Atrašyta
Atrašyta
Privetiki ;) turiu laabai dideli prasyma gal kas pagailes ir pades :( gal kas numano kaip parasyti paskalio programele su tokia salyga : duotas tekstinis failas. rasti trumpiausia eilute. busiu lb dekinga :)
program trumpiausia;
var prad: text;
s, trump: string;
min: integer;
begin
assign(prad, 'failas.txt');
reset(prad);
readln(prad, s);
min := length(s);
trump := s;
while(not eoln(prad)) do
	begin
		readln(prad, s);
		if (length(s) < min) then trump := s;
	end;
close(prad);
writeln('Trumpiasia eilutė: ', trump);
writeln('Joje yra simbolių: ', min);
Readln;
end.

 

Sėkmės :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Paulius

Paulius 854

Atrašyta
Atrašyta

Dar, T-mix, jei netingėsi, pabandyk sugalvot, kaip ištraukt šaknį iš skaičiaus.

 

Pvz. iš 49 lengva, bet iš 98? Būtų šaknis iš 7*7*2 , o tai lygu 7 šaknim iš 2.

 

Nes reikia Matematikai, tai klasiokam padėt stengiuos, pakuriu kartais su FPS programų ;)

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Tallum

Tallum 116

Atrašyta
Atrašyta (redaguota)

Dar, T-mix, jei netingėsi, pabandyk sugalvot, kaip ištraukt šaknį iš skaičiaus.

 

Pvz. iš 49 lengva, bet iš 98? Būtų šaknis iš 7*7*2 , o tai lygu 7 šaknim iš 2.

 

Nes reikia Matematikai, tai klasiokam padėt stengiuos, pakuriu kartais su FPS programų :)

Na jooo..... , T-mix galvoja/dirba , o tu susirenki visus laurus? :) šaunu šaunu... ;)

Redagavo Tallum
Nuoroda į pranešimą
Dalintis kituose puslapiuose
Plx

Plx 669

Atrašyta
Atrašyta

Dar, T-mix, jei netingėsi, pabandyk sugalvot, kaip ištraukt šaknį iš skaičiaus.

 

Pvz. iš 49 lengva, bet iš 98? Būtų šaknis iš 7*7*2 , o tai lygu 7 šaknim iš 2.

 

Nes reikia Matematikai, tai klasiokam padėt stengiuos, pakuriu kartais su FPS programų :)

Cia vieni juokai, tikrini ar issitraukia graziai saknis, jei ne tada paziuri kiek sveiku atimi is saknies ir vsio.. Nenorek kad visi uz tave padirbtu, pats pagalvok.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Rimas

Rimas 1.146

Atrašyta
Atrašyta
Dar, T-mix, jei netingėsi, pabandyk sugalvot, kaip ištraukt šaknį iš skaičiaus.

Pvz. iš 49 lengva, bet iš 98? Būtų šaknis iš 7*7*2 , o tai lygu 7 šaknim iš 2.

Nes reikia Matematikai, tai klasiokam padėt stengiuos, pakuriu kartais su FPS programų :D

Jo, tokią ir aš turiu pasirašęs sau ant skaičiuotuvo (jo, mano skaičiuotuve programas galima rašyti :P), dažnai praverčia, nes nemėgstu "rankiniu būdu" tas šaknis paprastinti.

 

Štai ta programa:

program saknys;
const iki = 1000;
var n, i, sakn: integer;
begin
Read(n);
for i := 1 to iki do
		if (n mod (i*i) = 0) then sakn := i;
n := n div (sakn*sakn);
write(sakn);
if n <> 1 then write(' * sqrt(' , n, ')');
Readln; Readln;
end.

Padaryta, kad iki 1000 perrinkinėtų, bet jei skaičiai didesni (daugiau už milijoną), tai tą "iki" galima ir padidinti (bet tada gali ir longint prisireikti) :)

 

T-Mix - aciu tau tu mane isgelbejei :*
Prašom :)

 

Cia vieni juokai, tikrini ar issitraukia graziai saknis, jei ne tada paziuri kiek sveiku atimi is saknies ir vsio.. Nenorek kad visi uz tave padirbtu, pats pagalvok.
Kiek sveikų? :( Gal su trupmena sumaišei? :D

Čia, manau, be galimų variantų prarinkimo nelabai apsieisi, tad taip paprastai "pažiūrėti kiek sveikų" nelabai pavyks. :D Bet šiaip tai jo, paprasta. :D

Aišku algoritmą galima dar optimizuoti ir t.t., bet toks variantas yra gan suprantamas ir jei nereikės su šia programėle perrinkinėti milijardų milijardinių skaičių, tai, manau, problemų dėl laiko užgaišimo nekils. :(

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Paulius

Paulius 854

Atrašyta
Atrašyta

Jo, tokią ir aš turiu pasirašęs sau ant skaičiuotuvo (jo, mano skaičiuotuve programas galima rašyti :P), dažnai praverčia, nes nemėgstu "rankiniu būdu" tas šaknis paprastinti.

 

Štai ta programa:

program saknys;
const iki = 1000;
var n, i, sakn: integer;
begin
Read(n);
for i := 1 to iki do
		if (n mod (i*i) = 0) then sakn := i;
n := n div (sakn*sakn);
write(sakn);
if n <> 1 then write(' * sqrt(' , n, ')');
Readln; Readln;
end.

Padaryta, kad iki 1000 perrinkinėtų, bet jei skaičiai didesni (daugiau už milijoną), tai tą "iki" galima ir padidinti (bet tada gali ir longint prisireikti) :D

 

Prašom :)

 

Kiek sveikų? :) Gal su trupmena sumaišei? :(

Čia, manau, be galimų variantų prarinkimo nelabai apsieisi, tad taip paprastai "pažiūrėti kiek sveikų" nelabai pavyks. :D Bet šiaip tai jo, paprasta. :D

Aišku algoritmą galima dar optimizuoti ir t.t., bet toks variantas yra gan suprantamas ir jei nereikės su šia programėle perrinkinėti milijardų milijardinių skaičių, tai, manau, problemų dėl laiko užgaišimo nekils. :D

 

Ačiū, bet gal dar gali pasakyt, koks skaičiuotuvas tada pas tave :( Būtų reikalingas, nes daugumą uždavinių skaičiuoju su FPS, o ne skaičiuotuvu :P

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
×
 Dalintis
Sekėjai 0
Eiti į temų sąrašą

  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...