|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
26.05.2009, 18:33 | #1 |
Регистрация: 26.05.2009
Сообщений: 8
|
Помогите пожалуйста нарисовать блок-схему
uses crt;
var x,y,z,p,c:real; begin clrscr; write('x='); readln(x); write('y='); readln(y); p:=2*abs(x)+y; c:=exp(ln(3)*(-p)); z:=p-sin(p)-c; write('z=',z:0:4); readln; end. |
26.05.2009, 18:34 | #2 |
Регистрация: 26.05.2009
Сообщений: 8
|
uses crt;
var x,y:real; begin clrscr; write('x='); readln(x); if(x=0) then y:=0; if(x<0) then y:=1-cos(2*x*2)/1+cos(2*x*2); if(x>0) then y:=exp(-x); write('y=',y:0:2); readln; end. Так же и к этой |
26.05.2009, 19:57 | #3 |
Пользователь
Регистрация: 26.05.2009
Сообщений: 20
|
скажи мыло куда скинуть
|
27.05.2009, 06:36 | #4 |
Регистрация: 26.05.2009
Сообщений: 8
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ребята помогите нарисовать блок схему алгоритма? | PashAs | Помощь студентам | 1 | 23.03.2009 17:44 |
Помогите пожалуйста нарисовать блок-схему к задаче | Filosofijka | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 01.12.2008 10:23 |
Помогите нарисовать блок схему ио к такой задаче | gigaman | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 10.03.2008 15:12 |