Нacтройка среды Turbo Pascal. Вычислить силу тяжести тела f, если известны его объем V и плотность p. Программа: Program Vaga; {заголовок программы} Const. - презентация

1 Нacтройка среды Turbo Pascal

2

3

4 Вычислить силу тяжести тела f, если известны его объем V и плотность p. Программа: Program Vaga; {заголовок программы} Const {описание констант} g=9.8; Var {описание переменных} v,p,m:integer; {целочисленный тип} f:real; {вещественный тип} Begin Write('V=');Readln(v); {ввод значения объема} Write('p=');Readln(p); {ввод значения плотности} m:=p*v; {расчет значения массы} f:=m*g; {расчет значения силы} Writeln('f=',f:5:2); {вывод значения силы} Readln; {задержать ответ на экране} End.

5 начало конец ввод t вывод z Программа: Program Zad1; Var t,z:real; Begin Write('t=');Readln(t); z:=pi*sqrt(7-sqr(t))+abs(t-8); Writeln('z=',z:6:3); Readln; End. Вычислить значение выражения:

6 нет да начало f = (6x 2 -7)/(9+x) 9 + x= 0 конец ввод x вывод f деление на 0 Программа: Program Zad1; Var x,y:real; Begin Write('x=');Readln(x); If 9+x=0 then Writeln('деление на 0') else begin f:=(6*x*x-7)/(9+x); Writeln('f=',f:5:3); end; Readln; Еnd. Вычислить значение функции.

7 Программа: Program Krug; Var x,y,R:integer; Begin Write('x=');Readln(x); Write('y=');Readln(y); Write('R=');Readln(R); If x*x+y*y

8 s = s + i s = 0 вывод s ввод n,m конец начало i = n..m Программа: Program Summa; Var n,m,i,s:integer; Begin Write('n=');Readln(n); Write('m=');Readln(m); s:=0; For i:= n to m do s:=s+i; Writeln('s=',s); Readln; End. Составить блок-схему и программу суммирования целых чисел принадлежащих интервалу от n до m.

9 s = 0; i = n ввод n,m вывод s конец i = i + 1 начало s = s + i i m нет да Программа: Program Summa; Var n,m,i,s:integer; Begin Write('n=');Readln(n); Write('m=');Readln(m); s:=0;i:=n; While i

10 нет вывод s ввод n,m конец i = i + 1 начало s = 0; i = n s = s + i i > m да Программа: Program Summa; Var n,m,i,s:integer; Begin Write('n=');Readln(n); Write('m=');Readln(m); s:=0;i:=n; Repeat s:=s+i; i:=i+1; Until i>m; Writeln('s=',s); Readln; End. Составить блок-схему и программу суммирования целых чисел принадлежащих интервалу от n до m.

11 Программа: Program Delitel; Var a,n:integer; Begin Write('a=');Readln(a); n:=1; Repeat If a mod n=0 then writeln(n); n:=n+1; Until n>a/2; Readln; End. да нет да ввод a вывод n нет a mod n=0 начало n = 1 конец n = n + 1 n>a/2 Определить все целочисленные делители целого числа. Ввод числа организовать с клавиатуры.

12 Отладка программы

13

14 При составлении презентации использованы дидактические материалы учителя гимназии Кировского района г. Донецка Амелькина А.В.