|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.05.2017, 13:53 | #1 |
Пользователь
Регистрация: 24.02.2017
Сообщений: 20
|
Условие в паскале
Программа работает не по заданию(( помогите разобраться!
uses crt; var a, b, c, d, e:integer; begin writeln('Распознование удобрений'); writeln('1-да,0-нет'); writeln('При взаимодействии с H2SO4 выделяется бурый газ?'); readln(a); if a=1 then writeln('При взаимодействии с щёлочью есть запах аммиака?'); readln(b); if b=1 then writeln('Аммиачная селитра') else if b=0 then writeln('Натриевая селитра'); if a=0 then writeln('При взаимодействии с BaCl2 есть белый осадок?'); readln(c); if c=1 then writeln('При взаимодействии с щёлочью есть запах аммиака?'); readln(d); if d=1 then writeln('Сульфат аммония') else if d=0 then writeln('Суперфосфат'); if c=0 then writeln('Есть розовые кристаллы?'); readln(e); if e=1 then writeln('Cильвинит') else if e=0 then writeln('Калийная соль'); end. |
04.05.2017, 08:38 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,310
|
1. Надо сформулировать все четыре вопроса. Пример:
а) Внешний вид: 1. - Белая кристаллическая масса или гранулы 2. - Крупные бесцветные кристаллы 3. - Мелкие светло-серые кристаллы 4. ... 5. ... 6. ... При получении ответа на 5-ый или 6-ой вопрос выдать сообщение и завершить работу, например. Если ответы от 1 до 4 то выводим следующие вопросы. б) При взаимодействии раствора с серной кислотой выделяется бурый газ: 1. Да 2. Нет в) При взаимодействии раствора с BaCl2: 1. Небольшое помутнение раствора 2. Выпадает белый осадок 3. Другое г) ... Теперь можно анализировать ответы и выводить результат. Как вариант, из полученных цифр сформировать число: (а*10 + б)*10 + г Это число может быть ключом к оператору Case ... PS: Если еще актуально ??
Как-то так, ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Условие в PHP - Не работает условие: не выводит сообщение. | Ave_Ave_Ave | PHP | 13 | 17.06.2016 12:20 |
Условие | Predator199 | PHP | 9 | 02.09.2012 15:21 |
привет всем! помогите пожалуйста решить две задачи на паскале. я в паскале полный ноль. | Пищенок Саша | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 20.01.2009 13:46 |
Условие(If then) | Andreyka | Общие вопросы Delphi | 3 | 12.01.2009 15:30 |