ргр / РГР1

Вариант №16

Задание 1

Вычислить и вывести на экран значения переменных m и H, используя расчетные формулы

n = 3,8;k = 0,9; l = 0,78;

начало

n

n

k

k

l

l

C=sin(n-h)/cos(n-h)

M=/l+c³

H=sin(k²)-l^-nk

m

H

конец

Program Zadanie_1;

const

e=2.72;

var

m, n, H, l, k, c, q: real;

begin

write('n= ');

readln(n);

write('k= ');

readln(k);

write('l= ');

readln(l);

c:=sin(n-k)/cos(n-k);

m:=sqrt(n+k)/l+sqr(c)*c;

H:=sin(k*k)-exp(-n*k*ln(e))*sqrt(sqr(k)+sqr(l));

writeln('m= ', m:3:3);

writeln('H= ', H:3:3);

readln(q);

end.

ЗАДАЧА №2

РАБОТА С ОДНОМЕРНЫМИ МАССИВАМИ

Задание :Сравните элементы 2-х массивов между собой, определите количе­ство равных элементов массивов. Выведите эти элементы на экран.

начало

Введите 10 элементов «В» массив «А»

I=1,10

a[i]

Введите 10 элементов «В» массив «А»

I=1,10

b[i]

n=0

I=1,10

a[i]=b[i]

нет

да

1

2

3

n=n+1

1

2

3

c[n]=a[i]

program Zadanie_2;

var

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

i, n, q: byte;

begin

writeln('‚ўҐ¤ЁвҐ 10 н«Ґ¬Ґ­в®ў ў ¬ ббЁў "Ђ":');

for i:=1 to 10 do read(a[i]);

writeln('‚ўҐ¤ЁвҐ 10 н«Ґ¬Ґ­в®ў ў ¬ ббЁў "B":');

for i:=1 to 10 do read(b[i]);

n:=0;

for i:=1 to 10 do

if a[i]=b[i] then

begin

n:=n+1;

c[n]:=a[i];

end;

writeln('n= ', n);

for i:=1 to n do write(c[i],' ');

writeln;

readln(q);

end.

ЗАДАЧА №3

РАБОТА С ДВУМЕРНЫМИ МАССИВАМИ

Задание : Напишите программу, ищущую отрицательные элементы в матрице 3х3 и сохраняющую их индексы в виде отдельного одномерного массива.

начало

I=1,3

j=1,3

a[I,j]

k=0

I=1,3

J=1,3

a[I,j]<0

k=k+1

нет

да

program Zadanie_3;

var

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

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

i, j, k, q: byte;

begin

for i:=1 to 3 do

for j:=1 to 3 do read(a[i,j]);

k:=0;

for i:=1 to 3 do

for j:=1 to 3 do

if a[i,j]<0 then

begin

k:=k+1;

b[k]:=10*i+j;

end;

for i:=1 to k do write(b[i],' ');

writeln;

readln(q);

end.

ЗАДАЧА №4

РАБОТА С ЦИКЛАМИ

ПРограммирование Циклических структур

x > 0;x < 0;x = 0 ;x[-1;0.6];Δx = 0.

начало

X

X

X>0

X<0

X=0

Z=sin(x)+1

Z=

Z=2

Z

конец

нет

нет

да

да

да

Program Zadanie_2;

var

x, z, q: real;

begin

write('x= ');

readln(x);

if x>0 then z:=sin(x)+1

else if x<0 then z:=sqrt(-x)

else z:=2;

writeln('z= ', z:3:3);

readln(q);

end.