Сторінка
4

Інтеграція міжпредметних зв’язків при вивченні мови програмування Pascal

readln (alpha,v0);

t:=v0*sin(alpha)/g;

writeln (‘ час = ’, t, ‘ с’);

end.

10. На штовхання ядра, кинутого під кутом alpha до горизонту, затрачена робота А. Через який час t і на якій відстані s від місця кидання ядро впаде на землю? Маса тіла m.

var alpha,t,A,m,s: real;

const g=9.81;

begin

writeln (‘Введіть значення кута (в радіанах), масу тіла (в кг), роботу (в Дж)');

readln (alpha,m,A);

t:=(2*sin(alpha)*sqrt(2*A))/(g*sqrt(m));

s:=t*cos(alpha)*sqrt(2*A/m);

writeln (‘ час = ’, t, ‘ с’, ‘ відстань = ’, s, ‘ м’);

end.

11. Задача на знаходження сили гравітаційної взаємодії між двома тілами відомої маси, які знаходяться на відомій відстані одне від одного:

var m1,m2,r,F: real;

const G=6.67E-11;

begin

writeln (‘Введіть масу першого і другого тіл (в кг) і відстань між ними (в м)');

readln (m1,m2,r);

F:=G*m1*m2/sqr(r);

writeln (‘F = ‘, F, ‘Н’);

end.

12. Обчислити гравітаційну сталу G, знаючи радіус земної кулі R, середню густину землі r і прискорення вільного падіння g на поверхні Землі:

var R,G,r1,g1: real;

begin

writeln (‘введіть радіус (в м), середню густину (в кг/куб.м) і прискорення вільного падіння (в Н/с)');

readln (R,r1,g1);

G:=(3*g1)/(4*3.14*R*r1);

writeln (‘G = ‘, G);

end.

13. Задача на знаходження моменту інерції I та моменту імпульсу L кулі масою m і радіусом r:

var I,L,m,r,T: real;

begin

writeln (‘введіть радіус (в м), масу (в кг) і період обертання (в с) кулі');

readln (r,m,T);

I:=0.4*m*sqr(r);

L:=I*2*3.14/T;

writeln (‘I = ‘, I, ‘ кг*кв.м’, ‘L = ’, L, ‘кг*кв.м/с’);

end.

14. Задача на знаходження енергії, необхідної для нагрівання тіла відомої маси, виготовленого з відомого матеріалу, на певну кількість градусів Цельсія чи Кельвіна:

var Q,c,m,t12: real;

begin

writeln (‘введіть питому теплоємність речовини (в Дж/кг*К), массу тіла і різницю температур');

readln (c,m,t12);

Q:=c*m*t12;

writeln (‘Q = ‘, Q, ‘ Дж’);

end.

15. За який час t кип’ятильник потужністю P нагріє воду масою m до температури кипіння від початкової температури t0?

var P,c,m,t,t0: real;

begin

writeln (‘введіть масу води (в кг), потужність (в Вт) та початкову температуру води (в градусах Цельсія)');

readln (m,P,t0);

t:=(4200*m*(100-t0))/P;

writeln (‘t = ‘, t, ‘ c’);

end.

16. Задача на знаходження сили взаємодії між двома зарядами, що знаходяться на певній відстані у вакуумі чи в повітрі:

var F,q1,q2,r: real;

const k=9E10;

begin

writeln (‘введіть модулі першого та другого зарядів (в Кл) та відстань між ними (в м)');

readln (q1,q2,r);

F:=k*q1*q2/sqr(r);

writeln (‘F = ‘, F, ‘ H’);

end.

17. Задача на знаходження величини напруженості, яку створює заряд q на відстані r від себе:

var E,q,r: real;

const k=9E10;

begin

writeln (‘введіть модуль заряду (в Кл) та відстань до даної точки (в м)');

readln (q,r);

E:=k*q/sqr(r);

writeln (‘E = ‘, E, ‘ В/м’);

end.

18. Задача на знаходження потенціалу, який створює даний заряд на деякій відстані від себе:

var f,q,r: real;

const k=9E10;

begin

writeln (‘введіть модуль заряду (в Кл) та відстань до даної точки (в м)');

readln (q,r);

f:=k*q/r;

writeln (‘ потенціал = ‘, f, ‘ В’);

end.

19. Задача на знаходження заряду конденсатора з відомою ємністю, що заряджений до певної напруги:

var c,q,u: real;

begin

writeln (‘введіть електроємність конденсатора (в Ф) та напругу на його обкладках (в В)');

readln (c,u);

q:=c*u;

writeln (‘ q = ‘, q, ‘ Кл’);

end.

20. Задача на знаходження енергії конденсатора відомої ємності, зарядженого до певної напруги:

var W,C,U: real;

begin

writeln (‘введіть електроємність конденсатора (в Ф) та напругу на його обкладках (в В)');

readln (C,U);

W:=C*sqr(U)/2;

writeln (‘ W = ‘, W, ‘ Дж’);

end.

21. Задача на знаходження часу розряду конденсатора ємністю С через резистором з опором R від напруги U1 до напруги U2:

var t,C,R, U1,U2: real;

begin

writeln (‘введіть електроємність конденсатора (в Ф), опір резистора (в Ом), початкову та кінцеву напругу (в В)');

readln (C,R,U1,U2);

t:=C*R*ln(U1/U2);

writeln (‘ t = ‘, t, ‘ c’);

end.

22. Задача на знаходження електроємності конденсатора, якщо відомо площа обкладок S, відстань між ними d та відносна діелектрична проникливість діелектрика e:

var C,e,S,d: real;

const e0=8.85E-12;

begin

writeln (‘введіть площу пластин (в кв.м), відстань між ними (в м) та відносну діелектричну проникливість діелектрика');

readln (S,d,e);

C:=e*e0*S/d;

writeln (‘ C = ‘, C, ‘ Ф’);

end.

23. Задача на знаходження електричного опору провідника при нагріванні до певної температури, якщо відомо його опір при 0 оС, температурний коефіцієнт опору та температуру, до якої він нагрівається:

var R,R0,t,x: real;

begin

writeln (‘введіть опір провідника при 0 градусів Цельсія (в Ом), температуру (в градусах Цельсія) та температурний коефіцієнт опору провідника‘);

readln (R0,t,x);

R:=R0*(1+x*t);

writeln (‘ R = ‘, R, ‘ Ом’);

end.

24. Задача на знаходження температури, до якої нагрівся провідник з відомим температурним коефіцієнтом опору, якщо відомо його опір при 0 оС та при даній температурі:

var R,R0,t,x: real;

begin

writeln (‘введіть опір провідника при 0 градусів Цельсія та при даній температурі (в Ом) та температурний коефіцієнт опору провідника‘);

readln (R0,R,x);

t:=((R/R0)-1)/x;

writeln (‘ t = ‘, t, ‘ градусів Цельсія’);

end.

25. Задача на знаходження сили струму в колі за законом Ома для ділянки кола:

var R,U,I: real;

begin

writeln (‘введіть опір (в Ом) та напругу (в В)‘);

readln (R, U);

I:=U/R;

writeln (‘ I = ‘, I, ‘ A’);

end.

Вивчивши структуру цих програм, студент чи учень зможе без проблем самостійно писати допоміжні програми, які значно полегшать процес навчання та підвищать його ефективність.

На більш високому рівні в порівнянні з друкованими презентаціями стоять комп'ютерні презентації (електронні презентації), що дозволяють вийти за межі друкованих каталогів та буклетів. Електронні презентації можна розміщувати в Інтернеті - на сайті компанії, розсилати по електронній пошті (pdf презентації), використовувати на конференціях, семінарах, презентаціях в якості відео презентацій (мультимедіа презентації, мультимедійні презентації).

Такі презентації в залежно від формату можуть відрізнятися динамікою, а можливо і повноцінної анімацією (анімаційні презентації), оригінальною подачею інформації, можливістю додавання звуку, музики і багатьом іншим. Комп'ютерні презентації не зав'язані на друкарський тираж, можуть використовуватися на різних носіях, будь то комп'ютер, плазма або проектор, в них досить просто вносити зміни. Головне достоїнство -- маса. Комп'ютерні презентації також можна умовно обробити на кілька типів. Давай пройдемося від найпростіших до більш складних.