Сформировать и вывести матрицу

каринка · 14.12.2013, 12:46

С помощью функции sin сформировать и вывести матрицу 6x6 из вещественных положительных чисел в пределах от 0-15.Определить наибольший элемент её главной диагонали и его индексы.Сформировать и вывести матрицу все элементы которой равны соответствующим элементам исходной,деленным на наибольший элемент диагонали.

Vladimir_S · 14.12.2013, 14:08

Цитата:

Сообщение от каринка

С помощью функции sin

Это то есть как?

Кроме того, пока Вы свято храните и отказываетесь даже под угрозой пыток выдать величайшую из тайн - Тайну Языка Программирования, на котором должно быть выполнено задание, мы Вам помочь, увы, бессильны.
Впрочем, Ваша стойкость вызывает уважение.

каринка · 15.12.2013, 21:57

вводятся произвольные числа.определить сколько будет введено таких чисел ,пока не будет введено чмсло 22?

Vladimir_S · 15.12.2013, 22:12

Браво! Тайна Языка Программирования - по-прежнему за семью печатями. Так держать!

Spidey-Goblin · 16.12.2013, 00:17

Осмелюсь предположить "С помощью функции sin" означает, что нужно организовать цикл от 0 до 15 с шагом 0,4 {(((0+15)/(∆x))+1=36, отсюда ∆x=0,4)}, а потом из полученных значений x, получить 36 значений - sin (x), и сформировать из них матрицу 6x6.
P. S. не серчайте на "каринку" у нас в универе так формулирует задание препод(

Spidey-Goblin · 16.12.2013, 00:41

Program karina;
Uses
crt;
Label
lab1;
Var
n : integer;
x : real;
Begin
clrscr;
n:=0;
lab1: write ('Vvedy chislo ');
readln (x);
if x<>22 then
begin
n:=n+1;
goto lab1;
end
else
writeln ('N=', N:6);
Readln;
End.

Spidey-Goblin · 16.12.2013, 00:42

Цитата:

Сообщение от каринка

вводятся произвольные числа.определить сколько будет введено таких чисел ,пока не будет введено чмсло 22?

Program karina;
Uses
crt;
Label
lab1;
Var
n : integer;
x : real;
Begin
clrscr;
n:=0;
lab1: write ('Vvedy chislo ');
readln (x);
if x<>22 then
begin
n:=n+1;
goto lab1;
end
else
writeln ('N=', N:6);
Readln;
End.

Vladimir_S · 16.12.2013, 09:50

Цитата:

Сообщение от Spidey-Goblin

не серчайте на "каринку" у нас в универе так формулирует задание препод(

Да я что - не серчаю. А вот интересно, преподы не сообщали, что бывают разные языки программирования, а не только Паскаль? Видимо, нет, потому как добиться от "каринки" внятной информации по ЯП я так и не смог.
И еще реплика по программам. Если преподы вас учат пихать всюду где надо и не надо эти метки да GoTo, то таких преподов нужно гнать в три шеи. Поверьте, это не просто дурной стиль программирования, а ОЧЕНЬ дурной.
Вот так, например, выглядит грамотно написанная программа по второму заданию:

Код:

Uses Crt;
Var
 n: integer;
 x: real;
Begin
 clrscr;
 n:=0;
 Repeat
  write('Vvedy chislo ');
  readln(x);
  n:=n+1;
 Until x=22;
 Writeln ('N= ',n-1);
 Readln
End.

14.12.2013, 12:46	#1 (permalink)
каринка Новичок Регистрация: 14.12.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Сформировать и вывести матрицу С помощью функции sin сформировать и вывести матрицу 6x6 из вещественных положительных чисел в пределах от 0-15.Определить наибольший элемент её главной диагонали и его индексы.Сформировать и вывести матрицу все элементы которой равны соответствующим элементам исходной,деленным на наибольший элемент диагонали.

14.12.2013, 12:46
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пока в вашем топике нет ответов, можете почитать эти Где купить матрицу для ноутбука? Где заказать матрицу 10.1 дюйм?

15.12.2013, 21:57	#3 (permalink)
каринка Новичок Регистрация: 14.12.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вводятся произвольные числа.определить сколько будет введено таких чисел ,пока не будет введено чмсло 22?

15.12.2013, 22:12	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Браво! Тайна Языка Программирования - по-прежнему за семью печатями. Так держать!

16.12.2013, 00:17	#5 (permalink)
Spidey-Goblin Member Регистрация: 16.12.2013 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Осмелюсь предположить "С помощью функции sin" означает, что нужно организовать цикл от 0 до 15 с шагом 0,4 {(((0+15)/(∆x))+1=36, отсюда ∆x=0,4)}, а потом из полученных значений x, получить 36 значений - sin (x), и сформировать из них матрицу 6x6. P. S. не серчайте на "каринку" у нас в универе так формулирует задание препод(

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

16.12.2013, 00:41	#6 (permalink)
Spidey-Goblin Member Регистрация: 16.12.2013 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Program karina; Uses crt; Label lab1; Var n : integer; x : real; Begin clrscr; n:=0; lab1: write ('Vvedy chislo '); readln (x); if x<>22 then begin n:=n+1; goto lab1; end else writeln ('N=', N:6); Readln; End.