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

[Alexei18]

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

 

[Vladimir_S]

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

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

 

[Alexei18]

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

 

[Vladimir_S]

он сказал что первый столбик 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.

 

[Alexei18]

СПАСИБО!!!

 

[Alexei18]

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

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

 

[Vladimir_S]

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

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

 

[Ахал]

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

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

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

 

[Vladimir_S]

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

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

 

[Ахал]

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