Моддинг форум

Пропустить

Modding.ru
  •  
  • Регистрация
  • Вход
Anonymous
  • Вход
  • Список форумов ‹ Off top ‹ Софт и игры

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

Обсуждаем программы, операционные системы и игры.
Ответить
Сообщений: 15 • Страница 1 из 1

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

Сообщение * » 16 ноя 2004 12:31

Ребята помогите...не понимаю 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 лет.
Программа должна выводить на экран в соответствии с правилами русского языка.
УФА -ФОРЕВА!!!
* offline
Mega Modder
Сообщения: 610
Зарегистрирован: 26 мар 2004 16:12
Откуда: из мамы
Вернуться к началу

Сообщение KykQx » 16 ноя 2004 13:53

if x>200 then begin writeln ('Неправильно задан возраст'); halt; end;
может так?
Самое несчастное животное - осьминог.
У него и ноги от ушей, и руки из жопы, и сама жопа - с ушами.
KykQx offline
God
Аватара пользователя
Сообщения: 1551
Зарегистрирован: 18 янв 2004 20:40
Откуда: Уфа, ептыть))
  • ICQ
Вернуться к началу

Сообщение inferno » 16 ноя 2004 17:11

Ну дык проверяешь правильные ли условия:
Если да - выполняется программа,
Иначе - "неправильный возраст".
Типа
Код: Выделить всё
 if x<200 then
 <программа>
else WriteLn('Непр. возраст')
Изображение
inferno offline
Mega Modder
Аватара пользователя
Сообщения: 700
Зарегистрирован: 27 май 2004 18:16
Откуда: Минск
  • ICQ
Вернуться к началу

Сообщение rogat1y » 16 ноя 2004 18:17

inferno писал(а):Ну дык проверяешь правильные ли условия:
Если да - выполняется программа,
Иначе - "неправильный возраст".
Типа
Код: Выделить всё
 if x<200 then
 <программа>
else WriteLn('Непр. возраст')

лучше вот так

Код: Выделить всё
 if x>0 and x<201 then
 <программа>
else WriteLn('Непр. возраст')
rogat1y offline
Администратор
Аватара пользователя
Сообщения: 1187
Зарегистрирован: 25 авг 2003 21:49
Откуда: Москва
Вернуться к началу

Сообщение inferno » 16 ноя 2004 18:43

rogat1y, точно. Я забыл про второе ограничение.
Изображение
inferno offline
Mega Modder
Аватара пользователя
Сообщения: 700
Зарегистрирован: 27 май 2004 18:16
Откуда: Минск
  • ICQ
Вернуться к началу

Сообщение * » 16 ноя 2004 21:26

О!!!
Сенкс вери мач! gud gud
УФА -ФОРЕВА!!!
* offline
Mega Modder
Сообщения: 610
Зарегистрирован: 26 мар 2004 16:12
Откуда: из мамы
Вернуться к началу

Сообщение Санек » 17 ноя 2004 15:54

Код.

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

или (тогда надо делать закладку и прога попросит ввести возраст еще раз):
Label na4alo;
..............................................
na4alo;
Readln(x);
If x>200 then begin writeln('Вы неправильно ввели возраст! Введите заново: '); goto na4alo; end;
...............................................
Изображение
Если вы не видете картинку, то значит у меня опять проблемы с хостингом!
Санек offline
God
Аватара пользователя
Сообщения: 1183
Зарегистрирован: 03 июн 2003 19:51
Откуда: Уфа
  • ICQ
Вернуться к началу

Сообщение KykQx » 17 ноя 2004 18:12

Санек, в настоящее время использование goto считается плохим стилем программирования, т.к. это сильно ухудшает и усложняет читаемость текста программы...
Самое несчастное животное - осьминог.
У него и ноги от ушей, и руки из жопы, и сама жопа - с ушами.
KykQx offline
God
Аватара пользователя
Сообщения: 1551
Зарегистрирован: 18 янв 2004 20:40
Откуда: Уфа, ептыть))
  • ICQ
Вернуться к началу

Сообщение Санек » 18 ноя 2004 12:13

KykQx, неспорю, а соглашаюсь. И время требует. Но это вариант.
Изображение
Если вы не видете картинку, то значит у меня опять проблемы с хостингом!
Санек offline
God
Аватара пользователя
Сообщения: 1183
Зарегистрирован: 03 июн 2003 19:51
Откуда: Уфа
  • ICQ
Вернуться к началу

Сообщение * » 19 ноя 2004 21:45

Еще ваша помощь нужна...
НАдо вот к етой проге блок-схему составить,там массивы используются.
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 и т.д.,
САМО ЗАДАНИЕ:
Известен месячный план выпуска некоторой продукции и объема выпущенной этой продукции заводом за год (помесячно). Определить, когда завод не выполнил план. Результат получить в виде: номера месяца и объема выпущенной продукции.
УФА -ФОРЕВА!!!
* offline
Mega Modder
Сообщения: 610
Зарегистрирован: 26 мар 2004 16:12
Откуда: из мамы
Вернуться к началу

Сообщение inferno » 20 ноя 2004 00:37

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

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

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

begin и end не обязательны.
Изображение
inferno offline
Mega Modder
Аватара пользователя
Сообщения: 700
Зарегистрирован: 27 май 2004 18:16
Откуда: Минск
  • ICQ
Вернуться к началу

Сообщение Санек » 20 ноя 2004 20:24

*,так выводятся числа типа real. Чтобы боказывалось просто "1", напиши так: writeln(переменная:0:0); Где после двоеточия указывается количество символов после запятой и еще что-то ( я всегда пишу :0:0 или :0:1).
Операторные скобки "Begin...end;" в цикле необходимо указывать только тогда, когда необходимо выполнение нескольких операторов. К примеру,
[b]
for i=1 to 1000 do
begin
оператор 1;
оператор 2;
................
оператор n;
end;
Изображение
Если вы не видете картинку, то значит у меня опять проблемы с хостингом!
Санек offline
God
Аватара пользователя
Сообщения: 1183
Зарегистрирован: 03 июн 2003 19:51
Откуда: Уфа
  • ICQ
Вернуться к началу

Сообщение * » 25 ноя 2004 14:55

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;


Надо доделать..немогу...
И еще БЛОК-СХЕМУ надо!!!!! помогите сделать!!!
САМО ЗАДАНИЕ:
Известен план выпуска компьютеров и кол-во выпущенных компов. тремя фирмами за шесть месяцев. Определить для каждой фирмы кол-во месяцев, когда план был перевыполне.
УФА -ФОРЕВА!!!
* offline
Mega Modder
Сообщения: 610
Зарегистрирован: 26 мар 2004 16:12
Откуда: из мамы
Вернуться к началу

Сообщение KykQx » 25 ноя 2004 16:57

что такое "Блок-Схема"?
Самое несчастное животное - осьминог.
У него и ноги от ушей, и руки из жопы, и сама жопа - с ушами.
KykQx offline
God
Аватара пользователя
Сообщения: 1551
Зарегистрирован: 18 янв 2004 20:40
Откуда: Уфа, ептыть))
  • ICQ
Вернуться к началу

Сообщение * » 25 ноя 2004 18:36

KykQx,
прямоугольники ромбы параллелограмы и кружочки..
это такая хрень, типа прога в схеме от начала до конца..
Пример..
Начало в кружочке..потом идет стрелка вниз прмямоугольник...ит.п.
УФА -ФОРЕВА!!!
* offline
Mega Modder
Сообщения: 610
Зарегистрирован: 26 мар 2004 16:12
Откуда: из мамы
Вернуться к началу

Ответить
Сообщений: 15 • Страница 1 из 1
Вернуться в Софт и игры

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

  • Сообщения без ответов
  • Активные темы

Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB
Time : 0.022s | 10 Queries | GZIP : Off
  • Наша команда
  • Удалить cookies конференции
  • Часовой пояс: UTC + 3 часа
  • Изучение языков онлайн