|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
01.04.2011, 17:45 | #11 (permalink) |
Member
Регистрация: 15.02.2011
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
01.04.2011, 17:45 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете поискать интересующую информацию в аналогичных топиках Помогите доделать задание на массив Задачка по Паскалю для истинных профессионалов в этом деле. Помогите с решением! Помогите, пожалуйста, с решением задачи Задание в паскале с кординатами Задание в Паскале |
02.04.2011, 18:19 | #15 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Можно. Например, так:
Код:
VAR a,b,h,t:Real; N,i:Word; Function X(Tx:Real):Real; begin X:=0.5*(Exp(Tx)+Exp(-Tx))-Tx; end; Function Y(Ty:Real):Real; begin Y:=0.5*(Exp(Ty)-Exp(-Ty))-1; end; BEGIN Write('Lower T value = '); ReadLn(a); Write('Upper T value = '); ReadLn(b); Write('Step T value = '); ReadLn(h); N:=Trunc((b-a)/h); For i:=0 to N do begin t:=a+h*i; WriteLn(X(t):10:5,Y(t):20:5); end; Readln; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
03.04.2011, 11:21 | #17 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR a,b,h,t,x,y:Real; N,i:Word; BEGIN Write('Lower t value = '); ReadLn(a); Write('Upper t value = '); ReadLn(b); Write('Step t value = '); ReadLn(h); N:=Trunc((b-a)/h); For i:=0 to N do begin t:=a+h*i; x:=0.5*(Exp(t)+Exp(-t))-t; y:=0.5*(Exp(t)-Exp(-t))-1; WriteLn(x:10:5,y:20:5); end; Readln; END. |
|
04.04.2011, 20:06 | #20 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|