|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.11.2018, 22:28 | #1 |
Регистрация: 14.10.2018
Сообщений: 5
|
Помогите найти ошибку
Всем добрый вечер! Программа рабочая, но преподаватель говорит что есть ошибка связанная с оператором IF
Помогите пожалуйста вввв.jpg program lab_5; var U,x,y,a,b,min,e:real; begin writeln('x='); readln(x); writeln ('y='); readln(y); begin if sin(x) + cos(x) = 0 then begin writeln('Ошибка, деление на нуль') end else if y = 1.2 then begin writeln ('Ошибка, деление на нуль') end else a:=(exp(-x*x-1*ln(exp(1))))+(sin(x*x-8))/(1.2-y); b:=sqrt(abs(y-2))+(2*x*x-6*x-1)/(sin(x) + cos(y)); if a<b then min:=a else min:=b; U:=min; writeln('U=', U:6:2); end; end. |
08.11.2018, 23:05 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Максимум нужно же найти а не минимум. Да и сравнивать вещественные в лоб с константой идея так себе
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[C++] найти сумму ряда , посчитать функцию ch(x) и найти абсолютную и относительную погрешности. Помогите найти ошибку! | Vladonna | Помощь студентам | 2 | 13.09.2018 22:07 |
Помогите, пожалуйста, найти ошибку в коде (найти сумму факториалов чётных чисел в заданном диапазоне) | kris14 | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 25.10.2017 15:42 |
Дан массив а(n) типа SWORD. найти сумму всех отрицательных элементов массива.помогите найти ошибку | Юлия123456 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 07.09.2016 06:12 |
Найти седловые точки в матрице(помогите найти ошибку) - pascal | tdsotm | Помощь студентам | 0 | 20.11.2014 18:57 |
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi) | Artsiom | Помощь студентам | 10 | 18.12.2013 14:10 |