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

[каринка]

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

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

 

[Vladimir_S]

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

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

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

 

[каринка]

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

 

[Vladimir_S]

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

 

[Spidey-Goblin]

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

 

[Spidey-Goblin]

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]

вводятся произвольные числа.определить сколько будет введено таких чисел ,пока не будет введено чмсло 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]

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

Да я что - не серчаю. А вот интересно, преподы не сообщали, что бывают разные языки программирования, а не только Паскаль? Видимо, нет, потому как добиться от "каринки" внятной информации по ЯП я так и не смог.
И еще реплика по программам. Если преподы вас учат пихать всюду где надо и не надо эти метки да 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.