Работа в Turbo Pascal

 
 
 
 
 
 
 
 
 
 

                             РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА  

                                       Тема: “Работа в Turbo Pascal” 
 
 
 
 

                                                                   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание 1. Перевод десятичных чисел в 16-ю систему. 

      Дано  число: 5962000 

      Текст программы: 

Program RGR3_1;

Var

  a,n,i, ost  :longint;

  X:array[1..30] of longint;

begin

   Write('Vvedite 10-e chislo->');

   readln(a);

    i:=1;  n:=0;

    While a>0 do

    begin

      ost:= a mod 16 ;

      X[i]:=ost;

      a:=a div 16;

      Writeln('i=',i, ' ost=',X[i], ' chast=',a);

      i:=i+1; n:=n+1;

    end;

    Write('Chislo v 16-oi sisteme =');

   for i:=n downto 1 do

       begin

       if X[i]>9 then

           case X[i] of

              10: Write('A');

              11: Write('B');

              12: Write('C');

              13: Write('D');

              14: Write('E');

              15: Write('F');

           end

       else  Write(X[i]);

       end ;

       readln;

end. 

      Вывод на экран: 

 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      Задание 2. Поиск листа  емкости заданного  объема. 

      Дан объем: 0,09

      Исходный  диапазон: 1.05-1.10 

      Текст программы: 

Program RGR3_2;

var a1, a2, c, V1,V2,Vc,V3 : real;

    k:integer;

Procedure vvod(var a, Vmax :real);

Var i,N :integer;

    b, max_b, b1, b2, V : real;

Begin

   N:=100; b:=0; Vmax:=0;

   max_b:=a/2;   b1:=max_b/N;

   For i:=1 to N do

        begin

           b:=b+b1;

           V:=b*sqr(a-2*b);

           if V>Vmax then

              begin

                b2:=0;

                Vmax:=V;

                b2:=b;

              end;

        end;

   Write(' max ob"em Vmax= ',Vmax:2:4);

   Write(' dlya A=',a:2:4);

   Writeln(' pri b= ',b2:2:4);

end;

begin

   Write('Ob"em V->');   readln(V3);

   Write('Vvedite A->'); readln(a1);

   Write('Vvedite B->'); readln(a2);

     Vvod(a1, V1);

     Vvod(a2,V2);

    For k:=1 to 5 do

    begin

    C:=0;    C:=(a1+a2)/2;

   Vvod(c,Vc);

   if Vc<V3 then a1:=c else a2:=c;

   end;

  readln;

  end. 
 
 
 
 
 

      Вывод на экран: 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      Задание 3. Работа с массивом

                                                                                  

      Начальное время: 9

      Мощность: 10 кВт; Vn=4.5 м/с.

      Определить: среднюю скорость ветра, Количество выработанной энергии. 

      Текст программы: 

Program RGR3_3;

Var VT: text;

      k,i,m, n: integer;

      Vn,sum, s,w,ws:real;

      sred:real;

      A:array[1..48] of real;

      Begin

     Writeln('Massiv sila vetra po chasam sutok');

     Write('Nachalnoe vremya ->');

     readln(k);

     Write('Moschnost ->');

     readln(w);

     Write('Vn ->');

     readln(Vn);

     assign (VT, 'Veter.txt');

     reset (VT);

        s:=0;  n:=k+11; m:=0; sred:=0; ws:=0; sum:=0;

        For i:=k to n  do

          begin

           read(VT, A[i]);

           Write(i, '    ');

           m:=m+1;

          end;

      close (VT);

         Writeln;

         For  i:=k to n do

           begin

              Write(A[i]:2:1,'  ');

                    if A[i]>Vn then

                begin

                  ws:=ws+w;

                  Sum:=Sum+A[i];

                  s:=i;

                end;

            end;

            sred:=sum/m;

          writeln;

          Writeln('Kol-vo elementov= ',m);

          Writeln('Sred skorost vetra =',sred:3:2);

          Writeln('Vsego vyrabatano kVt*chas= ',ws:3:2);

          readln;

end. 

      Блок  схема: 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      Вывод на экран: 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  литературы

1. Информатика. Базовый курс. Учебное пособие для вузов под ред. Симоновича С.В., -СПб.: Питер, 2003.

2. Безручко  В.Т. Практикум по курсу «Информатика». Работа в Windows, Word, Excel. –М.: Финансы и статистика, 2003.

3. Маликова  Л.В., Пылькин А.Н. Практический  курс по электронным таблицам  MS Excel. –М.: Горячая линия – Телеком, 2004.

4. Культин Н.Б. Turbo Pascal в задачах и примерах. –СПб.: БХВ, 2005.

5. http://www.rntb.nets.kz – сайт Республиканской Научно-Технической библиотеки (РНТБ).

6. Истомин  Е.П., Неклюдов С.Ю., Романченко В.И.  Информатика и программирование. –СПб.: АИД, 2008.

7. Каблукова  Г.В., Титов В.М. Компьютерный практикум  по информатике. Офисные технологии. –М.: ИД Форум-Инфра-М, 2008.

8. Лесничная  И.Г., Романова Ю.Д. Информатика  и информационные технологии (Конспект  лекций). –М.: ООО Издательство Эконом, 2006.

9. Степанов  А.Н. Информатика. –СПб.: Питер, 2007.

10. Пестриков  В.М., Маслобоев А.Н. Turbo Pascal 7.0. Изучаем на примерах. –СПб.: Наука и техника, 2004.

11. Лукин С.Н. Turbo Pascal 7.0. Самоучитель для начинающих. –М.: Диалог МИФИ, 2002.

12. Андреева  Т.А. Программирование на языке Pascal. –М.: Бином, 2006.