Турбо Паскаль

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

Рудненский индустриальный институт

Кафедра  математики и информационных систем

КОНТРОЛЬНАЯ РАБОТА

Тема:  Турбо Паскаль

Дисциплина «Технологии программирования»

Оценка__________________               Преподаватель:

Члены комиссии:                                                          __________________________

              (ученая степень, ученое звание)

_________________________              __________________________

«____»_______________20__              (личная подпись,  И.О.Ф.)

              Студент:

_________________________              __________________________

«____»_______________20__              (личная подпись,  И.О.Ф.)

              Группа           

_________________________              № зачетной книжки

«____»_______________20__              «____»_____________2011г.

Рудный 2011

СОДЕРЖАНИЕ

1.Введение................................................................................. 3

2.Задание 1................................................................................ 4

3.Задание 2................................................................................ 5

4.Задание 3................................................................................ 7

5.Задание 4................................................................................ 8

6.Задание 5................................................................................ 10

7.Задание 6................................................................................ 12

8.Задание 7................................................................................ 13

9.Задание 8................................................................................ 14

10.Список используемой литературы....................................... 16

Введение

   Система Турбо Паскаль, представляет собой единство двух в известной степени самостоятельных начал: компилятора с языка программирования Паскаль (язык назван в честь выдающегося французского математика и философа Блеза Паскаля (1623-1662)) и некоторой инструментальной программной оболочки, способствующей повышению эффективности создания программ.

     Система программирования Турбо Паскаль разработанная американской корпорацией Borland, остается одной из самых популярных систем программирования в мире. Этому  способствуют, с одной стороны, простота лежащего в ее основе языка программирования Паскаль, а с другой труд и талант сотрудников Borland приложивших немало усилий к ее совершенствованию. Паскаль представляет собой мощную современную профессиональную систему программирования, которой по плечу любые задачи - от создания небольших программ для решения несложных вычислительных задач, до разработки сложных реляционных систем управления базами данных.

     Появление Windows и инструментальных средств Borland Pascal with Objects и Delphi для разработки программ в среде Windows лишний раз показало, какие по истине неисчерпаемые возможности таит он в себе: и Borland Pascal и используемый в Delphi язык Object Pascal основываются на Турбо Паскале и развивают его идеи.

Задание 1 +

Вычислить значение выражения Y. Значения аргумента Х задать с клавиатуры 

program zadaie1;

uses crt;

var

x,y:real;

begin

clrscr;

write('Введите x = ');

readln(x);

y:=sqrt(sin(x)-abs(sin(sqr(sqr(x)))))*3*log(exp(x))/sqrt(sqrt(ln(x)));

writeln('y = ',y:9:5);

readln

end.

Контрольный пример:

Задание 2 +

Вычислить значение функции F в зависимости от значения аргумента Х, объявив переменные a, b постоянными

program zadanie2;

uses crt;

const

              a=7.88;

              b=4.56;

var

x,f:real;

n:byte;

begin

clrscr;

writeln('константа a = ',a);

writeln('константа b = ',b);

writeln;

x:=(2*b/a)*sin(a);

writeln('x = ',x:5:2);

if (x>0)and(x<2) then

   begin

   f:=exp(5*sin(x))-exp(2*cos(x)); n:=1;

   end else

      if x<=0 then

         begin

         f:=ln(5*x)-ln(a-x); n:=2;    end else

          if x>=2 then

            begin

            f:=(sin(x)/cos(x))-2*sin(a-x); n:=3;

            end;

writeln('вычисление по ',n,' формуле');

writeln;

writeln('f = ',f:9:5);

readln

end.

Контрольный пример:

Задание 3 – в программе ошибка с шагом а=0,1

Используя любой из видов цикла, найти значения выражения Y

Program z3;

uses crt;

var

  y:real;

  x:integer;

  a:real;

begin

clrscr;

for x:=-1 to 1 do

   begin

      a:=0;

      y:=sqr(sin(x))+cos(a*x);

      writeln('x=',x);

      writeln('a=',a:3:2);

     writeln(' y=',y:5:2);

      a:=a+0.01;

    end;

     { a:=a+0.01;}

      readln;

end.

Контрольный пример:

Задание 4 +

Осуществить работу с массивом

Дан массив A. Определить количество полных квадратов среди элементов массива. Вывести исходный массив и все элементы массива, значение которых составляет полный квадрат.

program zadanie4;

uses crt;

const N = 5;

var A : array[1..N] of integer;

var i,j, count : integer;

begin

clrscr;

  randomize;

  writeln('массив A');

  for i := 1 to N do

  begin

    A[i] := random(100);

    WriteLn(A[i]);

  end;

  WriteLn;

  count := 0;

   for i := 1 to N do

    if sqr(trunc(sqrt(A[i]))) = A[i] then inc(count);

  WriteLn(count);

  ReadLn;

end.

Контрольный пример:

Задание 5 +

Осуществить работу с матрицей

Дана целочисленная матрица. Найти для каждой строки количество элементов, кратных «5» и из полученных результатов выбрать наибольший. Вывести матрицу, количества и максимум.

                Нет                                            Да                                   

program zadanie5;

uses crt;

var

a:array[1..50,1..50] of integer;

b,c:array[1..50] of integer;

i,j,n,m:byte;

max,kol:integer;

begin

clrscr;

writeln('Введите размерность матрицы a[n,m] - ');

write('строк= '); read(n); write('столбцов= ');  read(m);

for i:=1 to m do

for j:=1 to n do

    begin

              gotoxy(i*4,j*4);

              read(a[j,i]);

    end;

for i:=1 to n do

begin

for j:=1 to m do

begin

    if a[i,j]mod 5=0 then

     begin

        kol:=kol+1;

        c[i]:=a[i,j];

     end;

end;

    b[i]:=kol;

    kol:=0;

end;

max:=-555;

for i:=1 to n do

begin

    if c[i]>max then

    begin

        max:=c[i];

    end;

end;

writeln;

for i:=1 to n do

begin

    writeln('количество элементов кратных 5- в ',i,' строке=',b[i]);

end;

writeln('max=',max);

readln;

end.

Контрольный пример:

Задание 6

Работа с множествами

Дана последовательность символов. Сформировать и напечатать множество из букв, входящих в текст не менее двух раз.

program zadanie6;

uses crt;

var

s,s1,ch:string;

kol,ind:integer;

begin

clrscr;

    writeln('Введите строку');

    readln(s);

    s1:=s;

    ch:=s1[1];

    while length(s1)<>0 do

    begin

              ind:=pos(ch,s1);

              if ind<>0 then

              begin

                  kol:=kol+1;

                  delete(s1,ind,1);