Линейные алгоритмы (40 баллов)

↑

⇐ ПредыдущаяСтр 6 из 6

Pascal

Решение:

program Array116;

var

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

N,i,k: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

k:=1;

b[k]:=1;

c[k]:=a[k];

for i:=2 to N do

begin

if a[i-1]=a[i] then b[k]:=b[k]+1

else

begin

inc(k);

b[k]:=1;

c[k]:=a[i];

end;

end;

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

End.

Линейные алгоритмы (40 баллов)

3. Найти решение системы линейных уравнений вида

A1·x + B1·y = C1,

A2·x + B2·y = C2,

заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение. Воспользоваться формулами

x = (C1·B2 − C2·B1)/D, y = (A1·C2 − A2·C1)/D, где D = A1·B2 − A2·B1.

Python

Решение:

import random

import math

r = list(range(-10,0)) + list(range(1,11))

A1 = random.choice(r)

A2 = random.choice(r)

B2 = random.choice(r)

k1 = int(math.floor(A1 * B2 / A2))

k2 = int(math.ceil(A1 * B2 / A2))

r1 = list(range(k1-10,k1)) + list(range(k2,k2+11))

B1 = random.choice(r1)

D = A1*B2 - A2*B1

C1 = random.randrange(-10,11)

r1 = list(range(C1-10,C1)) + list(range(C1+1,C1+11))

C2 = random.choice(r1)

print("A1 = ",A1)

print("B1 = ",B1)

print("C1 = ",C1)

print()

print("A2 = ",A2)

print("B2 = ",B2)

print("C2 = ",C2)

print("D = ",D)

print()

print("({0})x + ({1})y = {2}".format(A1,B1,C1))

print("({0})x + ({1})y = {2}".format(A2,B2,C2))

x = (C1*B2 - C2*B1)/D

y = (A1*C2 - A2*C1)/D

print("x = ",x)

print("y = ",y)

print("Check Equation 1:",A1*x+B1*y)

print("Check Equation 2:",A2*x+B2*y)

Pascal

Решение:

program Begin40;

var

A1,B1,C1,A2,B2,C2,D,x,y: Real;

begin

Write('ВведитекоэфициентA1: ');

Readln(A1);

Write('Введите коэфициент B1: ');

Readln(B1);

Write('Введите коэфициент C1: ');

Readln(C1);

Write('ВведитекоэфициентA2: ');

Readln(A2);

Write('Введите коэфициент B2: ');

Readln(B2);

Write('Введите коэфициент C2: ');

Readln(C2);

D:=A1*B2-A2*B1;

x:=(C1*B2-C2*B1)/D;

y:=(A1*C2-A2*C1)/D;

Writeln('X равен : ',X);

Writeln('Y равен : ',Y);

end.

Среда программирования КуМир

Задание № 1: ОПАСНОСТЬ. (35 баллов)

1. Создать предлагаемую обстановку (робот в левом верхнем углу, клетка с радиацией – метка «буква», клетка с температурой – метка «цифра»);

2. Сохранить как Opasnost;

3. Написать часть программы;

4. Дописать программу так, чтобы робот реагировал (смещался) на клетки с радиацией (клетка с буквой) и закрашивал клетки с температурой (клетка с цифрой): а – 1 – b – 2 – с–3.

Справка: цикл пока создается структурами

нц пока слева (справа, снизу, сверху) стенавлево (вправо, вниз, вверх)кц

Задание № 2: ПИТСТОП. (25 баллов)

1. Создать предлагаемую обстановку;

2. Сохранить как PitStop;

3. Написать часть программы;

4. Дописать программу так, чтобы закрасить клетки, как показано в образце.

Задание № 3 МИННОЕ ПОЛЕ. (40 баллов)

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

2. Дописать программу для робота, который проходя по полю, закрашивает клетки с теми метками, в которых радиация превышает значение 50.

Познавательные статьи:



Психологические особенности спортивного соревнования

Приготовление дезинфицирующих растворов различной концентрации

Занятость населения и рынок труда

Социальный статус семьи и её типология