Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
n@stasy@
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 30
#1

решение задачи

09.12.2011, 08:12. Просмотров 823. Ответов 1
Метки нет (Все метки)

Написать программу для решения следующей задачи: дана квадратная матрица порядка N. Заменить нулями все элементы ,стоящие на главной диагонали и выше её.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 08:12
Ответы с готовыми решениями:

решение задачи
На складе хранится n видов продукции. Сведения о них содержатся в специальной...

Решение задачи с матрицей
Задание: В матрице A упорядочить элементы столбца, содержащего наибольшее...

Решение транспортной задачи
program velo; var i, k, j, n, m,x,y: Integer; s1, s2: real; a:array of real;...

Решение задачи на одномерный массив
Help В одномерном массиве А(N) (N<=60) найти максимальный элемент. Все...

Решение задачи 529 ACMPRU
http://********/?main=task&id_task=529 var x1,y1,x2,y2: real; begin ...

1
WebMax 2.0
--\.founder./--
561 / 561 / 392
Регистрация: 20.10.2011
Сообщений: 867
09.12.2011, 08:22 #2
Лучший ответ Сообщение было отмечено n@stasy@ как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
 
const n=10;
 
var a: array [1..n,1..n] of integer;
i,j:integer;
 
begin
   Writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў: ');
   For i:=1 to n do begin
       for j:=1 to n do begin
       randomize;
       a[i,j]:=random(10)+1;
       write(a[i,j]:3);
       end;
   writeln;
   end;
   
   Writeln('Íîâûé Г¬Г*Г±Г±ГЁГў: ');
   For i:=1 to n do begin
       for j:=1 to n do begin
       if (i<j)or (i=j) then a[i,j]:=0;
       Write(a[i,j]:3);
       end;
   writeln;
   end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 08:22

Решение задачи различными способами
Помогите составить программу решения задачи! Надо решить 3 способами:...

Подскажите решение задачи на паскале
1. Слони на чорному (Knights) Маємо шахову дошку розмірами M x N клітинок,...

Найти численное решение задачи Коши
Найти численное решение задачи Коши y' = y3, y(0) = 0.5 на отрезке с шагом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru