Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
1 / 1 / 0
Регистрация: 23.01.2010
Сообщений: 38
1

Все элементы массива, расположенные выше главной диагонали, сделать равными 0.

18.03.2010, 15:05. Показов 3291. Ответов 7
Метки нет (Все метки)

Мне надо на завтра сделать 2 задачи для контрольной, помогите:
1. Составить таблицу значений функции y=корень(x*x+3) для всех x принадлежит [5;10)5ж10) с шагом 0,2. - это на циклы задача
2. Создать массив случайных чисел В [1..6,1..6]. Все элементы массива, расположенные выше главной диагонали, сделать равными 0. Вывести исходный и исправленный массивы. - это задача на массивы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2010, 15:05
Ответы с готовыми решениями:

Все элементы массива, расположенные выше главной диагонали сделать равными 0
Создать массив случайных чисел B. Все элементы массива, расположенные выше главной диагонали...

Обнулить все элементы квадратной матрицы, расположенные выше главной диагонали
Напишите программу, которая обнуляет все элементы квадратной матрицы, расположенные выше главной...

Заменните нулями всё элементы матрицы, расположенные на главной диагонали и выше её
Парни и Девушки прошу помочь так как сам в это вообще не вник . Пусть дана вещественная матрица...

Замените буквой а все элементы матрицы, расположенные выше главной диагонали
Пусть дана символьная квадратная матрица порядка 10. Замените буквой а все ее элементы,...

7
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
18.03.2010, 15:14 2
Цитата Сообщение от Anyakrg94 Посмотреть сообщение
[5;10)5ж10)
Это что за выражение? Вам даже написать понятно лень, не то что решить.
0
1 / 1 / 0
Регистрация: 23.01.2010
Сообщений: 38
18.03.2010, 15:22  [ТС] 3
Puporev, я там неправильно написала, а отредактировать не могу никак - не знаю.
вместо [5;10)5ж10) должно быть [5;10)
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
18.03.2010, 15:26 4
1. Разберетесь с условием поправите.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var x,y:real;
    k:integer;
begin
clrscr;
x:=5;
k:=0;
while x<10-0.2 do//не доходим до 10
 begin
  y:=sqrt(x*x+3);
  writeln('x=',x:4:1,'  y=',y:5:2);
  k:=k+1;
  if k mod 20=0 then//не входит одно значение, приходится перерыв делать для просмотра
   begin
    write('Press Enter...');
    readln
   end;
  x:=x+0.2;
 end;
readln
end.
Добавлено через 34 секунды
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
28
29
30
uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50)+10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Обнуление выше главной диагонали:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>i then a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
1
1 / 1 / 0
Регистрация: 23.01.2010
Сообщений: 38
18.03.2010, 15:32  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
//не входит одно значение, приходится перерыв делать для просмотра
а что это значит просто скажите
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
18.03.2010, 15:34 6
Цитата Сообщение от Anyakrg94 Посмотреть сообщение
должно быть [5;10)
Ну я так и написал в программе.
1
1 / 1 / 0
Регистрация: 23.01.2010
Сообщений: 38
18.03.2010, 17:44  [ТС] 7
Puporev, аааа, ясно. спасибо большое

Добавлено через 2 часа 5 минут
Цитата Сообщение от Puporev Посмотреть сообщение
Press Enter...
а что это значит? можно вместо этого просто написать enter
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
18.03.2010, 17:46 8
Anyakrg94, Вы программу попробуйте запустить, и вопросов не будет дурацких. Это просто сообщение на экран выйдет, что бы нажали Enter, а не компьютер выключали в панике.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2010, 17:46

Заменить буквой «a» все элементы, расположенные выше главной диагонали и не являющиеся цифрами
Заменить буквой «a» все элементы, расположенные выше главной диагонали и не являющиеся цифрами.

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее.
Дана действительная квадратная матрица порядка 12. Заменит нулями все ее элементы, расположенной...

Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные...

Заменить отрицательные элементы, расположенные выше главной диагонали, средним геометрическим положительных
Ребят, не могли бы помочь? Есть задача:в матрице a(8,8) заменить отрицательные элементы...


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

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

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