Кто помнит Pascal?

отступы? не, не слышал

danet, все норм

Модуль math не является стандартным для паскаля. Скорее всего за это и ругали. Во всяком случая меня за использование левых модулей тоже называли дураком в универе.

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

могу на фарси, нана?))

А чем тебе не угодило служебное слово until?))
Черты характера еще примешивать, по коду что нет так?

Добавлено в 04:11

Чем ужасно короткая программа целиком и полностью дающая результат?))

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

А на кой ляд цикл при вводе данных?

вспоминая курс программирования 4х летней давности могу заметить что чисто алгоритма решения верно - а вот оформление уж больно что-то.... кратко как нас учили - "нужно проще в плане размеров" :)

зачЁт, фсе правильно!!!

в паскале функцию степенную нужно логарифмировать и условие решения уравнения должно быть не else а and*, так вроде система уравнений решается
exp(sqr(sin(x*y))+z)=cotan(Pi/3+y) при cosx=tgyz

В алгоритм не вникал, но синтаксис верный.
Есть только 2 замечания:
1) При выводе значения лучше формат указать - например WriteLn('f=',f:2:2);, а то будет дофига знаков после запятой.

2) Если преподу сдали точно в таком же виде, то ему по-любому не понравилось отсутствие табуляции в циклах и ветвлениях, чтобы читалось лучше.
В первой задачи еще ладно, строк не много, а во второй парит смотреть какой end к какому begin относится.

Это сообщение отредактировал VHomer - 22.12.2015 - 07:24

На первый взгляд первой программы - вот это вот сильное колдунство:
repeat
write('Введите x: ');readln(x);
write('Введите y: ');readln(y);
write('Введите z: ');readln(z);
until (cos(y*z)<>0) and (sin(Pi/3+y)<>0);
А так, тут и профессионально когда кодер смотрит на чужой код обычно всегда слюни и сопли во все стороны летят по поводу кривизны рук. Не говоря уж о диалоге препода который шарит в рамках методички и студента который вообще нихера не шарит. Так что забей: задача была не синусы красиво рассчитать, а получить зачет - в чем твои чудо-программы и помогли.

нету функции тангенса в паскале, а за какую-то библиотеку math тоже бы выматерился.

function Tan(x: real): real;
begin
Tan:= Sin(X)/Cos(X)
end; ну и котангенс соотвественно наоборот cos/sin

Это сообщение отредактировал yaklakal - 22.12.2015 - 07:48

Нормальный код ТС. Молодца )

Процедура КнопкаВыполнитьНажатие(Кнопка)
Если cos(игрек*зед) <> 0 и sin(игрек + Пи/3) <> 0 Тогда
Ф = ?(cos(икс)<tan(игрек*зед), exp(pow(sin(икс*игрек),2)+z), 1/tan(Пи/3+игрек));
Сообщить(Ф);
КонецЕсли;
КонецПроцедуры

ТС! Ты ЯП с хабром попутал!

Училка доебалась скорей всего до отступов, а так код норм, но until меня удивил))

Я в этом ни хрена не понимаю, но на всякий случай позеленил)

А теперь в тему входит ГУМАНИТАРИЙ :)
И да, автор, я немного понимаю препода... но грубых выражений использовать не буду, разумеется. И в самом деле вы явно подзабыли язык.

Так вот:
1. Отсутствует проверка того, что введенные пользователем данные действительно являются числами типа real. В случае ошибки - краш и начинай все заново.
2. У нас (да-да, на Факультете философии человека) сразу пару лепили за отсутствие форматирования кода и комментариев. Нельзя издеваться над глазами преподов. Да и сам уже через час свой код хрен прочтешь... Пусть он даже и короткий.
3. Как уже упоминали, помимо ляпов в условиях, действительно скорее всего ставилась задача решения через написание функции... но тут уже не твой косяк, а девочки, которая, видимо, не до конца поняла задание.
4. Оформление ввода-вывода так же оставляет желать лучшего. Разрешите побыть занудой. Все это стоило бы оформить кнопками ввода чисел. Менюшкой вида:
а) Ввести число 1 (сейчас значение числа: ....)
б) Ввести число 2 (сейчас значение числа: ....)
...
ю) Вычислить
я) Выход из программы.
Возможность нормального выхода - обязательна.

Задача примитивна на вид именно потому, что на зачете важно не решение математической задачи, а грамотное написание программы, демонстрирующее понимание пройденного материала по программированию.

Эххх... сколько в свое время подобного написал :) Подрабатывал на написании курсовых на трубо-поскакале :)

Без комментариев... К чему этот комментарий, или ты первый раз в своей жизни цикл с постусловием увидел? Я боюсь спросить - на каком языке ты пишешь, если в нем такой элементарной вещи нет?
Ну, а по первой задачке тут особо и не развернешься: if верхнее условие - верхняя функция else - нижнее условие (как у ТСа). Даже проверку сделал, чтобы делитеть не был равен нулю, что ей (преподавателю) не понравилось?
Про сопротивление что-то ТС выпендрился слишком, я бы что-нибудь попроще предложил:
var
vInput,vResist, vResult: real;
begin
vResult := 0;
vResist := 0;
repeat
writeln('Введите сопротивление или 0 для расчета:');
readln(vInput);
if vInput <> 0 then
vResist := vResist + 1/vInput;
until(vInput <> 0);
if vResist <> 0 then
vResult := 1/vResist;
writeln('Полное сопротивление равно: ', vResult,' Ом');
end.

Это сообщение отредактировал VSC - 22.12.2015 - 08:52

А я блджадь уже pascal забыл нахуй (еще в школе учили). А в универе мы начинали c visual basic. Хоть и учился на программера, а работаю технарем. Но если учебник взять, то быстро вспомню. Только нахер теперь этот паскаль, так только, чтобы в общих чертах осмыслить.

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

Насчет отступов...
Я в свое время писал в институте лабораторки и курсачи "на заказ".
Опыт некоторый кодирования был тогда, и писал уже с отступами, форматированием, нормальным названием переменных.

Один раз клиентка вернулась от предпода с претензией, что он ей сходу сказал "Это, девушка, не Вы писали. Так пишут люди с опытом".

Всё форматирование в BackSpace, переменные с именами ААА и МММ. Прокатило.

От Basic и Cobol судьба уберегла, а вот Algol, Fortran IV/77, PL/1, Pascal, C/C++ были.

Это сообщение отредактировал Unisys - 22.12.2015 - 09:07

Т.е., по-русски говоря "я учил и то, и се - а не знаю нихера, потому что мне оно не нужно?" :) Я могу код написать на любом языке, что когда-либо учил, ибо меняются, по сути, только операторы, а базовые понятия одинаковые остаются. А Паскаль - вообще отличный язык, лучше него только СиШарп. Я бы даже сказал, что СиШарп - улучшенная помесь Паскаля и Явы :)

Это сообщение отредактировал VSC - 22.12.2015 - 09:05

в школе был турбопаскаль, в универе фортран, ничего уже не помню, позеленил

По теме зеленка и за программирование в особенности. Паскаль в универе терпеть не мог больше всего меня бесило объявление переменных в начале программы, а от конструкции begin...end просто выворачивало, поэтому все кодили на Паскале, а я на С++, а когда узнал что любимейшие игры того времени DOOM, DOOM2, Quake были написаны на С++ Паскаль для меня умер навсегда. Жалею, что в жизни не представилось возможности и дальше кодит на С++ да и честно не хватило мозгов уж больно свободный язык на нем даже можно узанть "Какой длины должна быть веревка чтобы выстрелить себе в ногу"©

Надо было на perl писать. Тогда бы никто код читать не стал.