Технический форум - Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм"

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

помогите пожалуйста, Учитель попросил на месте знаков вопроса прописать буквы, как это забить в паскаль?

Цитата:

Сообщение от Alexei18 (Сообщение 813797)

Учитель попросил на месте знаков вопроса прописать буквы, как это забить в паскаль?

Понятия не имею. Все столбцы и строки таблицы промаркированы значениями параметров x и a - так какие еще "буквы" там требуются?

он сказал что первый столбик x/a второй например х, третий а и т.д.

Цитата:

Сообщение от Alexei18 (Сообщение 813839)

он сказал что первый столбик x/a второй например х, третий а и т.д.

Не, я так не умею таблицы составлять. Впечатление, что "Учитель" просто ни бельмеса не понял в структуре таблицы. Так объясните ему, что х\а - это вовсе не результат какого-то деления (и, кстати, слэш там не зря обратный), а просто в первом столбце - значения параметра х, в первой строке - параметра а, на пересечениях строк/столбцов - значения искомой функции при данных х и а. Какого рожна еще надо? Попробуйте это объяснить "Учителю".
Ну а уж если он будет упорствовать, то покажите ему следующий вариант программы, объяснив, что это для полных идиотов:

Код:

Const

 An=0.3;

 Ak=0.7;

 Xn=0.1;

 Xk=0.2;

 m=3;

 n=2;



Var

 i,j:byte;

 W,Ha,Hx,a,x:real;



Function ArcCos(X:real):real;

begin

 if X=1 then ArcCos:=0 else

 if X=-1 then ArcCos:=Pi else

 ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));

end;



Function Max(g1,g2:real):real;

begin

 if g1>g2 then Max:=g1 else Max:=g2;

end;



Function F1(a1,x1:real):real;

begin

 F1:=ArcTan(a1*x1)*3;

end;



Function F2(a2,x2:real):real;

begin

 F2:=Sqrt(Sqr(a2)+Sqr(x2));

end;



Function F3(a3,x3:real):real;

begin

 F3:=ArcCos(a3+x3/10);

end;



Begin

 Ha:=(Ak-An)/m;

 Hx:=(Xk-Xn)/n;

 Write('       ');

 For j:=0 to m do Write('   a=',(An+Ha*j):5:3);

 Writeln;

 For i:=0 to n do

  begin

   Write('x=',(Xn+Hx*i):5:3);

   For j:=0 to m do

    begin

     a:=An+Ha*j;

     x:=Xn+Hx*i;

     W:=Max(Max(F1(a,x),F2(a,x)),F3(a,x));

     Write('   W=',W:5:3);

    end;

   Writeln;

  end;

 Readln

End.

Помогите если не сложно с паскалем, на тему "массивы"

Дана матрица А(5,4)
Найти новый одномерный массив В из суммы элементов каждой строки матрицы А.
Найти максимальный элемент А в 5-й строке матрицы.
Заменить последний элемент в 3-й строке марицы А на найденный максимальный элемент.

Цитата:

Сообщение от Alexei18 (Сообщение 820752)

Помогите если не сложно с паскалем, на тему "массивы"

Не сложно, но подобными ясельными задачками не занимаюсь. Из принципа. А еще потому, что от поисков максимальных и минимальных элементов массивов, извините, тошнит уже. Так что мой Вам совет - решайте самостоятельно. На чем еще учиться, как не на подобной ерунде?

Цитата:

Сообщение от Vladimir_S (Сообщение 808536)

Естественно! Вы же описали функцию выбора максимальной из ДВУХ величин, а пытаетесь впихнуть ТРИ! Да и функцию Вы недоописали, а бросили на полпути. И к тому же при обращении к функции параметры перечисляются через запятую, а не точку с запятой. В общем - ошибка на ошибке.

Да... смотрю, Вы ни в задаче, ни в Паскале толком не разобрались.
Сейчас вынужден отключиться, если терпит до завтра, попробую объяснить, как решать эту задачу.

Здравствуйте, Владимир!
У меня к вам просьба по этой же формуле.
Вы бы не могли пожалуйста, помочь мне с написанием блок схемы.

Цитата:

Сообщение от Ахал (Сообщение 2478994)

Здравствуйте, Владимир! У меня к вам просьба по этой же формуле. Вы бы не могли пожалуйста, помочь мне с написанием блок схемы.

Я в этой теме уже писал, что блок-схемами не занимаюсь. Поищите в Сети соответствующие сервисы (по программе построить блок-схему), когда-то их было множество.

Спасибо, я вас понял.
Вы бы не могли мне пожалуйста объяснить на языке чайников (идиотов, рас****яев, которые ничего не понимают в программировании), как вы написали эту программу.
Мне просто ещё объяснять всё это, а я в циклическом алгоритме мало что понимаю.