Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: 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 из 1
  • 1
Поиск: