Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Нужна помощь в задаче! Пожалуйста, надо сдать! (http://www.tehnari.ru/f41/t35873/)

AlexZir 21.05.2010 05:57

во второй задаче для вычисления модуля текущего элемента используйте функцию abs().

Строитель 2 23.05.2010 23:45

AlexZir, Спасибо большое за первую задачу) К моменту выкладывания я ее решил сам) Вот со второй трудности, лучше бы её решили вместо первой)) Буду ждать вторую) если вам не трудно строчить программы, настрочите мне пожалуйста, потому что мне этого никогда не понять...(

AlexZir 24.05.2010 08:41

Дана действительная матрица 18 х n. Найти значение наибольшего по модулю элемента матрицы, а также индексы данного элемента.
Цитата:

program mas2;
uses crt;
const n=20;
var a: array[1..18,1..n] of real;
i,j,ki,kj:integer;
amax:real;
begin
randomize;
writeln('Выберите способ заполнения массива (1-авто, 2-вручную)');
repeat
read(p);
until (p=1) or (p=2);
for i:=1 to 18 do
for j:=1 to n do begin
if p=1 then a[i,j]:=random(400)/(random(30)+1)-50 else read(a[i,j]);
end;
writeln;
for i:=1 to 18 do begin
for j:=1 to n do
write(a[i,j]:5:5);
writeln;
end;
amax:=abs(a[1,1]);
ki:=1;
kj:=1;
for i:=1 to 18 do
for j:=1 to n do
if abs(a[i,j])>amax then begin amax:=abs(a[i,j]); ki:=i; kj:=j; end;
writeln;
writeln('Наибольший по модулю элемент имеет индексы ',ki,' и ',kj,' и равен ',amax);
readln;
end.
Строчат программы недостудентусы, а мы их создаем с нуля :)). Это делать не столько трудно, как некогда.

Исправил, попробуйте такой вариант!

Строитель 2 24.05.2010 19:35

Програмка не работает, ошибка - деление на ноль в строчке

if p=1 then a[i,j]:=random(400)/random(30)-50 else read(a[i,j])

AlexZir 24.05.2010 19:57

Естественно, будет ошибка деления на ноль, я ведь прогу в среде не проверял, просто накидал примерный листинг. Ошибку исправил, нужно было в знаменателе дроби еще 1 прибавлять, чтобы от 0 избавиться. Пробуйте.

Строитель 2 26.05.2010 20:34

спасибо, прокатило)) выручили, информатика будет через семестр теперь, встретимся через год))))))))))))

Строитель 2 26.05.2010 21:22

Технари рулят нах!!!))))))))


Часовой пояс GMT +4, время: 17:07.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.