Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Информатика] Как нарисовать Блок-Схемы?

Автор: Мариночка 30.11.2005, 14:36

Простите меня такую неграмотную, просто в универе завтра надо сдать две программы и блок схемы к ним, а я асолютно не знаю как их делать...
Пожалуйста помогите, кто может. Заранее спасибо smile

Сами задания тут: webfile.ru/663238

Автор: darkart 30.11.2005, 18:34

Только задачи:
1)

Код


program wp1;
var
  x,y:real;
begin
  writeln('Please enter x:');{сообщение о том, что надо ввести x}
  readln(x);{чтение x}
  if x<0.5 then y:=3*cos(2*x-16*sqr(x)+8){проверка условия: если x<0.5 то вып-ся эта строка}
  else y:=2*sqr(sin((2*x-9)/(sqr(x)+8)));{иначе выполняется эта строка P.S. sqr-квадрат числа}
  writeln('Y=',y:3:5);{вывод y}
  readln;
end.

Код


program wp2;
var
  x,y,tmp:real;
begin
  x:=0.15394;{если нужен ввод x то он есть в 1)}
  y:=(cos(2*x+Pi)-sin((2*sqr(x)-3)/(5*x+2)))/ln(arctan(2*x/3));{сначала пихаем в y первый элемент из max}
  tmp:=exp(cos(2*x)/8)-exp((1/3)*ln(abs(cos(2*x)-ln(abs(x-1)))));{вычисляем второй эл-т из max}
  if tmp>y then y:=tmp;{сравниваем, если tmp>y то присваеваем y=tmp}
  tmp:=exp(x);{аналогично}
  if tmp>y then y:=tmp;{аналогично}
  writeln('Y=',y:3:5);{вывод}
  readln;
end.