Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / ILYICH2
.PAS program CM4_12;
uses crt;
var
f,m1,m2,r:real;
begin;
textbackground(16);
clrscr;
gotoxy(25,9);
textcolor(4);
writeln ('‚ўҐ¤ЁвҐ § 票Ґ m1');
gotoxy(50,9);
readln (m1);
gotoxy(25,10);
textcolor(5);
writeln ('‚ўҐ¤ЁвҐ § 票Ґ m2');
gotoxy(50,10);
readln (m2);
gotoxy(25,11);
textcolor(3);
writeln('‚ўҐ¤ЁвҐ § 票Ґ r');
gotoxy(50,11);
readln (r);
gotoxy(25,13);
textcolor(9);
writeln('f= 6.663*(1E-8)*(m1*m2/sqr(r))');
f:= 6.663*(1E-8)*(m1*m2/sqr(r));
gotoxy(25,15);
textcolor(2);
writeln('ђҐ§г«мв в : f=' ,f:4:15);
delay(5000);
end.
uses crt;
var
f,m1,m2,r:real;
begin;
textbackground(16);
clrscr;
gotoxy(25,9);
textcolor(4);
writeln ('‚ўҐ¤ЁвҐ § 票Ґ m1');
gotoxy(50,9);
readln (m1);
gotoxy(25,10);
textcolor(5);
writeln ('‚ўҐ¤ЁвҐ § 票Ґ m2');
gotoxy(50,10);
readln (m2);
gotoxy(25,11);
textcolor(3);
writeln('‚ўҐ¤ЁвҐ § 票Ґ r');
gotoxy(50,11);
readln (r);
gotoxy(25,13);
textcolor(9);
writeln('f= 6.663*(1E-8)*(m1*m2/sqr(r))');
f:= 6.663*(1E-8)*(m1*m2/sqr(r));
gotoxy(25,15);
textcolor(2);
writeln('ђҐ§г«мв в : f=' ,f:4:15);
delay(5000);
end.
Соседние файлы в папке Alex