|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.03.2010, 11:35 | #1 |
Новичок
Джуниор
Регистрация: 25.03.2010
Сообщений: 2
|
При вычислении максимального значения выдает О
задание следующее:
вычислить значение z:=b*cos(2.1*100*a*cos(x)/sqr(a)+sqr(b)+sqr(x)) для х, изменяющегося от х1 до х с шагом h. Определить максимальное и минимальное значение z, а также вычислить среднее арифметическое первых 10 результатов вото то что я смог сделать: Код:
Последний раз редактировалось Stilet; 25.03.2010 в 12:42. |
25.03.2010, 11:56 | #2 |
Пользователь
Регистрация: 13.04.2009
Сообщений: 16
|
первый совет вместо goto использовать ченить другое,
во вторых на сколько я знаю после готу продолжается с того места куда отправил. Так что не понимаю зачем k=0; k+=1; серовно всегда 1 будет равен. Исправишь это все пиши что получилось. |
25.03.2010, 18:23 | #3 |
Новичок
Джуниор
Регистрация: 25.03.2010
Сообщений: 2
|
вот что получилось, опять О!
program laba3; label 1; var x,n,min,max, z,xn,xk,h,a,b:real; k:integer; e:array[1..26] of real; begin write('ўўҐ¤ЁвҐ з «мҐ x,xn='); readln(xn); write('ўўҐ¤ЁвҐ Є®Ґ x,xk='); readln(xk); write('ўҐҐ¤ЁвҐ и Ј h='); readln(h); Write('ўўҐ¤ЁвҐ a,a='); read(a); write('ўўҐ¤ЁвҐ b.b='); read(b); x:=xn; while x<=xk do begin z:=x+1; k:=0; k:=k+1; e[k]:=z; x:=x+h; write(e[k]:6:2); end; min:=e[1]; for k:=2 to 26 do if e[k]<min then begin min:=e[k]; end; writeln('¬Ё¬ «мҐ §зҐ=',min:3:3); readln(x); end. |
25.03.2010, 18:52 | #4 | |
FORTRAN programmer
Форумчанин
Регистрация: 08.12.2009
Сообщений: 153
|
Цитата:
Также нужно связать между собой три переменные: xk, xn, h. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск максимального значения элемента в массиве массивов целых на С++. | jojola | Общие вопросы C/C++ | 2 | 24.03.2010 16:04 |
Ошибка при вычислении.. | CodeExpert | Помощь студентам | 7 | 17.02.2010 17:24 |
поиск максимального значения по дате | Vorchun | Microsoft Office Excel | 2 | 17.01.2010 17:41 |
Поиск максимального значения функции | SKS | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 15.01.2009 16:34 |
Суммирование значений и выведения максимального значения | Bor_man | Microsoft Office Excel | 2 | 12.04.2007 19:49 |