ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Студентам с лабораторными сюда
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 23.04.2009, 23:36
oOoOoOo
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами: 9456866

Репутация: 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 это что такое, не видел ещё в паскале такого
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



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


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




ANTICHAT ™ © 2001- Antichat Kft.