Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Влад_мир
0 / 0 / 0
Регистрация: 15.04.2015
Сообщений: 11
#1

Программа для трёх маршрутов. Правильно ли написана программа? - PascalABC.NET

28.07.2015, 14:57. Просмотров 577. Ответов 6
Метки нет (Все метки)

Всем здрасьте! Программа для трёх маршрутов. Кому не сложно подскажите правильно ли я написал?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, b, c, d, e, f, g : boolean;
  s : string;
Begin
  Write('Улица A:'); Readln (s); a :=s='1';
  Write('Улица B:'); Readln (s); b :=s='1';
  Write('Улица C:'); Readln (s); c :=s='1';
  Write('Улица D:'); Readln (s); d :=s='1';
  Write('Улица E:'); Readln (s); e :=s='1';
  Write('Шлагбаум F:'); Readln (s); f :=s='1';
  Write('Шлагбаум G:'); Readln (s); g :=s='1';
  
 if (a and b and f) or (c and d) or (e and g) then 
 s := 'Езжай'
 else s :='Пешком';
  Writeln (s); Readln;
End.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.07.2015, 14:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа для трёх маршрутов. Правильно ли написана программа? (PascalABC.NET):

правильно написана программа?
Дано cosα. Найти значения остальных тригонометрических функций. Program M1;...

Программа уже написана, а понять не могу(
Дан двумерный массив n*m, заполненный случайными числами. Определить, есть ли в...

Найти медианы треугольника (верно ли написана программа?)
Даны длины a, b и c сторон некоторого треугольника. Найти медианы треугольника,...

На каком языке программирования написана эта программа?
Подскажите пожалуйста на каком языке программирования написана эта программа? ...

Динамические структуры, списки. Программа написана, но есть один недочет
Составить программу, которая переворачивает список L, т.е. изменяет ссылки в...

Программа Дерево решений. Уже написана на Delphi. А мне надо на PascalABC. Что делать с модулями?
program DoP_777; {$APPTYPE CONSOLE} {$R *.res} uses ...

6
Constantin Cat
1628 / 940 / 356
Регистрация: 28.02.2015
Сообщений: 2,185
Завершенные тесты: 1
28.07.2015, 15:25 #2
Ошибок нет. А можно само задание?
0
Влад_мир
0 / 0 / 0
Регистрация: 15.04.2015
Сообщений: 11
29.07.2015, 02:14  [ТС] #3
Программа для трёх маршрутов. Правильно ли написана программа?
Задание
0
Constantin Cat
1628 / 940 / 356
Регистрация: 28.02.2015
Сообщений: 2,185
Завершенные тесты: 1
29.07.2015, 07:44 #4
Правильно.
1
Александр710
0 / 0 / 1
Регистрация: 22.05.2015
Сообщений: 8
15.08.2015, 19:57 #5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Я делал вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a, b, c, d, f, e, g:boolean;
  s:string;
begin
 writeln('Шлагбаум открыт');
 readln(s);
a:=s='1';
b:=s='1';
c:=s='1';
d:=s='1';
f:=s='1';
e:=s='1';
g:=s='1';
 if ((not f) and (a and b)) or (c and d) or ((not g) and e)
  then S:='Поезжай на машине!' 
  else S:='Топай пешком!'; 
  writeln(s);
end.
0
Nekromail2011
15.08.2015, 20:00
  #6

Не по теме:

пламенный привет из августа месяца июлю

0
HaydoSpeed
5 / 6 / 2
Регистрация: 10.02.2017
Сообщений: 164
Записей в блоге: 1
13.05.2017, 21:50 #7
правильно, ведь как логическое умножение and,
а or (или) сложение
Pascal
1
 if A and B and not F or C and D or E and not G
0
13.05.2017, 21:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2017, 21:50
Привет! Вот еще темы с решениями:

Каким образом можно добавить цифры,введенные пользователем в множество? (Программа почти написана, нужен совет)
Здравствуйте, форумчане! Я не прошу написать программу за меня,у меня она...

Программа не правильно работает
В группе определить средний балл после зимней сессии и абсолютную успеваемость....

Массив. Правильно ли работает программа?
Здравствуйте! Написал программу (массив), но не пойму правильно работает или...

Списки. Программа работает не правильно
Задача такова: Даны натуральные n, m. Предпологается, что n человек встают в...


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

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

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