Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
morphling
-9 / 19 / 2
Регистрация: 26.06.2010
Сообщений: 181
#1

Элементы последовательности умножить на 10

27.09.2010, 15:17. Просмотров 853. Ответов 3
Метки нет (Все метки)

Даны натуральное число n, действительная квадратная матрица n-го порядка, действительные числа (А1,....,Аn+5). элементы данной последовательности (А1,....,Аn+5) умножить на 10, если наибольший элемент матрицы (в предположении, что он единственный) находится на главной диогонали и 0.5 в противном случае.

Добавлено через 21 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
     Matr = array [1..n, 1..n] of real;
var
a:=Matr;
////////////////не знаю еще что вводить///////////
var 
i,j:integer;
begin
writeln ('Vvedite matricy postrochno: ');
for i:=1 to n do
begin
for j:=1 to n do read(a[i,j]);
end;
end;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2010, 15:17
Ответы с готовыми решениями:

Умножить все элементы данной последовательности, неравные 0, на четвертый элемент
Ребят помогите! Дано натуральное число N=10 и последовательность целых чисел a1,a2,…,aN,...

Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить
Помогите пожалуйста решить задачу:cry:: 1.Задан массив x(15).Если значение элементов массива...

Умножить все члены последовательности на квадрат ее наименьшего элемента
Дана последовательность действительных чисел a1, a2, ..., аn. Требуется умно¬жить все члены...

Умножить элементы столбцов с 1-го по 3-ий и с 2-го по 4
задана матрца 5х4. Умножить элементы столбцов с 1-го по 3-ий и с 2-го по 4. Вывести ответ

Умножить элементы массива на число
умножить элементы массива на число n и вывести полученный массив

3
Puporev
Модератор
54370 / 41958 / 28981
Регистрация: 18.05.2008
Сообщений: 98,831
27.09.2010, 15:17 #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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
const nmax=20;
var b:array[1..nmax,1..nmax] of real;
    a:array[1..5] of real;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
mx:=0;imx:=0;jmx:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     b[i,j]:=10*random;
     write(b[i,j]:5:2);
     if b[i,j]>mx then
      begin
       mx:=b[i,j];
       imx:=i;
       jmx:=j;
      end;
    end;
   writeln;
 end;
writeln;
writeln('Исходная последовательность А:');
for i:=1 to 5 do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
writeln;
writeln('Максимальный элемент b[',imx,',',jmx,']=',b[imx,jmx]:0:2);
if imx=jmx then
 begin
  writeln('Максимальный элемент на главной диагонали!');
  for i:=1 to 5 do
  a[i]:=a[i]*10;
 end
else
 begin
  writeln('Максимальный элемент не на главной диагонали!');
  for i:=1 to 5 do
  a[i]:=a[i]*0.5;
 end;
writeln('Последовательность после умножения:');
for i:=1 to 5 do
write(a[i]:0:2,' ');
readln
end.
2
morphling
-9 / 19 / 2
Регистрация: 26.06.2010
Сообщений: 181
27.09.2010, 15:22  [ТС] #3
Нас за random ругают можно без нее строчку как выглядить будет))
0
Puporev
Модератор
54370 / 41958 / 28981
Регистрация: 18.05.2008
Сообщений: 98,831
27.09.2010, 15:24 #4
Нас за random ругают
Напиши как вас не ругают, мне больше делать нефиг, как при тестировании числа с клавы вводить...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2010, 15:24

В матрице А (2,3) элементы первого столбца умножить на 15
Глубоко извиняюсь но нужна помощь. Не знаю как написать эту задачу на Pascal:-| : &quot;В матрице А...

Найти максимальный и минимальный элементы и умножить их
Дан массив. Найти максимальный и минимальный элементы и умножить их. помогите пожалуйста решить...

Элементы главной диагонали матрицы умножить на b[k]
Массив a (q=9), преобразовать в двумерный d. Элементы главной диагонали умножить на b. Результат...


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

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

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