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

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

28.07.2015, 14:57. Просмотров 1323. Ответов 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)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.07.2015, 14:57
Ответы с готовыми решениями:

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

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

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

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

6
3175 / 1751 / 468
Регистрация: 28.02.2015
Сообщений: 3,561
28.07.2015, 15:25 2
Ошибок нет. А можно само задание?
0
0 / 0 / 0
Регистрация: 15.04.2015
Сообщений: 11
29.07.2015, 02:14  [ТС] 3
Программа для трёх маршрутов. Правильно ли написана программа?

Задание
0
3175 / 1751 / 468
Регистрация: 28.02.2015
Сообщений: 3,561
29.07.2015, 07:44 4
Правильно.
1
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
7 / 7 / 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2017, 21:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Правильно ли написана программа?
#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 - 2021, vBulletin Solutions, Inc.