audrius^

55

program programa; var i, j, m, n, Pk:integer; pirminis:boolean; begin Pk := 0; for i:=m to n do begin pirminis := true; for j:=2 to floor(sqrt(i))+1 do if (i mod j == 0) pirminis := false; if pirminis then Pk++; end; end.

20eur

program a; var n, m, k, s:integer; begin writeln('Ivesti m ir n: '); readln(m, n); k := n - m + 1; //skaiciu kiekis intervale [m, n] s := (m+n)*k div 2; //skaiciu suma intervale [m, n] writeln(' Kiekis: ', k, ' Suma: ', s, ' Vidurkis: ', (s/k):2:2); readln(); end.

http://www.part.lt/img/47441af4fe566b0c8c8dbf2052fdf2b4712.gif R23 = 6/7 Aciu uz pataisyma, sumaises R23 ir R32 buvau...

30

20

17

Nelabai pamenu pascalio sintaksės ir neturiu compilerio, bet gal užvesiu ant kelio kaip ką daryti... program programa; function ArPirminis(sk:integer):boolean; var i:integer; begin if (sk <= 1) then ArPirminis := false else if ((sk == 2) || (sk == 3)) then ArPirminis := true else begin i := 5; while (i <= trunc(sqrt(sk))) do begin if (sk mod i == 0) then ArPirminis := false; i += 2; end; end; ArPirminis := true; end; var i, sk:integer; Begin readln(sk); while (sk != 0) do begin if (ArPirminis(sk) == true) then writeln(sk, " Pirminis skaicius")

Paaiškink ką bandai padaryti?

Seniai jau buvau programavęs C++, bet va dar kažką atsimenu. #include <iostream> #include <ifstream> using namespace std; void Skaitymas(int); int main() { int t; Skaitymas(t); cout << t << endl; system("PAUSE"); return 0; } void Skaitymas(int *temp) { ifstream D; D.open("duomenys.txt"); int kiekis = 0; int sk; D >> temp >> kiekis; for (int i=0; i<kiekis; i++) { D >> sk; temp += sk; } D.close(); } P.S. neturėjau jokio c++ compilerio, tai galiu būt kokią klaidą įvėlęs...

program programa; type duom = 'duomenys.txt'; procedure skaitymas(var temp:integer); var i, k, sk:integer; D:text; begin assign(D, duom); reset(D); readln(D, temp, k); for i:=1 to k do begin read(D, sk); temp += sk; end; close(D); end; var t:integer; Begin skaitymas(t); writeln(t); readln; End. duomenu failo pavadinimas yra: duomenys.txt

Tu tik vieną kartą iškvieti funkciją "nak := Kaina(pm, ak, n, m, p);", po šios eilutės tu priskiri nak reikšmę ir ją naudoji rašymo funkcijoje... Turėtum rašymo procedūroje, kiekvienai mašinai atskirai skaičiuoti nak reiškmę t.y. šią eilutę WriteLn(Fw, i, ' ', pm[i], ' ', v[i], ' ', ak[i]:0:2, ' ', nak:0:2); pakeisti į kažką panašaus į WriteLn(Fw, i, ' ', pm[i], ' ', v[i], ' ', ak[i]:0:2, ' ', Kaina(pm, ak, n, m, p):0:2); Susitvarkyk rašymo funkciją, nes nak reikšmė beprasmiška gaunasi

šiuo atvėju tai break užbaigia while ciklą, nes kitaip niekada programa nesustotų

program programa; var i:integer; Pk, sumPk:real; Begin sumPk := 0.00; for i:=1 to 8 do begin readln(Pk); if (Pk < 50.00) then sumPk += Pk; end; writeln('suma: ', sumPk:4:2, 'lt'); readln; End. program programa; const M:integer = 10; var i, sk, sum, k:integer; Begin sum:=0; k:=0; while (true) do begin readln(sk); if (sk <> 0) then if (sk > M) then begin sum += sk; k += 1; end; else break; end; writeln('suma ', sum); writeln('kiekis ', k); readln; End.

program programa; const //susikuriam masyva su 5 elementais sudaryta is sveikuju skaiciu m:array[1..5] of integer = (1, 5, -2, 0, -3); var i, nk, //kintamasis kuris kaups neigiamu skaiciu kieki tsum, //kintamasis kuris kaups teigiamu skaiciu suma tsan:integer; //kintamasis kuris kaups teigiamu skaiciu sandauga Begin nk := 0; tsum := 0; tsan := 1; //priskiriam pradines reiksmes kintamiesiems for i:=1 to 5 do if m[i] > 0 then //tikrinam ar i-asis masyvo el yra >0 t.y. teigiamas begin //jei teigiamas tai atliekam siuos veiksmus tsum += m[i]; //kaupiam teigiam

program programa; var i, k, dt:integer; Begin k:=0; for i:=1 to 7 do begin write(i, '-os dienos temp: '); readln(dt); if (dt > 10) then k+=1; end; writeln('Siltu savaites dienu kiekis: ', k); readln; End. program programa; var i, k, sk, tk, nk:integer; Begin k:=0; i:=1; tk:=0; nk:=0; while (true) do begin write(i, '-as skaicius: '); readln(sk); i+=1; if (sk <> 0) then if (sk > 0) then tk += 1 else nk += 1 else break; end; writeln('Teigiamu kiekis: ', tk); writeln('Neigiamu kiekis: ', nk); readln; End. program pr

program programa; function keltiKubu(a:integer):integer; begin keltiKubu := a*a*a; end; function analize(a:integer):boolean; var i, suma, laik:integer; begin suma := 0; laik := a; while (a > 0) do begin suma += keltiKubu(a mod 10); a := a div 10; end; analize := suma = laik; end; var i:integer; Begin for i:=100 to 1000 do begin if analize(i) then writeln(i); end; readln; end. 153 = 1³ + 5³ + 3³ 370 = 3³ + 7³ + 0³ 371 = 3³ + 7³ + 1³ 407 = 4³ + 0³ + 7³

α=-30° sin(α) = sin(-30°) = sin(-π/6) = -sin(π/6) = -1/2 cos(α) = cos(-30°) = cos(-π/6) = cos(π/6) = sqrt(3)/2 tg(α) = sin(α)/cos(α) = sin(-30°)/cos(-30°) = (-1/2)/(sqrt(3)/2) = -1/sqrt(3) = -sqrt(3)/3 ctg(α) = 1/tg(α) = 1/(-sqrt(3)/3) = -3/sqrt(3) = -sqrt(3) e) 3^x + 5 = 14 3^x = 9 3^x = 3^2 x = 2 h) log2(x+1) = -1, žinant pagrindinę log sąvyje, x^logx(a) = a, pertvarkom lygtį 2^log2(x+1) = 2^(-1) x+1 = 2^(-1) x = 1/2 - 1 x = -1/2 Įsivaizduoju, kad jau nebereikia, bet neturėjau ką veikti :)

pratęsti juk galėjai a^3 + b^3 = (a + b)(a^2 - ab + b^2) = (a+b)(a^2 + 2ab + b^2 - 3ab) = (a+b)((a+b)^2 - 3ab) iš čia tiesiai ir stataisi reikšmes ;) a^3 + b^3 = 5 * (5^2 - 3*7) = 20

Nėra sunkus integralas... Nes 1/pi šoka prieš integralą, dx/x = d(ln(x)), įvesiu keitinį, nors galima mintinai t=ln(x), ln(1)=0, ln(e)=1, tai lieka: 1/pi * int{1/(1+t^2), 0, 1} = 1/pi * arctg(t)|{0, 1} = 1/pi * (arctg(1) - arctg(0)) = 1/pi * (pi/4 - 0) = 1/4

(x+a)^2 = x^2 + 2ax + a^2 naudoju šią formulę, tam, kad persitvarkyti lygtį. Nes x^2 - 4x - 6 = x^2 - 2*2x - 6 = x^2 - 2*2x + 2^2 - 2^2 - 6 = (x-2)^2 - 2^2 - 6 = (x-2)^2 - 10

Legviausia tai: sin(180 - arcsin(0.6) - arcsin(0.352)) = 0.8432

x^2 - 4x - sqrt(2x^2 - 8x + 12) = 6 x^2 - 4x - 6 = sqrt(2(x^2 - 4x + 6)) x^2 - 2*2x + 2^2 - 6 - 2^2 = sqrt(2(x^2 - 2*2x + 2^2 - 2^2 + 6)) (x-2)^2 - 10 = sqrt(2((x-2)^2 + 2)) (x-2)^2 - 10 = sqrt(2(x-2)^2 + 4), įsivedame keitinį t=(x-2)^2 t - 10 = sqrt(2t + 4), kelias abi puses kvadratu (t - 10)^2 = (sqrt(2t + 4))^2 t^2 - 20t + 100 = 2t + 4 t^2 - 22t + 96 = 0 t^2 - 2*11t + 11^2 - 11^2 + 96 = 0 (t-11)^2 - 25 = 0 (t-11)^2 - 5^2 = 0 (t-11 - 5)(t-11 + 5) = 0 (t - 16)(t - 6) = 0 Pradžiai t=16 (x-2)^2 = 16 (x-2)^2 - 4^2 = 0 (x-2 + 4)(x-2 - 4) = 0 (x + 2)(x - 6) = 0 sprendiniai x=-2 ir x=6 Toliau t=6 (

#include <iostream> using namespace std; int main() { int k = 0; int s; cin >> s; while (s != 0) { if (s < 0) k++; cin >> s; } cout << "Neigiamu kiekis: " << k << endl; system("pause"); return 0; }; #include <iostream> using namespace std; int main() { int s; cin >> s; int max = s; int min = s; while (s != 1) { if (s>max) max = s; else if (s<min) min = s; cin >> s; } cout << "Max * Min = "