|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.01.2013, 13:24 | #1 (permalink) |
Member
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите исправить ошибку, пожалуйста
Uses crt; var x,a,Z,u,Ha,Hx:real; Function min(b,c:real):real; begin If b<c Then min:=b; min:=c end; begin ha:=1.3; hx:=1.3; x:=1; repeat a:=2; repeat u:=min(sin(a/x)/cos(a/x),x*sin(x*x)); z:=min(a*sqrt(abs(u)),sin(a)/x); writeln('x=',x:5:2,'a=',a:5:2,'u=',u:5:2) a:a+ha; until a>=4; x:x+hx; until x>=3; end. |
21.01.2013, 13:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию темы, которые могут вам помочь своим содержанием Помогите исправить ошибку Помогите исправить ошибку Как исправить ошибку? Программа в паскале, помогите, пожалуйста, исправить программу Помогите пожалуйста исправить задачу на строки, Паскаль |
21.01.2013, 13:48 | #3 (permalink) |
Member
Регистрация: 10.11.2012
Адрес: г. Ростов-на-Дону
Сообщений: 790
Сказал(а) спасибо: 1
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 5849
|
а попробуй написать не ha a Ha?у тебя ж в определении переменных написано с большой буквы! конечно я могу ошибаться,но некоторые языки программирования критичны к этому!
|
21.01.2013, 14:13 | #5 (permalink) |
Member
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
всё получилось, спасибо))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|