Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 19.09.2014, 21:07   #1
Ambros
Пользователь
 
Регистрация: 20.09.2012
Сообщений: 17
По умолчанию Помогите решить задачу в паскаль

Определите значение величины q после выполнения каждой из следующих команд присваивания: а) q:=a<b<c and c<5 b) q:=(a<=b) or (b>=c) c) q:=odd(a+b) xor odd(b+c) d) q:=sin(a) < sin(b) < sin(c) a, b, c - целочисленные переменные, значение которых вводится с клавиатуры.
Ambros вне форума
Старый 19.09.2014, 21:30   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

1) Что вызывает затруднения?
2) Какие есть наработки?
3) a) и d) не скомпилируются в таком виде
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума
Старый 19.09.2014, 21:35   #3
Ambros
Пользователь
 
Регистрация: 20.09.2012
Сообщений: 17
По умолчанию

Код:
var
q:boolean;
a,b,c: integer;
begin;
readln(a,b,c);
q:=a<b<c and c<5;
readln(q);
and.
Но я понимаю, что написал полную чушь.

Последний раз редактировалось Stilet; 20.09.2014 в 11:03.
Ambros вне форума
Старый 19.09.2014, 21:47   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Практически верно. На примере b):
Код:
var
  q: boolean;
  a, b, c: integer;
begin
  readln(a, b, c);
  q := (a <= b) or (b >= c);
  writeln(q);
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума
Старый 19.09.2014, 22:02   #5
Ambros
Пользователь
 
Регистрация: 20.09.2012
Сообщений: 17
По умолчанию

У меня пишет, что ошибочный числовой формат.
Ambros вне форума
Старый 19.09.2014, 22:15   #6
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Чем компилируете?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума
Старый 19.09.2014, 22:17   #7
Ambros
Пользователь
 
Регистрация: 20.09.2012
Сообщений: 17
По умолчанию

Все разобрался) Благодарю за помощь.
Ambros вне форума
Старый 19.09.2014, 22:32   #8
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Чисто от скуки.
Код:
{
Определите значение величины q после выполнения каждой из следующих команд
присваивания:
  а) q:=a<b<c and c<5
  b) q:=(a<=b) or (b>=c)
  c) q:=odd(a+b) xor odd(b+c)
  d) q:=sin(a) < sin(b) < sin(c)
a, b, c - целочисленные переменные, значение которых вводится с клавиатуры.
}

function ShitHappens(const a, b, c: Single; const Switch: Char): Boolean;
begin
  case Switch of
    'a': ShitHappens:= (a < b) and (b < c) and (c < 5);
    'b': ShitHappens:= (a <= b) or (b >= c);
    'c': ShitHappens:= Odd(Round(a + b)) xor Odd(Round(b + c));
    'd': ShitHappens:= (Sin(a) < Sin(b)) and (Sin(b) < Sin(c));
  else
         ShitHappens:= False;
  end;
end;
Ахтунг!! Писал гвоздём на ментовской машине.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите Решить задачу на Паскаль RAVEN23 Помощь студентам 2 04.06.2009 16:46
Помогите решить задачу(Паскаль) KocT9 Помощь студентам 1 02.06.2008 22:22