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

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

28.07.2015, 14:57. Просмотров 1151. Ответов 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)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.07.2015, 14:57
Ответы с готовыми решениями:

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

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

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

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

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

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

Задание
0
Constantin Cat
5763 / 1254 / 402
Регистрация: 28.02.2015
Сообщений: 2,727
Завершенные тесты: 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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2017, 21:50

Правильно ли написана программа?
#include <tchar.h> #include <stdio.h> #include <iostream> int _tmain(int argc, _TCHAR* argv)...

Правильно ли написана программа?
//--------------------------------------------------------------------------- #include <vcl.h>...

Правильно ли написана программа
Просуммировать операнды, находящиеся в ячейках ОЗУ с адресами FDC1 и FDC2, и результат записать в...


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

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

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