Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 01.04.2011, 17:45   #11 (permalink)
ZEKE
Member
 
Регистрация: 15.02.2011
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Задача как надо?)))
ZEKE вне форума   Ответить с цитированием

Старый 01.04.2011, 17:45
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Можете поискать интересующую информацию в аналогичных топиках

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

Старый 01.04.2011, 19:15   #12 (permalink)
Valet
Member
 
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ну сын заболел, пока не смотрели вмести с ним, я то плохо в этом разбираюсь) ну надеюсь все правильно. Большое спасибо!
Valet вне форума   Ответить с цитированием
Старый 02.04.2011, 14:49   #13 (permalink)
Valet
Member
 
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

что делает break в формуле?
Valet вне форума   Ответить с цитированием
Старый 02.04.2011, 15:06   #14 (permalink)
Valet
Member
 
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

как нибуть без брейка можно сделать?
Valet вне форума   Ответить с цитированием
Старый 02.04.2011, 18:19   #15 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Valet Посмотреть сообщение
как нибуть без брейка можно сделать?
Можно. Например, так:
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 03.04.2011, 10:02   #16 (permalink)
Valet
Member
 
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Function X(Tx:Real):Real; а без этого? просто они такое еще не проходили, надо задачу как то по простому сделать с помощью ветвления в ветвлении
Valet вне форума   Ответить с цитированием
Старый 03.04.2011, 11:21   #17 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Valet Посмотреть сообщение
Function X(Tx:Real):Real; а без этого? просто они такое еще не проходили, надо задачу как то по простому сделать с помощью ветвления в ветвлении
Можно и без функций. И даже без ветвлений.
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Старый 03.04.2011, 11:52   #18 (permalink)
Хелен
Sparkling
 
Аватар для Хелен
 
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
По умолчанию

Ну так совсем не интересно)))
Хелен вне форума   Ответить с цитированием
Старый 04.04.2011, 20:05   #19 (permalink)
Valet
Member
 
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

нужно имено с ветвлением)
Valet вне форума   Ответить с цитированием
Старый 04.04.2011, 20:06   #20 (permalink)
Valet
Member
 
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо
Valet вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:09.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.