|
|
Опции темы | Опции просмотра |
03.02.2012, 16:43 | #1 (permalink) |
Member
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужно написать программу с табулированием функции на отрезке AB с шагом H
Вот задание которое мне срочно нуно сделать: Написать программу с Табулированием функции на отрезке AB с шагом H. |
03.02.2012, 16:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам пролистать данные темы, в них наверняка много полезного Нужно написать на паскале Нужно написать программу расчета вознаграждения Нужно написать программу в Pascal |
04.02.2012, 11:49 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да пожалуйста - без проблем:
Код:
VAR a,c,x,UL,LL,H:Real; N,i:Byte; Function Y(z:real):Real; begin Y:=Sqrt(z-a)+1/(z+c); end; BEGIN Write('a= '); Readln(a); Write('c= '); Readln(c); Repeat Write('Lower limit = '); Readln(LL); If LL<a then writeln('Error: incorrect value!'); Until LL>=a; Repeat Write('Upper limit = '); Readln(UL); If UL<=LL then writeln('Error: incorrect value!'); Until UL>LL; Repeat Write('Step= '); Readln(H); If (H<=0) or (H>(UL-LL)) then writeln('Error: incorrect value!'); Until (H>0) and (H<=(UL-LL)); N:=Round((UL-LL)/H); For i:=0 to N do begin x:=LL+H*i; Writeln(x:6:3,Y(x):15:5); end; Readln END. Код:
VAR x,UL,LL,H:Real; N,i:Byte; Function Y(z:real):Real; begin Y:=Sqrt(z*Sqrt(z)-z*4); end; BEGIN Repeat Write('Lower limit = '); Readln(LL); If LL<16 then writeln('Error: lower limit must be >=16!'); Until LL>=16; Repeat Write('Upper limit = '); Readln(UL); If UL<=LL then writeln('Error: incorrect value!'); Until UL>LL; Repeat Write('Step= '); Readln(H); If (H<=0) or (H>(UL-LL)) then writeln('Error: incorrect value!'); Until (H>0) and (H<=(UL-LL)); N:=Round((UL-LL)/H); For i:=0 to N do begin x:=LL+H*i; Writeln(x:6:3,Y(x):15:5); end; Readln END. |
04.02.2012, 12:33 | #5 (permalink) |
Member
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
04.02.2012, 16:50 | #9 (permalink) |
Member
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
В последней строке выдает ошибку, якобы нет знака двоеточия вот и все.
В последней строке где END. записано,выдает ошибку, что не хватает знака двоеточия. |
04.02.2012, 17:22 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|