|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.03.2010, 11:11 | #1 |
Пользователь
Регистрация: 18.02.2010
Сообщений: 96
|
выдаёт error 113
не могу понять почему выдаёт ошибку вроде всё правильно!!!
program asfalt; const rasch=500; {raschistca} osnov=200; {osnovanie} bit_imu=20; {bitumnay imulsia} asfa=140; {asfalt} rab=1000; {oplata rabochih} prib=350; {pribl} var s,dlina, shirina, stoim : real; n : char; tip : integer; BEGIN repeat begin writeln('Введите длину'); readln(dlina); writeln('Введите ширину'); readln(shirina); s:= dlina * shirina; writeln('Площадь равна ',s:5:0); writeln('Какой вид покрытия?'); writeln('1:поверх асфальта'); writeln('2:поверх грунта'); writeln('3:покрытие целофаном на грунт'); readln(tip); case tip of 1: begin stoim:=s*(rasch+osnov+bit_imu+asfa+ rab+prib); writeln('Стоимость покрытия ',s:5:0,'м2 : ',stoim:5:0,'р'); writeln; writeln('Хотите ещё расчитать стоимость? y/n'); readln(n); end; 2: begin stoim:=s*(rasch+bit_imu+asfa+rab+pr ib); writeln('Стоимость покрытия ',s:5:0,'м2 : ',stoim:5:0,'р'); writeln; writeln('Хотите ещё расчитать стоимость? y/n'); readln(n); end; 3: begin stoim:=s*(rasch+osnov+bit_imu+asfa+ rab+prib); writeln('Стоимость покрытия ',s:5:0,'м2 : ',stoim:5:0,'р'); writeln; writeln('Хотите ещё расчитать стоимость? y/n'); readln(n); end; end; until n='n'; END. Последний раз редактировалось sergio11; 21.03.2010 в 11:37. |
21.03.2010, 11:15 | #2 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
Код:
|
21.03.2010, 11:29 | #3 |
Пользователь
Регистрация: 18.02.2010
Сообщений: 96
|
|
21.03.2010, 11:39 | #4 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
у меня все работает)))
Код:
|
21.03.2010, 11:48 | #5 |
Пользователь
Регистрация: 18.02.2010
Сообщений: 96
|
Большое спасибо, а то уже с утра туплю
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ищу причину ошибки: Error in loading DLL, она же Error 48. | hozpraktik | Microsoft Office Excel | 1 | 19.11.2009 12:39 |
Как решить проблему с Error in loading DLL (Error 48)? | Klim Bassenger | Microsoft Office Excel | 4 | 23.10.2009 13:44 |
LIBCD.lib(crt0.obj) : error LNK2001: unresolved external symbol _main Debug/main.exe : fatal error LNK11 | prefak | Win Api | 0 | 19.04.2009 16:51 |
Выдаёт ошибку: acos DOMAIN error,полсе нажатия окей,ещё одну ошибку pow OWERFLAW ERROR | prikolist | Общие вопросы C/C++ | 4 | 10.04.2009 20:27 |