Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 27.03.2013
Сообщений: 5
1

Давления в баке!

27.03.2013, 19:21. Показов 919. Ответов 5
Метки нет (Все метки)

Программа которая будет определять когда будет включаться предохранительный клапан в гидроаккумуляторе и исключаться.
Например при давлении 100 клапан включаеться а при 200 исключается.
И условие если больше 300 гидроаккумулятор не работает ну и конечно при отрицательного значений гидроаккумулятор не работает.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2013, 19:21
Ответы с готовыми решениями:

Определить при каком значении V сила давления F будет больше 14 Кн
При движении автомобиля весом Р по выпуклому мосту радиуса R возникает сила давления...

датчик давления ms5611 - зависимость давления от U питания
Датчик давления MS5611 работает в компании с PIC24F32КА301 и GPS модулем. МК может выводить по...

Корректор уровня топлива в баке на Attiny13
Приветствую всех! Хочется посоветоваться как правильно реализовать прибор, который будет...

Как вынуть тэн из бойлера?, Расперло в баке
Столитровый POLARIS. Тэн на резьбе. Вылез сантиметра на три и уперся. Скорее всего его разворотило...

5
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
27.03.2013, 21:36 2
наталиNA,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
s:integer;
begin
writeln('Введите давление');
read(s);
if s >= 100 then
writeln('клапан включён');
if s>=200 then
writeln('клапан выключен');
if ((s>=300) or (s<0)) then
writeln('Гидроаккамулятор не работает');
end.
1
0 / 0 / 0
Регистрация: 27.03.2013
Сообщений: 5
27.03.2013, 22:52  [ТС] 3
Она почему то не хочет работать.
0
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
27.03.2013, 23:37 4
наталиNA, сорри, поторопился, щас напишу новый вариант
1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
27.03.2013, 23:40 5
Цитата Сообщение от наталиNA Посмотреть сообщение
Она почему то не хочет работать
а как она это выражает?
если вы запускаете в турбо или фри паскале, добавьте readln; перед end.
и что происходит с клапаном при давлении от 0 до 100?
ну, пусть будет выключен:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  s: integer;
begin
  writeln('Введите давление');
  read(s);
  if s in [100..199] then
    writeln('клапан включён') else
  if ((s >= 200) and (s < 300)) or (s in [0..99]) then
    writeln('клапан выключен');
  if ((s >= 300) or (s < 0)) then
    writeln('Гидроаккамулятор не работает');
end.
1
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
27.03.2013, 23:42 6
наталиNA,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
s:integer;
begin
writeln('Ââåäèòå äàâëåíèå');
read(s);
if ((s >= 100) And (s<200)) then
writeln('êëàïàí âêëþ÷¸í');
if ((s>=200) And (s<300)) then
writeln('êëàïàí âûêëþ÷åí');
if ((s>=300) or (s<0)) then
writeln('Ãèäðîàêêàìóëÿòîð íå ðàáîòàåò');
end.
Добавлено через 1 минуту
ermolay, я перепроверил, если значение было больше 200, то выполнялось и первое и второе условие, в этом и заключалась ошибка
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2013, 23:42

Помощь в написании контрольных, курсовых и дипломных работ здесь.

CMA Indesit WISL103CSI, Кипит вода в баке
Закипает вода в баке на любой программе при любой установленной температуре кроме *. Датчик...

Посудомойка Samsung dw50k4030fs ошибка 0c, трещина в солевом баке
Всем привет. Только сегодня привезли новую посудомойку! Подключил, включил - снизу полилась вода и...

Можно ли инжекторным бензонасосом (который в баке) качать масло
можно ли инжекторным бензонасосом (который в баке) качать масло?

СМА Electrolux ew1330t, начинает работу при пустом баке
СМА Eectrolux EW1330T, prod.№ 913727721. Суть проблемы такова: машинка начинает работу при пустом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.