Кто помнит Pascal?

да нормальные алгоритмы получились же.
можно было конечно и процедурку вкинуть, но это уже лишнее.
а вот оформлением самого кода должна была знакомая озаботится.
тс тут вовсе нипричем.
и да. - БЛЯЯЯЯЯЯ - и это потом пойдет в институт???
тс, плюнь в свою знакомую - если не может/не умеет, то и нехуй лезть туда, куда не тянет мозгом.

Посмотрел программу, узнал кучу давно забытых операторов и функций

А Fortran почему не вспомнил?

Код вполне рабочий, но исполнение корявенькое. Если так и задумано - молодца! На троечку потянет, исключительно потому, что работает почти как надо.

Задача 1.
Функции sin и exp, не требуют вызова библиотеки math, а консольная программа не требует вызова crt.
Исход "бесконечность", почему-то обойдён вниманием.
Ввод данных по until с условием допустимости данных - сурово. Результатом ввода недопустимых данных в адекватной программе должно быть сообщение об этом, а не "введите данные ещё раз".
Задача по теме "Функции", скорее всего должна решаться через самописную функцию которая вызывается из основного модуля программы.

Задача 2.
Возможно нужно решение с использованием массивов, решение вашим способом снижает точность расчёта для набора разных сопротивлений, и создаёт впечатление, что массивы вы не знаете.
Отдельные конструкции if для каждого значения danet - возможно признак плохого понимания работы конструкции if ... else ..., при выборе одного из двух исходов достаточно одной конструкции.

Как-то так.

Это сообщение отредактировал al9x - 22.12.2015 - 10:41

Это не система уравнений. Выбирается одно из, в зависимости от диапазона входных значений.

Спасибо al9x, Nagli, VSC и всем остальным, кто адекватно ответил на вопрос, за конструктив

Это сообщение отредактировал parazit37 - 22.12.2015 - 11:38

Ну хер его знает, у нас юристам паскаль преподавали
помню на втором курсе бабла неплохо на них поднимали, решали задачки, делали курсовые
а вот накой им этот паскаль - хрен его знает....

а я начинал с фокала

http://www.yaplakal.com/findpost/42988551/...pic1274908.html

на 0 делить нельзя... не совсем верная у Вас получилась функция...

очень недружелюбные к пользователю проги
вот как ей пользоваться?
запускаешь, вводишь числа. оказывается числа не из одз функции. и что видит пользователь? да ничего, опять приглашение к вводу данных.
хоть бы так написал:
writeln('Входные данные хуйовые. Попробуй еще разок угадать')

пффф. пожалуйста. Для своей переделать
Правда под формулу D = 4*Pi*Ha*Fi*D0/L.

Текст программы:

; D = 4 * Pi * Ha * Fi * D0 / L
.386; Директива определения типа микропроцессора
. Model flat, stdcall; задачи линейной модели памяти
; И соглашения ОС Windows

option casemap: none; отличие малых и больших букв

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\fpu.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\fpu.lib


BSIZE equ 30
. Data; директива определения данных
D0 dword 200;сохранение в 32-разрядной ячейке памяти переменной х
L dword 1; резервирования 32-х разрядов памяти для переменной y
Ha dd 3,4,5
Fi dd 1,2,3
const dd 4

st1 db "Результат вычисления:", 0
st2 db 10 dup (?), 0

. Code; директива начала кода
_start:
lea esi, Ha
lea edi, Fi
mov ebx, 3

m1:
mov ecx, 3
lea edi, Fi
m2:
finit
fldpi; заносим значения Пи
fimul const; Pi * 4
fild dword ptr [esi]
fmul; умножаем результат на На
fild dword ptr [edi]; заносим результат Фи
fmul; умножаем результат на Фи
fild D0; заносим значение D0
fmul; умножаем результат на D0
fild L; заносим значение лянда
fdiv; делим результат на лянда
pushad; сохраняем все регистры общего назначения в стек

invoke FpuFLtoA, 0, 10, ADDR st2, SRC1_FPU or SRC2_DIMM
invoke MessageBox, NULL, addr st2, addr st1, MB_OK

popad; считываем из стека

add edi, 4;следующий элемент в массиве
loop m2
add esi, 4; следующий элемент в массиве
dec ebx
jnz m1; переходить на метку m1 пока ebx не станет равна 0

invoke ExitProcess, NULL; возврат управления Windows
; И освобождения ресурсов

end _start;директива окончания программы с именем start
via

кончайте алгоритмами мерятся. и так понятно , что срединий по ЯПу это 45см

ТС, а смогёшь написать чонить для автоматического подбора шмотья? Ну чтоб как терминатор куртку выбирать

Это сообщение отредактировал 4uckNorris - 22.12.2015 - 17:24

Для дебилов пояснения. Стадия ввода отвечает только за ввод. Нужно получить три значения? Получи и распишись, если значения соответствуют ожидаемому формату. Этап ввода также несет ответственность за прерывание программ до ввода всех исходных данных задачи, если пользователь передумал их решать. По ходу цикла, в контексте задачи вообще не должно быть! Получив три значения на вводе программа или посылает пользователя в жопу с объяснением причин, или вычисляет требуемое значение. Чего нет в приведенном коде.
По какой то неведомой мне причине Division by zero и Numeric overflow сильно неожиданны говнокодерам и вызывают их неподдельное изумление. Хотя предусмотреть исключительные ситуации это их прямая обязанность.

Это сообщение отредактировал SuperYago - 22.12.2015 - 19:04

Руки то хоть не кривожопые?

А кто тебе сказал, что значений на входе - 3? В условиях об этом нет ни слова, сопротивлений может быть хоть миллион. случай, когда делитель (divisor, блять ) равен нулю - предусмотрен (что у меня, что у ТСа), отдельно возможное исключение обрабатывать НЕ НУЖНО. Это задача для первого курса, важен просто принцип перевода алгоритма в код. Можно обработку исключения на каждый чих лепить, только читаемости коду это не прибавит, а преподавателю важно за минуту понять, что программа расчет выполняет правильно - и все. Я могу тебе привести мой код на pl/sql с рабочей БД нашей организации (~15 тысяч сотрудников действующих), где у нас обработка исключений на каждый мыслимый и немыслимый случай - но это не уровень 1 курса универа.

Это сообщение отредактировал VSC - 23.12.2015 - 15:34

Паскаль... Давно это было)))
Помню, циферка "3" на перфораторе (или как там это называлось?!) западала, так мы маникюрными ножничками на перфокарте троечки в нужных местах прорезали...

Ребят, а есть кто в ООП шарит? Именно нужно С/С++. Нужна помощь.