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

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

28.07.2015, 14:57. Просмотров 1094. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

6
Constantin Cat
2377 / 1073 / 368
Регистрация: 28.02.2015
Сообщений: 2,378
Завершенные тесты: 1
28.07.2015, 15:25 2
Ошибок нет. А можно само задание?
0
Влад_мир
0 / 0 / 0
Регистрация: 15.04.2015
Сообщений: 11
29.07.2015, 02:14  [ТС] 3
Программа для трёх маршрутов. Правильно ли написана программа?

Задание
0
Constantin Cat
2377 / 1073 / 368
Регистрация: 28.02.2015
Сообщений: 2,378
Завершенные тесты: 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

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

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

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


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

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

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