ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩЕГОСЯ ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА - Помощь студентам

Rustem5 · 19.03.2010, 13:15

http://pic.rapidshare.ru/1416896

ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩЕГОСЯ ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА
спасибо)

ai\ekcah^p · 19.03.2010, 18:16

Третья задачка , остальные в том же стиле решаются ...

Код:

program zad3;
uses crt;
const b=1.2;
var
a,k:real;
begin
  clrscr;
  a:=0.75*sqrt(0.5)-0.5*exp(1.5*ln(4));
  if a>b then
    k:=sqrt(15*sqr(a)+21*sqr(b))
    else
    if a<(b-1) then
      k:=sqr(a)+sqr(b)
      else
        k:=sqrt(15*sqr(b)+21*sqr(a));
  textcolor(10);
  write(' k= ',k:4:2);
  readln;
end.

19.03.2010, 13:15	#1
Rustem5 Регистрация: 19.03.2010 Сообщений: 7	ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩЕГОСЯ ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА http://pic.rapidshare.ru/1416896 ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩЕГОСЯ ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА спасибо) Последний раз редактировалось Rustem5; 19.03.2010 в 13:51.

19.03.2010, 18:16	#2
ai\ekcah^p Форумчанин $Аватар для ai\ekcah^p$ Регистрация: 03.05.2009 Сообщений: 112	Третья задачка , остальные в том же стиле решаются ... Код: `program zad3; uses crt; const b=1.2; var a,k:real; begin clrscr; a:=0.75sqrt(0.5)-0.5exp(1.5ln(4)); if a>b then k:=sqrt(15sqr(a)+21sqr(b)) else if a<(b-1) then k:=sqr(a)+sqr(b) else k:=sqrt(15sqr(b)+21*sqr(a)); textcolor(10); write(' k= ',k:4:2); readln; end.`
$ai\ekcah^p вне форума$

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Приоритет процесса	P@SH@	Win Api	9	13.05.2014 21:48
Два процесса	Sane2k	Win Api	11	30.06.2010 23:39
Схемы вычислительного процесса	Natali_11111	Помощь студентам	1	03.03.2010 18:53
==Автоматизация процесса==	zenner	Microsoft Office Word	10	17.08.2009 14:17
ID процесса	ben95	Общие вопросы Delphi	1	22.01.2008 19:43