Нужна помощь в Borland Pascal 7.0

[* offline]

Ребята помогите...не понимаю Borland Pascal 7.0
Нужно вставить условие "if x>200 then begin writeln ('Неправильно задан возраст')"
Вобщем если возраст больше 200лет то все прога заканачиваеться а то япробовал вставить она сначала пишет тип "неправ...возраст" и потом возраст. Пример:
220
неправильно...возраст
220 лет
В эту прогу:
Program lab2;
uses wincrt;
var
f,x:integer;
begin
writeln('Введите возраст от 1 года до 200 лет');
readln(x);
f:=x mod 10;
case f of
2,3,4: writeln (x,'года');
else begin
if (f=1) and ( x mod 100 <>11) then writeln (x,'год')
else writeln (x,'лет'); end;
end;
readln;
end.
САМ ТЕКСТ ПРОГИ:
Написать программу пример с ограничением ввода от 1 года до 200 лет.
Программа должна выводить на экран в соответствии с правилами русского языка.

[KykQx offline]

if x>200 then begin writeln ('Неправильно задан возраст'); halt; end;
может так?

[inferno offline]

Ну дык проверяешь правильные ли условия:
Если да - выполняется программа,
Иначе - "неправильный возраст".
Типа

Код: Выделить всё

 if x<200 then
 <программа>
else WriteLn('Непр. возраст')

[rogat1y]

Ну дык проверяешь правильные ли условия:
Если да - выполняется программа,
Иначе - "неправильный возраст".
Типа

Код: Выделить всё

 if x<200 then
 <программа>
else WriteLn('Непр. возраст')

лучше вот так

Код: Выделить всё

 if x>0 and x<201 then
 <программа>
else WriteLn('Непр. возраст')

[inferno offline]

rogat1y, точно. Я забыл про второе ограничение.

[* offline]

О!!!
Сенкс вери мач! gud gud

[Санек offline]

Код.

If x>200 then begin writeln('Вы неправильно указали возраст!'); halt(0); end;

или (тогда надо делать закладку и прога попросит ввести возраст еще раз):
Label na4alo;
..............................................
na4alo;
Readln(x);
If x>200 then begin writeln('Вы неправильно ввели возраст! Введите заново: '); goto na4alo; end;
...............................................

[KykQx offline]

Санек, в настоящее время использование goto считается плохим стилем программирования, т.к. это сильно ухудшает и усложняет читаемость текста программы...

[Санек offline]

KykQx, неспорю, а соглашаюсь. И время требует. Но это вариант.

[* offline]

Еще ваша помощь нужна...
НАдо вот к етой проге блок-схему составить,там массивы используются.
Program lab4;
uses wincrt;
Type mesjac=array [1..12] of real;
var
plan:real;
vip:mesjac;
i:integer;
begin
writeln('Введите план продукции');
readln(plan);
For i:=1 to 12 do
begin
writeln('Введите объем выпуск. продукции за ',i,'месяц:'{пробовал vip[i]:6:2 неполучилось.});
readln(vip[i]);
if vip[i]end;
end.
и еще как сделать чтобы при выводе там допустим "не выполнение плана" появляеться 1.0000Е+00, как сделать чтобы было 1 и т.д.,
САМО ЗАДАНИЕ:
Известен месячный план выпуска некоторой продукции и объема выпущенной этой продукции заводом за год (помесячно). Определить, когда завод не выполнил план. Результат получить в виде: номера месяца и объема выпущенной продукции.

[inferno offline]

и еще как сделать чтобы при выводе там допустим "не выполнение плана" появляеться 1.0000Е+00, как сделать чтобы было 1 и т.д.,

WriteLn(peremennaya:3:3); {3 знака после запятой}

begin writeln('План не выполнен за ',i,' месяц(объем',vip[i],')');end;

begin и end не обязательны.

[Санек offline]

*,так выводятся числа типа real. Чтобы боказывалось просто "1", напиши так: writeln(переменная:0:0); Где после двоеточия указывается количество символов после запятой и еще что-то ( я всегда пишу :0:0 или :0:1).
Операторные скобки "Begin...end;" в цикле необходимо указывать только тогда, когда необходимо выполнение нескольких операторов. К примеру,
[b]
for i=1 to 1000 do
begin
оператор 1;
оператор 2;
................
оператор n;
end;

[* offline]

Program lab4;
uses wincrt;
var
plan: real;
vip: array[1..3,1..6] of string;
i,j,s1:integer;
begin
writeln('Введите план продукции');
readln(plan);
for j:=1 to 3 do
for i:=1 to 6 do begin
write ('Введите кол-во выпущенных компьютеров',j,'-ой фирмой за',i,'месяц:');
readln(vip[j,i]); end;
for i:=1 to 3 do begin
s1:=0;
for j:=1 to 6 do
if vip[i,j]>plan then s1:=s1+1;
if s1>0 then writeln ('План превыполнен за',s1,'месяцев фирмой',i:2'); end;


Надо доделать..немогу...
И еще БЛОК-СХЕМУ надо!!!!! помогите сделать!!!
САМО ЗАДАНИЕ:
Известен план выпуска компьютеров и кол-во выпущенных компов. тремя фирмами за шесть месяцев. Определить для каждой фирмы кол-во месяцев, когда план был перевыполне.

[KykQx offline]

что такое "Блок-Схема"?

[* offline]

KykQx,
прямоугольники ромбы параллелограмы и кружочки..
это такая хрень, типа прога в схеме от начала до конца..
Пример..
Начало в кружочке..потом идет стрелка вниз прмямоугольник...ит.п.