|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.06.2014, 20:23 | #1 |
Новичок
Джуниор
Регистрация: 15.06.2014
Сообщений: 6
|
Составить блок-схему(Pascal)
задача.jpg
var x, ch, zn, s: real; begin write('x = '); readln(x); if (sin(x)/cos(x)<=0) or (x<0) or (exp(-3*x) + arctan(x) = 0) then writeln('Решение не определено') else begin ch := sqrt(abs(sqr(ln(sin(x)/cos(x)))) + sqr(1/2/x) + 1); zn := exp(-3*x) + arctan(x); s := ch/zn; writeln('s = ',s); end; readln; end. |
17.06.2014, 14:46 | #2 |
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
Мне просто интересно, что если в условии 2 or без обрамления в скобки то работать будет?
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти меньшие корни квадратных уравнений.Составить блок схему(Pascal) | Лотта | Помощь студентам | 7 | 15.06.2014 22:11 |
Выражение и условный оператор If (составить блок-схему) / Free Pascal | Ksyusha | Помощь студентам | 2 | 10.04.2014 20:47 |
Операторы циклов (составить блок-схему) / Free Pascal | Ksyusha | Помощь студентам | 1 | 10.04.2014 20:37 |
Составить блок-схему алгоритма (Pascal) | k0tone | Помощь студентам | 6 | 14.12.2011 22:21 |