срочно помогите!! - Форум
Суббота, 03.12.2016, 22:47
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » срочно помогите!!
срочно помогите!!
gudronДата: Понедельник, 27.12.2010, 18:32 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
задача №1
Рrоgrаm SumPol;
Uses Сrt;
Соnst М=5; {число строк матрицы}
N=5; {число столбцов матрицы}
Vаr A:Аrrау[1..M,1..N] of real;
Р,I:1..М;
Q,J:1..N;
S:Rеа1; {Сумма положительных элементов}
Веgin
СlrScr;
Write('Введите размерность матрицы не более 5*5');
Real(Р,Q);
Writeln('Введите элементы матрицы');
For I:=1 to Р dо
For J:=1 to Q do
Begin
Writeln(‘A[‘,I:1,’,’,j:1,’]=’);
Readln(A[I,J])
End;
Writeln(‘Контрольный вывод матрицы:’);
For I:=1 to P do
Begin For J:=1 to Q do
Writeln(A[I,J]:4:2,’ ‘,:3);
Writeln
End;
S:=0;
For I:=1 to P do
For J:=1 to Q do
If A[I,J]>0 Then S:=S+A[I,J];
Writeln(‘ Сумма положительных элементов='S:4:2)
End, {SumPol}

задание:
Получить матрицу B(N,М) из матрицы А(М,N) путем перестановки столбцов - первого с последним второго с предпоследним и т. д. М и N - четные числа.

задача №2
Заданы векторы Х(М), Y(М). Переменной A присвоить значение 1, если длина вектора Х больше длины вектора У, и 0 в противном случае.

Сообщение отредактировал gudron - Понедельник, 27.12.2010, 18:33
 
NailДата: Понедельник, 27.12.2010, 19:32 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Напишу не дорого стучить в асю! или на mail! данные внизу! Жду dry
Mail: shakurovnail@mail.ru
Icq: 6688101
 
XTen1357Дата: Вторник, 28.12.2010, 16:01 | Сообщение # 3
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
Пиши решу Дёшево
ICQ: 410691984
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » срочно помогите!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016