Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » проверить достоверность файлов
проверить достоверность файлов
ребята помогите пожалуста,немогу написать програмку:(

Организовать в диалоговом режиме ввод входящих данных,проверку их достоверности и изменения для параметров:

а) диаметр барабана, мм 500<=d<=2000,кратных 10
б) Ширена барабана, мм от 100 до 300
в) количество барабанов 1, 2 или 3

Вот что я тока смог написать, а дальше незнаю как,помогите кто может:

PROGRAM PR40;
USES CRT;
const x1=500;
const x2=2000;
LABEL 2;
VAR X:REAL; C:CHAR;
BEGIN CLRSCR;
2: TEXTCOLOR(14);
WRITE(' vvedite diametr barabana X => '); READLN(X);
IF (X>=X1) AND (X<=X2) THEN
WRITELN(' parametr X=',X:6:2,' vvdeniy pravilno')
ELSE BEGIN
WRITELN('znachenie X=',X:6:2,' ne vhodit v diapazon ot', X1,' do ',X2);
TEXTCOLOR(4);
WRITELN(' povtorite vvod '); GOTO 2 END;
C:=READKEY
END.

1 | Автор: Лайо | 2009-12-28, 08:56   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » проверить достоверность файлов
Страница 1 из 11
Поиск: