[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

30.09.2008, 23:16

eNGi

Новичок

Регистрация: 26.09.2008

Сообщений: 5

Провел на форуме:
28246

Репутация: 5

Цитата:

Сообщение от Syntaxys

if g>d
then
k:=-b;
l:=K+SQRT(i);
n:=K-SQRT(i);
m:=l/2;
o:=l/2;
writeln (M, O);
else writeln (No decision)
end.

Условие в общем случае описывается:

Код:

if (условие_истинно) then действие_1
else действие_2;

или в операторных скобках begin end, если необходимо выполнить несколько действий сразу:

Код:

if (условие_истинно) then 
 begin
  действие_1;
  действие_2;
  действие_3;
 end
else
 begin
  действие_1;
  действие_3;
 end;

Перед "else" " ; " не ставится, а если хочешь во "WriteLn(No decision)" вывести текст, то необходимо заключить его в кавычки

Код:

WriteLn('No decision');

Это по синтаксису... Кажется так

, а также задумайся о книжке по Паскалю.
С математикой сам разберешься.

Похожие темы

Тема

Автор

Раздел

Ответов

Последнее сообщение

[Wi-Fi, BT] Задай вопрос - получи ответ!

Alexsize

Беспроводные технологии/Wi-Fi/Wardriving

2568

25.04.2026 12:58

[jQuery] - Задай вопрос, получи ответ

Isis

PHP

25.12.2009 03:25