Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Влад_мир
0 / 0 / 0
Регистрация: 15.04.2015
Сообщений: 11
#1

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

28.07.2015, 14:57. Просмотров 499. Ответов 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):

правильно написана программа? - Pascal
Дано cosα. Найти значения остальных тригонометрических функций. Program M1; Uses crt; Var a,b,c,d:Real; Begin clrscr; ...

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

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

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

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

Создать файл, содержащий информацию о сотрудниках предприятия. Программа частично написана, коррекция - Pascal
Создать файл, содержащий информацию о сотрудниках предприятия. Каждая запись содержит: фамилию, имя, отчество, номер отдела, стаж работы....

6
Constantin Cat
1000 / 677 / 224
Регистрация: 28.02.2015
Сообщений: 1,768
Завершенные тесты: 1
28.07.2015, 15:25 #2
Ошибок нет. А можно само задание?
0
Влад_мир
0 / 0 / 0
Регистрация: 15.04.2015
Сообщений: 11
29.07.2015, 02:14  [ТС] #3
Программа для трёх маршрутов. Правильно ли написана программа?
Задание
0
Constantin Cat
1000 / 677 / 224
Регистрация: 28.02.2015
Сообщений: 1,768
Завершенные тесты: 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
6 / 6 / 2
Регистрация: 10.02.2017
Сообщений: 125
Записей в блоге: 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. Что делать с модулями? - PascalABC.NET
program DoP_777; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, Math; Type

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

Программа не правильно работает - PascalABC.NET
В группе определить средний балл после зимней сессии и абсолютную успеваемость. Распечатать ФИО студентов, направленных от завода. ...

программа табулирования правильно не работает - Pascal
Я составил программу, а она, начиная с х=1,6 выдает у= NAN. Почему? program tab; const h=0.1; var x,y: real; begin x:=1; while...


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

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

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