Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Wlad445
65 / 0 / 3
Регистрация: 06.11.2010
Сообщений: 177
1

case of подскажите правильный синтаксис

09.02.2013, 14:56. Просмотров 806. Ответов 2
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
Var b,m,n,x,y: real; s:integer;
begin
  x:= StrToFloat(Edit1.Text);
  s:=1;
    88: case s of
  1:begin b:=-1.6; m:=0.9; n:=-1.4;end;
  2: begin b:=4.5; m:=-0.5; n:=2.2;end;
  3: begin b:=-4.5; m:=0.5; n:=-1.5;end;
  end;
  if abs(b*m)> n*n then y:=sin(b*m+cos(n*x));
  if abs(b*m)< n*n then y:=cos (b*m-sin(x));
  if abs(b*m)= n*n then y:=sqrt (power(2.718,ln(x))+sqrt(abs(b*m*x)));
  Memo1.Lines.Add('x='+ FloatToStr(x) + ' y=' + FloatToStr(y) +  IntToStr(s)+'й - варіант');
       if s<=3 then goto 88;       end;
 
end;
 
end.
Пишет ошибку здесь:
Delphi
1
88: case s of
Если убрать 88: то что написать здесь?
Delphi
1
if s<=3 then goto 88;       end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2013, 14:56
Ответы с готовыми решениями:

Подскажите правильный синтаксис для запроса в источнике данных
Есть поле со списком в форме. Мне надо, чтобы в этом поле отображались только...

Правильный ли синтаксис?
Здравствуйте форумчане!) Подскажите будет ли это корректно работать: ...

Не правильный синтаксис в цикле
for n=1 to 10 Set базаДанных = CurrentDb запрос = &quot;SELECT * FROM...

Правильный синтаксис запроса
Здравствуйте! Есть задача такого формата: Есть три таблицы в базе данных: ...

Правильный синтаксис DataReader
SQL = &quot;SELECT COUNT(*) AS count FROM .. WHERE = '&quot; + login.Trim() + &quot;';&quot;; ...

2
vampire6666
142 / 142 / 39
Регистрация: 17.08.2012
Сообщений: 411
09.02.2013, 15:20 2
Wlad445, а вы описали 88 как Label?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26519 / 17808 / 7048
Регистрация: 22.10.2011
Сообщений: 31,338
Записей в блоге: 6
09.02.2013, 15:22 3
Здесь метки вообще не нужны, такая конструкция легко заменяется repeat/until. Но я не вижу, где в строках 7-14 изменяется значение s... Это будет вечный цикл...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 15:22

Правильный синтаксис CreateObject(...)
Я создал СОМ объект, зарегистрировал dll. А как мне теперь использовать этот...

Правильный синтаксис try catch using
Ребята, необходим аргументированный ответ. Как правильно писать подключение к...

CASE синтаксис
Ребята, всем снова привет! Есть вот такой скрипт: CREATE TABLE Prodaji (...


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

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

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