Контрольная работа по "Программированию"

Задача 1 A

Условие задачи:

Составить блок-схему вычислительного  процесса согласно заданию и написать программу на языке Pascal.

Вычислить значение выражения  по формуле (все переменные принимают  действительные значения). Значения переменных ввести с клавиатуры.

 

 

Блок-схема:

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_1;

uses crt;

var

   a,b,c,d,y: real;

begin

write ('Введите a: ');

readln(a);

write ('Введите b: ');

readln(b);

write ('Введите c: ');

readln(c);

write ('Введите d: ');

readln(d);

if ((c=0) or (d=0) or (((a/c)*(b/d)-((a*b-c)/(c*d)))<0)) then writeln('Происходит деление на ноль, либо вычисление корня из отрицательного числа') else

begin

y:=sqrt((a/c)*(b/d)-((a*b-c)/(c*d)));

writeln('Результат: ',y:3:3);

end;

readkey;

end.

 

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

 

 

 

 

 

 

Задача 1 Б

Условие задачи:

Составить блок-схему вычислительного  процесса согласно заданию и написать программу на языке Pascal.

Известна длина окружности. Найти площадь этого круга.

Блок-схема:

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_2;

uses crt;

var

   l,r,s: real;

begin

write ('Введите длину окружности l: ');

readln(l);

if (l<=0) then writeln('Длина окружности должна быть положительна') else

begin

r:=l/(2*pi);

s:=pi*sqr(r);

writeln('Площадь s=',s:3:3);

end;

readkey;

end.

 

 

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

 

 

Задача 2 А

Условие задачи:

Составить блок-схему и  программу для вычисления и вывода на печать значения функции.

Блок-схема:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_3;

uses crt;

var

   x,y: real;

begin

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

readln(x);

if (sqr(x)-6)<0 then writeln('Невозможно вычислить значение при введенном x') else begin

if ((x>=-3) and (x<=3)) then y:=sqrt(sqr(x)-6)+cos(x) else begin

if (x<-3) then y:=2*x else

y:=(6-sqr(x))/(6-sqr(x));

end;

writeln('Результат: y=',y:3:3);

end;

readkey;

end.

 

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

 

 

 

Задача 2 Б

Условие задачи:

Составить блок-схему и  программу для решения задачи:

Даны два числа х и y, которые являются координатами точки М(х, y) на плоскости. Определить принадлежит ли точка М заштрихованной области, указанной на рисунке, и вывести соответствующее сообщение.

Блок-схема:

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_4;

uses crt;

var

   x,y: real;

begin

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

readln(x);

write ('Введите y: ');

readln(y);

if ((x>=0) and (x<=1) and (y>=0) and (y<=1) and (y<=x)) then

writeln('Точка принадлежит заштрихованной области') else

writeln('Точка не принадлежит заштрихованной области');

readkey;

end.

 

 

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

 

 

Задача 3 А

Условие задачи:

Составить блок-схему и  программу для решения задачи.

Вычислить значения выражения  при заданном х.

Блок-схема:

 

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_5;

uses crt;

var

   x,s: real;

   i,a:integer;

begin

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

readln(x);

a:=2;

for i:=1 to 8 do begin

s:=s+(a*(a+1)*sqr(x)/(a/2*((a/2)+1)));

a:=a+2;

end;

writeln('Результат s=',s:3:3);

readkey;

end.

 

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

 

Задача 3 Б

Условие задачи:

Составить блок-схему и  программу для вычисления значений функции y(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значение аргумента, второй – соответствующие значения функции.

Блок-схема:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_6;

uses crt;

var

   h,y,x: real;

   a,b:integer;

begin

a:=-10;

b:=0;

h:=0.5;

x:=a;

writeln('   x  ',' | ','   y  ');

while (x<=b) do begin

if (x<-6) then y:=6*x else y:=sqrt(sqr(x)-6*x);

writeln(x:3:3,' | ',y:3:3);

x:=x+h;

end;

readkey;

end.

 

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

 

Задача 4

Условие задачи:

Составить блок-схему и  программу для решения задачи.

Для массива X(20) наименьший элемент заменить средним арифметическим наибольшего и наименьшего значений его элементов. Остальные оставить без изменений.

 

Блок-схема:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_7;

uses crt;

const n=20;

var

x:array [1..n] of real;

i,k:integer;

min,max:real;

begin

for i:=1 to n do begin

write('x[',i,']=');

readln(x[i]);

end;

writeln;

k:=1;

min:=x[1];

max:=x[1];

for i:=2 to n do begin

if x[i]<min then begin min:=x[i]; k:=i; end;

if x[i]>max then max:=x[i];

end;

writeln;

x[k]:=(min+max)/2;

for i:=1 to n do

writeln('x[',i,']=',x[i]);

readkey;

end.

 

 

 

 

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

 

Задача 5

Условие задачи:

Составить блок-схему и  программу для решения задачи.

Просуммировать элементы столбцов заданной матрицы размером 4x3. Результат получить в одномерном массиве размером 3.

 

Блок-схема:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program pr_8;

uses crt;

const n=4;m=3;

var

a:array [1..n,1..m] of integer;

b:array[1..3] of integer;

i,j,sum:integer;

begin

for i:=1 to n do begin

for j:=1 to m do begin

a[i,j]:=random(200)-100;

write(a[i,j]:4,'  ');

end;

writeln;

end;

for j:=1 to m do begin

sum:=0;

for i:=1 to n do begin

sum:=sum+a[i,j];

end;

b[j]:=sum;

end;

writeln;

for j:=1 to m do

writeln('b[',j,']=',b[j]);

readkey;

end.

 

 

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