Ребят, проверьте код

Drew92

Дата: Четверг, 2009-10-15, 11:20 PM | Сообщение # 1

Бакалавр

Группа: Проверенные

Сообщений: 165

Репутация: 30

Награды: 12

Замечания: 0%

Статус: Offline

Город: МСК

program lab4; │
│ uses crt; │
│ │
│var │
│ p,x,b,a,y,z: real; │
│ │
│Function funkc_pz (p,a,x,y: real): real; │
│Begin │
│ y:=p*p-3*a*cos(x)+4*a*cos(x)*cos(x)*cos(x); │
│ writeln (y); │
│End; │
│ │
│Procedure proc_pz (x,b,p,z:real); │
│ Begin │
│ if x>1 then │
│ begin │
│ if p+x=0 then writeln ( ' ошибка ') else z:=(p*x*x+b*x)/(p+x); writeln(z); │
│ end │
│ else │
│ begin │
│ if b+x=0 then │
│ writeln ( ' ошибка ') │
│ else z:=b*x+p*ln(b+x); │
│ writeln (z); │
│ end; │
│ │
│ Begin │
│ write ( ' Введите x ' ); │
│ read (x); │
│ writeln ( ' Введите b ' ); │
│ readln (b); │
│ writeln ( ' Введите p ' ); │
│ readln (p); │
│ writeln ( ' Введите a '); │
│ readln (a); │
│ funkc_pz (p,a,x,y); │
│ proc_pz (x,b,p,z); │
│readln; │
│ END. --------вот здесь орет, что мол точка с запятой есть и точка найдена (syntax error)
│
│

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Мы сделали тогда все, что могли. май-июнь 2009 наша легенда.

kykc

Дата: Четверг, 2009-10-15, 11:29 PM | Сообщение # 2

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

пздец. слабо по нормальному написать,?, ни куя не панимаю нафиг эту лажу написал ты? так учат у вас чтоле?

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Drew92

Дата: Пятница, 2009-10-16, 0:04 AM | Сообщение # 3

Бакалавр

Группа: Проверенные

Сообщений: 165

Репутация: 30

Награды: 12

Замечания: 0%

Статус: Offline

Город: МСК

все исправил, правда бредятина, но работает как надо)
два энда вставил)

Добавлено (2009-10-16, 0:04 Am)
---------------------------------------------
kykc, да я смарю ты хакер)
прост с FPC криво код копируется) на перспективу тебе)

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Мы сделали тогда все, что могли. май-июнь 2009 наша легенда.

kykc

Дата: Пятница, 2009-10-16, 8:56 AM | Сообщение # 4

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

Quote (Drew92)

прост с FPC криво код копируется

дык йа не об этом, ПАЧЕМУ НЕЛЬЗЯ ПИСАТЬ ВСЕ ПОД АДНИМ БЕГИНОМ , И ЧЕТ ТЫ РАЗМАХНУЛСЯ НА 4 врайта и рида, когда можно все под адин запихнуть и вводить данные через запитую и тд

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Drew92

Дата: Понедельник, 2009-10-19, 5:22 PM | Сообщение # 5

Бакалавр

Группа: Проверенные

Сообщений: 165

Репутация: 30

Награды: 12

Замечания: 0%

Статус: Offline

Город: МСК

kykc, у нас преподша любит когда много кода)))) Под одним бегином хз...я вообще самоучкой все делаю, учат нас по методичке,зачитывая(

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Мы сделали тогда все, что могли. май-июнь 2009 наша легенда.

kykc

Дата: Понедельник, 2009-10-19, 6:17 PM | Сообщение # 6

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

Drew92, йа тож самоучка, с басика переучиваюсь)))

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026