1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Помогите пожалуйста разобраться, задание на рисунке, вот что у меня получилось
Var x,x1,y,y1,y2:real;T:Boolean; Begin Writeln('введите число для вычисления выражения1'); Read(x); Writeln('Результат задания а'); If x>0 then writeln('')else Begin y:=exp(1/3*ln(x-x*x))+exp(5*ln(x)); Writeln ('при х=',x:6:3,' y=',y:6:3); y1:=abs(y); Writeln('Абсолютное значение y1=', y1:6:3); y2:=sqr(y); Writeln('Квадрат у=',y2:6:3); End; Writeln('Введите координаты точки'); Readln(x1,y1); T:=(sqr(x1)+sqr(y1)<=1); Writeln('Результат задания б:',t); End.
Что мне нужно написать в строке if?
М
Тэги!! Правила Форума, п.5, и правила раздела задачи, п.2. Lapp
Научитесь сначала читать код, потом возьметесь за критику. Где 3 выхода? Я вижу только один выход из подпрограммы. Перед последним End-ом. Все остальное - не более чем запоминание результата, который функция может вернуть (а может и НЕ вернуть, как повезет).
Кстати, ссылку на "правила структурирования программ" можно получить? (с указанием автора, желательно - не Васи Пупкина)... И заодно объяснение, чем подобная функция нарушает правила структурирования... Иначе - все, что я вижу в этом посте - это поднятие старой темы, причем необоснованное. Если ответа не последует в течении 12 часов - пост №18 будет просто удален. Как и все последующие.
Научитесь сначала читать код, потом возьметесь за критику. Где 3 выхода? Я вижу только один выход из подпрограммы. Перед последним End-ом. Все остальное - не более чем запоминание результата, который функция может вернуть (а может и НЕ вернуть, как повезет).
Кстати, ссылку на "правила структурирования программ" можно получить? (с указанием автора, желательно - не Васи Пупкина)... И заодно объяснение, чем подобная функция нарушает правила структурирования... Иначе - все, что я вижу в этом посте - это поднятие старой темы, причем необоснованное. Если ответа не последует в течении 12 часов - пост №18 будет просто удален. Как и все последующие.
1.Выход из функции все должен находится перед закрывающем операндом.(Примеры: MFC) 2.Любую книгу возьми про стили программирования. 3.Поэтому желательно писать так (если вам конечно не жалко памяти, если жалко памяти пишите на asm'е):
function Root3(e: extended): extended; integer tmp; begin if (e = 0) then tmp := 0; else if (e > 0) then tmp := exp(1/3 * ln(e)); else tmp := -exp(1/3 * ln(-e));
1.Выход из функции все должен находится перед закрывающем операндом.(Примеры: MFC) 2.Любую книгу возьми про стили программирования. 3.Поэтому желательно писать так (если вам конечно не жалко памяти, если жалко памяти пишите на asm'е):
function Root3(e: extended): extended; integer tmp; begin if (e = 0) then tmp := 0; else if (e > 0) then tmp := exp(1/3 * ln(e)); else tmp := -exp(1/3 * ln(-e));
Root3 := tmp; end;
Улет, просто улет!! volvo, спасибо, что оставил мне удовольствие ответить этому олуху.. )) На этот раз, в соответствии с тоном, взятым Гостем, отброшу весь этикет.
Гость, ты бы потрудился сначала узнать необходимый минимум по предмету перед тем, как дискутировать с профессионалами, а? Или уж по САМОМУ минимуму - приводил бы корректный (компилирующийся) код.. "Три выхода"! три кварка! три карты.. три апельсина! )) смех, да и только..
Совет тебе: урой своего учителя. Ну, или хотя бы не прогуливай занатия..
кэшмарт.. три выхода.. "желательно писать так".. "если вам конечно не жалко памяти".. держите меня трое.. нет, лучше семеро ))..
Гость, не обессудь, линк на твое сообщение отправляется в раздел "Юмор", в тему "Смешные случаи на форуме" или что-то в этом роде .
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой