Беседка №6

[Огюста]

Как же классно учить Pascal.

Где-то, кроме как на всяких социологических факультетах ещё учат паскаль? О_ъ

 

[Xpycm]

Дык, преподы те же, что и 20 лет назад, программа, соответственно, та же. Меня тоже учили Паскалю сперва. 6 лет уже прошло, правда.
В принципе, для студентов норм. У нас в универе его так любили, что и на 4-м курсе лабы на нем приносили. А я на Дельфи. И меня ругали преподаватели, почему не на Паскале. Я ссылался на страх перед синим фоном, прощали)

 

[Ктулхи]

Дык, преподы те же, что и 20 лет назад, программа, соответственно, та же. Меня тоже учили Паскалю сперва. 6 лет уже прошло, правда.В принципе, для студентов норм. У нас в универе его так любили, что и на 4-м курсе лабы на нем приносили. А я на Дельфи. И меня ругали преподаватели, почему не на Паскале. Я ссылался на страх перед синим фоном, прощали)

так делфи это и есть паскаль, он(делфи) же только среда разработки, а не язык

 

[Xpycm]

так делфи это и есть паскаль, он(делфи) же только среда разработки, а не язык

Давно уже язык самостоятельный.

 

[Огюста]

Ну, не знаю, у нас в универе уже лет 9-10, как дают Си в самом-самом начале, забили на паскаль

 

[SantaHrakus]

Ну нам Си будут в следующем семестре давать Да и сегодня разобрался из-за чего же у меня бомбило вчера - собственно математически неправильно решал...

 

[Огюста]

Что за задачка то хоть?

 

[SantaHrakus]

Что за задачка то хоть?

Найти значения функции при x e [-pi;pi], dx=pi/6 и там пример, который будет неудобно писать. Итого код таков


program p2;
var R,x:real;
begin x:=-pi;
while x<pi do
begin if x<0 then R:=sin(x-pi/6)+1/2
else R:=x*x*x/25;
writeln(R:6:2);
x:=x+pi/6;
end;
end.

 

[Огюста]

Конец первого семестра, говоришь?

 

[Xpycm]

Да норм для первого семестра. Цикл с предусловием, вон. Как раз лаба шестая у нас была. Из 10.