|
Ребят, проверьте код
| |
| Drew92 | Дата: Четверг, 2009-10-15, 11:20 PM | Сообщение # 1 |
|
Бакалавр
Группа: Проверенные
Сообщений: 165
Репутация: 30
Замечания: 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)
│
│
Мы сделали тогда все, что могли. май-июнь 2009 наша легенда.
|
| |
| |
| kykc | Дата: Четверг, 2009-10-15, 11:29 PM | Сообщение # 2 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| пздец. слабо по нормальному написать,?, ни куя не панимаю нафиг эту лажу написал ты? так учат у вас чтоле?
|
| |
| |
| Drew92 | Дата: Пятница, 2009-10-16, 0:04 AM | Сообщение # 3 |
|
Бакалавр
Группа: Проверенные
Сообщений: 165
Репутация: 30
Замечания: 0%
Статус: Offline
Город: МСК
| все исправил, правда бредятина, но работает как надо)
два энда вставил)Добавлено (2009-10-16, 0:04 Am)
---------------------------------------------
kykc, да я смарю ты хакер)
прост с FPC криво код копируется) на перспективу тебе)
Мы сделали тогда все, что могли. май-июнь 2009 наша легенда.
|
| |
| |
| kykc | Дата: Пятница, 2009-10-16, 8:56 AM | Сообщение # 4 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| Quote (Drew92) прост с FPC криво код копируется
дык йа не об этом, ПАЧЕМУ НЕЛЬЗЯ ПИСАТЬ ВСЕ ПОД АДНИМ БЕГИНОМ , И ЧЕТ ТЫ РАЗМАХНУЛСЯ НА 4 врайта и рида, когда можно все под адин запихнуть и вводить данные через запитую и тд
|
| |
| |
| Drew92 | Дата: Понедельник, 2009-10-19, 5:22 PM | Сообщение # 5 |
|
Бакалавр
Группа: Проверенные
Сообщений: 165
Репутация: 30
Замечания: 0%
Статус: Offline
Город: МСК
| kykc, у нас преподша любит когда много кода)))) Под одним бегином хз...я вообще самоучкой все делаю, учат нас по методичке,зачитывая(
Мы сделали тогда все, что могли. май-июнь 2009 наша легенда.
|
| |
| |
| kykc | Дата: Понедельник, 2009-10-19, 6:17 PM | Сообщение # 6 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| Drew92, йа тож самоучка, с басика переучиваюсь)))
|
| |
| |
|
|
|
RSS: