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

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

Составить блок – схему и программу. Вычислить значения:

В:=1; FOR K:=10 TO 15 DO BEGIN FOR M:=12 TO 16 DO B:=B+K; B:=K+M; END; WRITE (‘B=’,B); 

БЛОК - СХЕМА

  

 

 

 

 

а)  МАТЕМАТИЧЕСКИЙ РАСЧЕТ 

 
 
 

б) КОМПЬЮТЕРНЫЙ РАСЧЕТ

Program x;

Var b, m, k :integer;

Begin b:=1;

For k:=10 to do

Begin

For m:=12 to 16

B:=b+k; b:=k+m;end;

Write (‘b=’,b);

End.

Ответ: b=31.

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

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

                             

                               Z =

      б)

           A,X,C-Переменные, m-файловая переменная,b.TXT-файл

           Procedure V- процедура ввода, Function S – функция для вычисления выражения. 

        в) Procedure V                                                                Function S 

  

 

 

 

 

 
 
 
 
 
 
 

 

 

 

г)

   Program e;

   Var z:real; x1,x2,x3,x4,a1,a2,a3,a4,c1,c2,c3,c4:integer;m:text;

   Procedure V (var x,a,c:integer);

   Begin

   Writeln (‘ввести значения х,а,с’);

   Readln (x,a,c);end;

   Function S(x,a,c:integer):real;

   Var z:real;

   Begin

   Z:=(x*sqrt((a+)-sqr(sin(x)))/5*a-3*cos(c))+(sqr(x)*sqr(x))/(c+2*a));

   Writeln (m,’|’,x:5,’|’,a:5,’|’,c:5,’|’,z:9:2,’|’);

   S:=z;end;

   Assign (m,’b.TXT’);

   Rewrite(m);

   V(x1,a1,c1); V (x2,a2,c2); V (x3,a3,c3); V (x4,a4,c4);

   Writeln (m,’-----------------------------’);

   Writeln (m,’|--x--|--a--|--c--|---z-----|’);    

   Writeln (m,’|-----|------|-----|----------|’);

   S(x1,a1,c1); S (x2,a2,c2); S (x3,a3,c3); S (x4,a4,c4);

   Close (m);

   End.

д)

   ввести  значения x,a,c

    1 2 3

   ввести  значения x,a,c

    5 7 8

   ввести  значения x,a,c

    5 6 9

   ввести  значения x,a,c

    8 9 0

е)

    
 
 
 
 

4.Задание №3

а)

    Составить блок – схему и программу, используя подпрограммы – процедуру и функцию. Даны 3-и одномерных массива, состоящих из 16,19 и22 вещественных значений. Вычислить количество чисел кратных 2 и 3 в каждом массиве. Вывести на печать значения кратные 2 и 3 и результат.

б)A[i]- одномерный массив вещественных значений, К-количество.Procedure V- процедура ввода, Function P – функция для вычисления .

   в)

        Procedure V 

  
 

 

 

 

 
 

                     Function P

 

 

 - + 

 

 

 

г)     Program r;

type m=array[1..22] of real;

Var   a1,a2,a3:m;I,k,n: integer;

Procedure V(n:integer;var a:m);

Begin

Writeln(‘ввести’,n,’ элементов’);

For i:=1 to n do’

Read (a[i]);end;

Function P(n:integer;a:m):integer;

begin k:=0;

For i:=1 to do

If (round(a[i]) mod 2=0) and  (round(a[i]) mod 3=0)  then begin

                                                                                                       K:=K+1; end;

Writeln (‘кол-во кратных 2 и 3=’,K);

P:=k;end;

Begin

V (16,a1); V (19,a2); V (22,a3);

P (16,a1); P (19,a2); P (22,a3);end.  
 
 

д)

   Вв.16 эл-тов.

   6.4 5.5 7.9 3.6 4.5 4.1 6.7 8.8 4.3 3.5 6.8 4.3 7.8 3.2 4.6 7.8  

   Вв.19 эл-тов

   3.6 4.6 6.4 6.8 4.2 2.3 2.8 4.2 5.7 4.2 5.7 5.8 6.4 7.3 4.6 2.6 4.1 3.6 5.7 

   Вв.22 эл-тов

   4.6 6.4 7.9 4.7 2.9 4.8 5.9 1.5 8.4 4.5 7.3 6.4 3.8 5.9 4.8 5.7 4.6 1.6 5.7 5.3 6.4 2.8 5.6

   

е)

   Кол-во  кратных 2 и 3=2

   Кол-во  кратных 2 и 3=8

   Кол-во  кратных 2 и 3=15 
 

5.Задание №4

а)

    Составить  блок – схему и программу,  используя подпрограммы – процедур и функцию. Даны 3-и двумерных массива вещественных чисел, состоящий из 4*5, 4*4, 5*4 элементов. Вычислить среднеарифметическую сумму элементов с индексами, кратными 2 в каждом массиве. Результат вывести на печать.

б)A[i,j]-двумерный массив вещественных чисел, SA_SUM-среднеарифметическая сумма,

К-количество,S – сумма. Procedure V- процедура ввода, Function P – функция для вычисления . 
 
 
 
 
 
 

в)

                Procedure V                                                          

 

 

 

 

                                     Function P

 
 

 

     - +