Контрольная_Вариант_8. Контрольное задание 1 Формулировка задачи

• Название: Контрольное задание 1 Формулировка задачи
• Дата: 19.01.2022
• Размер: 0.57 Mb.
• Имя файла: Контрольная_Вариант_8.doc
• Тип: Документы; #335849

Вариант 8

Контрольное задание №1

1. 
   Формулировка задачи
   

Определить расстояние, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость v0.

2. 
   Блок-схема решения
   

3. 
   Текст программы на языке Паскаль
   

Program fizika;

var

v0, a, t: integer;

s: real;

begin

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

readln(v0);

writeln('Введите время t');

readln(t);

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

readln(a);

s:= v0 * t + (a * sqr(t) / 2);

writeln('За время ', t,

'сек. физическое тело при ускорении ', a,

'м/с^2 и начальной скорости ', v0,

'м/с пройдет расстояние: ', s, 'м')

end.

4. 
   Результаты работы программы
   

Контрольное задание №2

1. 
   Формулировка задачи
   

Определить, какая из двух фигур (круг или квадрат) имеет большую площадь. Известно, что сторона квадрата равна а, радиус круга r. Вывести на экран название и значение площади большей фигуры.

2. 
   Блок-схема решения
   

3. 
   Текст программы на языке Паскаль
   

program sravnenie_figur;
var

a, r: integer;

s1, s2: real;
begin

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

readln(a);

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

readln(r);

s1 := a*a;

s2:= 3.14*r*r;

if s1>s2 then

writeln('Площадь квадрата больше и равна ',s1)

else

writeln('Площадь окружности больше и равна ',s2);

end.

4. 
   Результаты работы программы
   

Контрольное задание №3

1. 
   Формулировка задачи
   

Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр.

2. 
   Блок-схема решения
   

3. 
   Текст программы на языке Паскаль
   

program zifri;

var

i: integer;

begin

writeln('Трёхзначные числа, средняя цифра которых равна сумме первой и третьей цифр.');

for i:= 100 to 999 do

if i div 10 mod 10 = i div 100 + i mod 10 then

writeln( i,'(',i div 100,'+',i mod 10,'=',i div 10 mod 10,')', ' ')

end.

4. 
   Результаты работы программы
   

Контрольное задание №4

1. 
   Формулировка задачи
   

Дана вещественная матрица размерности n * m. Сформировать вектор b размерности n, в котором элементы вычисляются как произведение элементов соответствующих строк.

2. 
   Блок-схема решения
   

3. 
   Текст программы на языке Паскаль
   

Program matriza;

var

A: array[1..10, 1..10] of integer;

B: array[1..10] of integer;

i, j, n, m, p: integer;

begin

write('Введите кол-во строк матрицы: ');

readln(n);

write('Введите кол-во толбцов матрицы: ');

readln(m);

Randomize;

for i := 1 to n do

begin

p := 1;

for j := 1 to m do

begin

A[i, j] := Random(10) - 5;

write(A[i, j]:3);

p := p * A[i, j];

end;

B[i] := p;

writeln;

end;

writeln('Массив B');

for i := 1 to n do

write(B[i]:4);

end.

4. 
   Результаты работы программы