Padedu su mokomaisiais dalykais

Programuoju pascal'iu, sprendžiu uždavinius, su visais paaiškinimais. Gerai išmanau Word, Excel. Sprendžiu matematikos, fizikos uždavinius, taip pat viską paaiškinu. Yra galimybė spresti ant popieriaus ir skenuoti, arba jūsų siūlomas variantas. Užduotys mokyklinio lygio (iki 12 klasės), nors pascal programavimas ir universitetuose nedaug pažengęs, tai galit bandyt kreiptis ir su tokiom. :)

Galiu pamokyt viską individualiai (skype).

Kainos prieinamos, nesikandžioja. Susitarsim. Rašykit čia į PM. :)

nuo kada universitete moko programuot su pascaliu? :)

si kalba tinka tik mokytis pradmenu, o ne uzsiimt rimtu programavimu :)

nuo kada universitete moko programuot su pascaliu? :)

 

si kalba tinka tik mokytis pradmenu, o ne uzsiimt rimtu programavimu :)

Ne apie programavimo studijas aš kalbu. Bet pavyzdžiui, kad matematikus moko pascaliu programuot tai tikrai žinau. :)

Laiko turėdamas pasprendinėjau, tai pridedu uždavinių pavyzdžių. Kad matytumėt, ar raštas suskaitomas ir pan. ;)

Matematika:

1.Trys broliai pasidalijo loterijoje laimėtus pinigus taip: vyriausias gavo 0.3 visos sumos ir dar 8 Lt, vidurinysis - 0.4 likusios sumos ir dar 16 Lt, jauniausias - 0,7 naujo likučio ir dar 24 Lt. Kokia pinigų suma buvo laimėta ir kiek litų gavo kiekvienas brolis?

2.Triženklio naturaliojo skaičiaus skaitmenys sudaro geometrinę progresiją, kurios vardiklis lygus 0,5. To skaičiaus skaitmenų suma lygi 14. Raskite tą skaičių.

3.Su kuria a reikšme y=3*x+a yra funkcijos f(x)=2*x^2+5*x+1 grafiko liestinė?

Fizika:

1.Oro burbuliuko, kuris yra prie ežero dugno, tūris padidėja 3 kartus, kai jis pakyla į vandens paviršių. Temperatūra prie dugno yra 7C, o vandens paviršiuje 17C. Atmosferos slėgis

10^5 Pa, laisvojo kritimo pagreitis 10 m/s^2, vandens tankis 1000 kg/m^3. Kiek kartų slėgis burbuliuke sumažėja jam iškilus į paviršių? Kokio gylio ežeras?

2.Kišeninio žibintuvėlio baterijos elektrovara yra 4,5V. Dėl didelės vidinės varžos, prie jos galime jungti 3,5V įtampai skirtą lemputę. Srovės stipris tekantis lemputės siūleliu lygus 0,28A.

1) Koks krūvis prateka per 1 sekundę lemputės siūleliu?

2) Kokia šviečiančios lemputės varža?

3) Kokia vidinė baterijos varža?

Pascal:

1.Turime skaičių n, reikia jam rasti didžiausią pirminį daliklį.

program pirminiai;

function pirminis(n : int64) : boolean; {fukncija nustato ar skaičius pirminis}
var d, { potencialus daliklis }
sn : longint; { riba, iki kurios ieškosime daliklių }
begin
pirminis := (n mod 2 <> 0) or (n = 2);
sn := round(sqrt(n) + 1);
d := 3; { tikrinsime dalumą iš nelyginių skaičių }
 while pirminis and (d < sn) do
  if n mod d = 0 then pirminis := false
  else d := d + 2;
end;

var k,n,dal: longint;

begin

ReadLn(n);
k:=(n-1);
while dal=0 do {vykdome kol randame daliklį}
 begin
  if pirminis(k) and (n mod k=0) then
dal:=k
  else
dec(k);
  end;
Writeln(dal);
ReadLn;
end.