Изучение интегрированной инструментальной среды Turbo Pascal 7.0 (TP 7.0), страница 2

   Решение:

Программа:

uses Graph;

const Radius = 30;

var Gd, Gm: Integer;

begin

 Gd := Detect;

 InitGraph(Gd, Gm, ' ');

 if GraphResult <> grOk then

   Halt(1);

 PieSlice(100, 100, 0, 270, Radius);

 Readln;

 CloseGraph;

end.

            Результат:

Задание 6:

1.  Сделайте активным окно 2.pas и устанивите его размер таким образом, чтобы оно занимало примерно 2/3 экрана.

2.  Откройте окно Watch и добавьте в него переменные a,b,c.

3.  Выполните программу по шагам, наблюдая за значениями a,b и c.

4.  Выполните программу с остановками на строках а : = 2х2; а : =5х5 и end. , наблюдая за значениями а.

5.  Уберите из окна Watch все переменные и закройте это окно.

6.  Закройте все окна, кроме 2.pas и Output.

7.  Установите режим компиляции Disk и скомпилируйте программу.

8.  Выйдите из среды ТР 7.0 и запустите программу 2.ехе.

Решение:

           Задание 7:

Войдите снова в среду ТР 7.0 и наберите программу:

program My_first_program;

var

     i,j:integer;

     a,b,c,r,S,V,L1:real;

     alpha,g:real;

     k,m,n,p,l:integer;

Begin

  r:=2.0;

  S:=4*pi*r*r;

  V:=4/3*pi*r*r*r;

Writeln;

write(' Шар с радиусом ',r:1:0,' имеет ');

Writeln('площадь поверхности',S:3:1,' и объёмом ', V:3:1);

  v:=8.2;          alpha:=50;

  g:=9.8;

  L1:=sqr(v)*sin(2*alpha*pi/180)/g;

Writeln('L1 = ',L1:5:2);

  A:=3;B:=2;

  C:=exp(b*ln(a));

Writeln(' 3 в степени 2 равно ',C:1:0);

  a:=cos(a)+ln(a)+exp(a);

  b:=sqrt(a);

  c:=arctan(a);

writeln('a= ',a:5:3,' b= ',b:5:3,' c= ',c:5:2);

  i:=3;j:=2;k:=5;

  l:=(i*j)*k;

  a:=k/i;

  m:=k div i;

  n:=k mod i;

writeln(' i= ',i:3,' a= ',a:8:5,' m= ',m:2,' n= ',n:2);

End.

           Решение:

Шар с радиусом 2 имеет площадь поверхности50.3 и объёмом 33.5

L1 =  6.76

 3 в степени 2 равно 9

a= 20.194 b= 4.494 c=  1.52

 i=   3 a=  1.66667 m=  1 n=  2