Помогите решить задачу на блок-схемы - Форум
Вторник, 06.12.2016, 08:43
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу на блок-схемы
Помогите решить задачу на блок-схемы
FlexДата: Воскресенье, 14.06.2009, 13:05 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
1.) Дан одномерный массив S(20), найдите сколько элементов массива удовлетворяют условию 0<Si<=5. Из полученных элементов заполните другой массив S2().

2.)Найдите элементы матрицы А, если Аij=3*Bij/Bmax, где Bmax - максимальный элемент искходной матрицы B(4,4).

Был бы очень признателен, больше 5 часов на парах сидел, решить не смог -_-

 
Каля-маляДата: Четверг, 18.06.2009, 09:09 | Сообщение # 2
Подполковник
Группа: Участник
Сообщений: 25
[ 2 ]
Статус: Offline
ща подожди вторую подумаю....

Добавлено (17.06.2009, 17:51)
---------------------------------------------
cool лови волну на второе задание, на первое времени уже нет, но потом озадачусь:

program z1;
uses crt;
Type mas1 = array[1..4,1..4] of real;
Type mas2 = array[1..4,1..4] of real;

var i,j:integer;
max: real;
b:mas1;
a:mas2;
begin
clrscr;
writeln('введите элементы массива по строкам, по 4 элемента в каждой строке');
for i:=1 to 4 do
begin
for j:=1 to 4 do
read (b[i,j]);
end;
writeln ('нахождение максимального элемента массива");
max:=b[i,j];
for i:=1 to 4 do
for j:=1 to 4 do
begin
if b[i,j]> max then max:=b[i,j];
end;
writeln (max:4:2);
for i:=1 to 4 do
for j:=1 to 4 do
begin
a[i,j]:=3*b[i,j]/max;
end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
write (a[i,j]:4:2,' ');
writeln;
end;
end.

Добавлено (17.06.2009, 17:59)
---------------------------------------------
ой, подожди я после witeln('нахождение максимального элемента массива');
неправильно присвоение сделала (опечатка). ПРАВИЛЬНО: max:=b[1,1];
а потом пошел цикл.
Прошу прощения глазки замылились tongue

Добавлено (18.06.2009, 09:09)
---------------------------------------------
code к первой задаче:
uses crt;

type mas1=array[1..20] of integer;
var i,k:integer;
a:mas1;
begin
clrscr;
writeln('введите элементы массива');
for i:=1 to 20 do
begin
readln (a[i]);
end;
k:=0;
for i:=1 to 20 do
begin
if (a[i]>0) and (a[i]<=5) then
k:=k+1;
end;
for i:=1 to 20 do
begin
if (a[i]>0) and (a[i]<=5) then
write (a[i]:4);
end;
writeln (' ',k,' элементов соответствует диапазону от 1 до 5');
readkey;
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу на блок-схемы
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016