0 / 0 / 0
Регистрация: 21.04.2010
Сообщений: 12
1

ошибку выбивает

25.04.2010, 13:43. Показов 525. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
PROGRAM R1;                                                                   
 VAR V: real;                                                                  
 BEGIN                                                                         
 WRITE ('VVEDITE V'); READLN (V);                                             
 if V<=7.8 THEN WRITELN ('ROK YPAD')                                          
 ELSE (7.8<V) and (v<11.2) THEN WRITELN ('SPYTNIK')                           
 ELSE 11.2<=v<=16.4 then writeln('sputn soln')                                
 else v>16.4 then writeln ('pokinet syst');                                   
 readln;                                                                     
 END.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2010, 13:43
Ответы с готовыми решениями:

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два...

Программа пишет ошибку!! Помогите найти ошибку
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); ...

Выбивает ошибку!
Есть задача: Заданный текстовый файл Factin.txt в котором содержится информация о товарах в...

Не могу нечего поделать, выбивает ошибку(Нет перегруженной подпрограммы с такими типами параметров)
var f, g, q: text; c, v: char; begin assign(f, 'f1.txt'); //text.txt - исходный файл ...

2
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
25.04.2010, 13:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
PROGRAM R1; 
VAR V: real; 
BEGIN 
WRITE ('VVEDITE V'); READLN (V); 
if V<=7.8 THEN WRITELN ('ROK YPAD') 
ELSE if (v>7.8) and (v<11.2) THEN WRITELN ('SPYTNIK')
ELSE  if (v>=11.2) and (v<=16.4) then writeln('sputn soln')
else if v>16.4 then writeln ('pokinet syst');
readln; 
END.
0
0 / 0 / 0
Регистрация: 21.04.2010
Сообщений: 12
25.04.2010, 13:54  [ТС] 3
спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2010, 13:54
Помогаю со студенческими работами здесь

Не могу найти ошибку. Нажимаю на клавишу, выдает ошибку
uses ABCObjects,GraphABC; const Image_0 = '0_765e9_6a3e424a_S.png'; var...

Выбивает ошибку
Добрый день! Написала код, но при нажатии RUN выбивает ошибку &quot;Error 4: Too many open files&quot; и...

В 6 строке выбивает ошибку Runtime error 106 at 0x0040D038. Помогите разобраться в чем проблема
begin Assign( f, 'duom.txt'); reset(f); Readln(f, n,m); for i:= 1 to n do ...

СМА Indesit WITL106(EU)/Y S/N 091342680075, не блокирует УБЛ. ошибку не выбивает.Ошибку не выбивает
Проблема изначальная сма не подавала признаков жизни, произвел замену процессора с прошивкой под...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru