Кто помнит Pascal?

Тут такое дело, попросила меня знакомая написать несколько программок (контрольная в институте) на "паскале". Я его уже давненько не видел. но стало интересно и я согласился. В итоге преподаватель, проверяя мой код, вздыхала и называла меня дураком (естессно, заочно, сдавала к/р знакомая), хотя зачет поставила. Мне дико интересно, я действительно всё забыл или на меня наговаривают? Кто в теме, напишите свое мнение о коде.

Составить программу для вычисления

Uses crt, math;
Var
f, x, y, z: real;
Begin
clrscr;
repeat
write('Введите x: ');readln(x);
write('Введите y: ');readln(y);
write('Введите z: ');readln(z);
until (cos(y*z)<>0) and (sin(Pi/3+y)<>0);
if cos(x)<tan(y*z) then
f:=exp(sqr(sin(x*y))+z)
else
f:=cotan(Pi/3+y);
writeln;
writeln('f=',f);
readln;
End.

Разработать, ввести в ЭВМ и отладить программу для расчёта полного сопротивления участка электрической цепи, состоящего из m известных сопротивлений, соединённых параллельно.


Uses crt;
Var
danet: byte;
m, i: longword;
res, res_poln, znam: real;
Begin
clrscr;
repeat
writeln('Сопротивления одинаковы?');
writeln('1) Да');
writeln('2) Нет');
readln(danet);
writeln;
until (danet=1) or (danet=2);
if danet=1 then
begin
write('Укажите номинал сопротивления (Ом): ');readln(res);
write('Укажите количество сопротивлений: ');readln(m);
writeln;
res_poln:=res/m;
writeln('Полное сопротивление равно ',res_poln,' Ом');
end;
if danet=2 then
begin
znam:=0;
write('Укажите количество сопротивлений: ');readln(m);
writeln;
for i:=1 to m do
begin
write('Укажите номинал ',i,'-го сопротивления (Ом): ');readln(res);
znam:=znam+1/res;
end;
res_poln:=1/znam;
writeln;
writeln('Полное сопротивление равно ',res_poln,' Ом');
end;
writeln;
writeln('<Для выхода нажмите "Enter">');
readln;
End.

А как же Бейсик???
Он раньше был!!

ТС прости меня, жопу криворукую! Нечаянно минуc влепила

А Паскаль помню учили когда-то, но мляяяя... Давнооооо это было....

Это сообщение отредактировал grably - 21.12.2015 - 18:08

Я нихуя не понял, но на всякий случай позеленил...

until. UNTIL. О, боги! Индийские кодеры плачут от зависти. По ходу у ТС мания величия.

Это сообщение отредактировал SuperYago - 21.12.2015 - 18:12

Паскаль, к сожалению, не знаю! Так что чем могу!

Фортран забыли с.кины дети

Я-то по продвинутей буду - слово "end" знаю.

Ну про Бейсик и Фортран уже написали, а так код правильный.

Может ей почерк принтера, на котором печатала твоя знакомая, не понравился?? Ну типа с трудом смогла прочитать.
Мои каракули тоже никто не может дешифровать)

Изучал его давно, на идеал и не претендую ) Хоть напиши, что конкретно не так, мне ж интересно.

Это сообщение отредактировал parazit37 - 21.12.2015 - 18:17

COBOL забыли!

а потом дала ?
(код и правда ужасен :) еще и GoTo не хватает )

на ассемблере давай

Writeln и Readln команды вроде не соответствуют, хотя может и не прав. Паскаль в школе учил это было 20 лет назад..... А так да! Basic наше все if go to else.

Это сообщение отредактировал edelveisau - 21.12.2015 - 18:23

Оформление странноватое конечно, но алгоритм верный.

Program Sum;
Uses crt, math; {задаем модули}

Var
f, x, y, z: Real; {описываем переменные}

Begin
ClrScr;

Repeat
Write('Введите x: ');ReadLn(x);
Write('Введите y: ');ReadLn(y); {вводим значение переменных}
Write('Введите z: ');ReadLn(z);
Until (cos(y*z)<>0) and (sin(Pi/3+y)<>0); {условие не деления на ноль}

if cos(x)<tan(y*z) then f:=exp(sqr(sin(x*y))+z) else f:=cotan(Pi/3+y);
{собственно само вычисление}
WriteLn;
WriteLn('f=',f);
ReadLn;
End.

ТС, я знаю Pascal, но вот не пойму где это условие в задаче поставлено:
until (cos(y*z)<>0) and (sin(Pi/3+y)<>0); ??
а, вверху уже сказали про проверку division by zero

Это сообщение отредактировал maddread - 21.12.2015 - 18:24

Если честно, то первый раз вижу, как углы умножают друг на друга. В этом физический смысл есть вообще?
Или Z - не угол?

Минусы - это хорошо. Мне на них пофигу. А объяснить по существу кто-нибудь сможет?

Это сообщение отредактировал Spremuta - 21.12.2015 - 18:29

вроде прям говнокода не видно

Это учебная задача? Тогда где комменты?

А в чем причина использования repeat .. Until в первом примере? И откуда условие выхода?
Во втором примере есть шанс деления на ноль, проверяй переменные
Паскаль не поддерживает UTF 8, поэтому все принты на английском
А как в оригинале стилистика: уступы, расстояния между функциональными блоками?

Это сообщение отредактировал Bobby2002 - 21.12.2015 - 18:26

Ужас. Вводим кол-во сопротивлений равным 0 и получаем деление на 0.

Доебаться по коду можно много до чего, если по мелочам; по делу особо не прикопаешься. По-хорошему, если код компилируется и не валится ни на каких значениях на все остальное можно класть.
Так-то нормальный код без изысков.

Сразу не заметил - есть такой косяк:

Это сообщение отредактировал Garynych - 21.12.2015 - 18:27

Это область определения тангенса и котангенса