Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
n@stasy@
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 30
#1

решение задачи - Pascal ABC

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

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

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

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

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

Решение задачи 529 ACMPRU - Pascal ABC
http://********/?main=task&id_task=529 var x1,y1,x2,y2: real; begin assign(input, 'input.txt'); reset(input); ...

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

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

1
WebMax 2.0
--\.founder./--
561 / 561 / 206
Регистрация: 20.10.2011
Сообщений: 867
09.12.2011, 08:22 #2
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
Привет! Вот еще темы с ответами:

Решение задачи по теме табулирование функции - Pascal ABC
Используя три различных цикла ,трижды протабулировать функцию (k)=sin(k*пи/N)/k*пи/N ,на интервале k, дельтаk=1 ,учтя при этом ,что...

Решение задачи на правильность ввода числового пароля - Pascal ABC
Добрый вечер. Помогите пожалуйста с решением задачи в Pascal'е ABC. Вообще не понимаю как делать, напишите пожалуйста решение. Спасибо. ...

Используя рекурсивную функцию реализуйте решение следующей задачи - Pascal ABC
Используя рекурсивную функцию реализуйте решение следующей задачи Написать программу, вычисляющую первые n членов заданной...

Используя рекурсивную функцию, реализуйте решение следующей задачи - Pascal ABC
1. Дано натуральное n. Вычислить: 1/22 + 1/42 + ... + 1/(2n) n Помогите написать программу. Спасибо Заранее!!!


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

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

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