Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Gooserok
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 5
1

Вычислить значение выражения

08.11.2012, 21:21. Просмотров 470. Ответов 2
Метки нет (Все метки)

Добрый вечер. Прошу Вас, помогите пожалуйста разобраться с этим, срочно нужно сдать, а ничего не понимаю.

Вычислить значение выражения


Добавлено через 50 минут
С первой разобрался.. все запускается

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 x,y: real;
begin
  // Åñëè ïîñëå Edit1 ïóñòîå, ГІГ® ïðè âûïîëГ*ГҐГ*ГЁГЁ ГґГіГ*êöèè
  // StrToInt âîçГ*ГЁГЄГ*ГҐГІ îøèáêГ*.
  // Ïðîâåðèì, ГўГўГҐГ« ëè ïîëüçîâГ*òåëü Гў ïîëå Edit1
 
  if Length(Form1.Edit1.Text) = 0 then
  begin
    ShowMessage('ГЌГ*äî ГўГўГҐГ±ГІГЁ Г§Г*Г*Г·ГҐГ*ГЁГҐ');
    exit; // Г‡Г*âåðøèòü îáðГ*áîòêó ñîáûòèÿ
  end
  else
  x:= StrToFloat(Form1.Edit1.Text); // Ââåñòè èñõîäГ*ûå Г¤Г*Г*Г*ûå
  y:= Sqrt((x+2)/(2*x+12)); // Ïåðåñ÷èòГ*ГІГј
  // Âûâåñòè ðåçóëüòГ*ГІ
  Form1.Label2.Caption:=
  'Ïðè X = ' + FloatToStr(x) + ' Y = ' + FloatToStr(y);
end;
 
end.
Вторая тоже..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,j,y,min,max:integer ;
begin
i:=strtoint(Edit2.Text);
j:=strtoint(Edit3.Text);
y:=strtoint(Edit4.Text);
min:=i;
max:=i;
if j>max then
max:=j;
if y>max then
max:=y;
if j<min then
min:=j;
if y<min then
min:=y;
Edit1.Text:=inttostr(max);
Edit5.Text:=inttostr(min);
end;
 
end.
Добавлено через 3 минуты
Номер три не понимаю.. наброски есть..
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  d:= document
  t:= new Date
// Г¬Г*Г±Г±ГЁГў Г*Г*çâГ*Г*ГЁГ© Г¤Г*ГҐГ©
var
 fday = new Array ("âîñêðåñåГ*ГјГҐ", "ГЇГ®Г*åäåëüГ*ГЁГЄ", "âòîðГ*ГЁГЄ", "ñðåäГ*", "÷åòâåðã","ГЇГїГІГ*ГЁГ¶Г*", "ñóááîòГ*")
// îïðåäåëåГ*ГЁГї Г¤Г*Гї Г*åäåëè, âûõîäГ*ûìè Г±Г·ГЁГІГ*ГѕГІГ±Гї ñóááîòГ* ГЁ âîñêðåñåГ*ГјГҐ
function def (obj)
//ГЌГ* ГЄГ*êîé äåГ*Гј Г*åäåëè (Г°Г*áî÷èé èëè âûõîäГ*îé) ïîïГ*Г¤Г*ГҐГІ Г§Г*Г¤Г*Г*Г*Г*Гї Г¤Г*ГІГ*?
 
     procedure TForm1.Button1Click(Sender: TObject);
    var
     month: String;
     n: Integer;
begin
   month:= Edit1.Text;
   case month of
    'ГґГҐГўГ°Г*ëü': n := 28;
    'Г*ïðåëü','ГЁГѕГ*Гј','Г±ГҐГ*òÿáðü','Г*îÿáðü': n := 30;
    'ГїГ*ГўГ*ðü','Г¬Г*ðò','Г¬Г*Г©','èþëü','Г*ГўГЈГіГ±ГІ','îêòÿáðü','äåêГ*áðü': n := 31;
   end;
  Label1.Caption = Inttostr(n);
end;   
 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.11.2012, 21:21
Ответы с готовыми решениями:

Вычислить сумму чисел:в указанном пределе, с неопределенным пределом. Вычислить значение выражения
s=\sum_{n=1}^{15}*{(-1)}^{n+1}*\frac{2*sin(n*x)}{n},y=x Помогите найти ошибку....

Вычислить значение выражения
Люди выручайте, не как не могу написать данную программку. Все время не хочет...

Вычислить значение выражения
как правильно записать ня дельфи данное выраженин на фото

Вычислить значение выражения
1.Вычислить 2.Вычислить дробную часть среднего геометрического трёх заданных...

Вычислить значение выражения
Задача такая : Дано х фактический число

2
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,910
08.11.2012, 21:39 2
А зачем тебе в 3 месяца, если в задании явно написона порядковый номер дня недели и определить рабочий день или нет, в case пиши то что 1 = понедельник, 2 = вторник и т.д., а суббота и воскрксенье выходные.
0
Gooserok
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 5
08.11.2012, 21:49  [ТС] 3
Цитата Сообщение от Игорь[Igor] Посмотреть сообщение
А зачем тебе в 3 месяца, если в задании явно написона порядковый номер дня недели и определить рабочий день или нет, в case пиши то что 1 = понедельник, 2 = вторник и т.д., а суббота и воскрксенье выходные.
упс, это с другого варианта...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.11.2012, 21:49

Вычислить значение выражения
На зачет нужно сделать, а забыл как оформлять, примерно знаю как решить.

Вычислить значение выражения
Написать программу для вычисления при действительных значениях всех переменных...

Вычислить значение выражения
Даны x,y,z вычислить a,b, если а = (|x+1|1/2-|y|1/2)/(x+z), b = x*(arctg(z)+ey)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru