ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Студентам с лабораторными сюда
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 23.04.2009, 23:36
Аватар для oOoOoOo
oOoOoOo
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751

Репутация: 138
По умолчанию
Цитата:
Сообщение от Flame of Soul  
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  y,x:real;
begin
  write('vvedite znachenie x:'+#10#13);
  readln(x);
  writeln('x='+floattostr(x));
  y:=sqrt(2*(1-cos(x)*cos(x)));
  write('y='+floattostr(y));
  readln(x);
  { TODO -oUser -cConsole Main : Insert code here }
end. 
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  y,x:real;
begin
  write('vvedite znachenie x:'+#10#13);
  readln(x);
  writeln('x='+floattostr(x));
  if x>0 then
  begin
    y:=2*sqrt(x);
  end
  else
  begin
    y:=cos(x)*(5-3*x);
  end;
  write('y='+floattostr(y)+#10#13);
  readln(x);
  { TODO -oUser -cConsole Main : Insert code here }
end. 
Тоже спасибо!! Только странный какой то код...
Мне не понятно вот это - {$APPTYPE CONSOLE} и floattostr это что такое, не видел ещё в паскале такого
 
Ответить с цитированием
 



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! nigger Сотовый фрикинг 5 11.04.2009 11:15
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ