Если три переменные вещественного типа упорядочены по возрастанию, то удвоить их

@magatj · Регистрация: 11.11.2015

Студворк — интернет-сервис помощи студентам

Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

@Armagedo · 06.01.2016, 10:46

Совсем обленились,

IF (B>=A ) THEN
....IF (C>=B) THEN
........BEGIN
.............A:=2*A;
.............B:=2*B;
.............C:=2*C;
........END
.....ELSE
........BEGIN
.............A:=-A;
.............B:=-B;
.............C:=-C;
........END
....ENDIF
ELSE
...BEGIN
......A:=-A;
......B:=-B;
......C:=-C;
...END
ENDIF

@magatj · 06.01.2016, 12:24 **[ТС]**

спасибо)

Добавлено через 9 минут
а можно по подробнее написать код? я что -то не разобрался

@Armagedo · 06.01.2016, 12:27

@magatj · 06.01.2016, 12:38 **[ТС]**

nuuu??

@Cyborg Drone · 06.01.2016, 17:50

Armagedo, над чем смеётесь-то? Когда последний раз на паскале что-либо писали? Какой ещё к лешему ENDIF? Ну и... Зачем такая гора условий и повторы кода, тоже не вполне ясно. Такое ощущение, что писано индусом на марсианском паскале.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var a, b, c: real;
 
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  if (a < b) and (b < c)
    then begin
      a := 2 * a;
      b := 2 * b;
      c := 2 * c
    end
    else begin
      a := -a;
      b := -b;
      c := -c
    end;
  writeln('a = ', a);
  writeln('b = ', b);
  writeln('c = ', c);
  readln
end.

Не по теме:

Сообщение от magatj

nuuu??

Не нукай, не запряг.

@Armagedo · 06.01.2016, 18:14

Cyborg Drone, прежде, чем быковать, поинтересовались бы откуда вообще тема произросла.
А произросла она из ветки "Программирование Android ".
Чиркнул я код ТАМ чисто для схемы - думать, доводить и прилизывать не было ни времени, ни желания.

А смеюсь, от того, что даже пойманную рыбу некоторым лень почистить.

На Паскале не писал 20 лет.

Еще вопросы?

@JokeR.BY · 06.01.2016, 18:43

Armagedo, а какая разница откуда тема и какой язык? код-то всё равно - костыль на костыле.

Не по теме:

хотя тут даже на костыль не тянет. ибо нерабочий...

@Armagedo · 06.01.2016, 18:51

JokeR.BY, одна даёт - другая дразнится.
Читай дискляймер выше, адвокат

@Cyborg Drone · 06.01.2016, 19:28

Кроме того, что я написал выше, Вы по какой-то причине не стали использовать теги форматирования кода. И поэтому сообщения Ваши выглядят как сообщения от ленивого, уверенного в своей правоте, дилетанта, который позволяет себе смеяться над менее образованным человеком. С такими людьми я всегда поступаю жёстко, и, по возможности, жестоко. Надеюсь, в этом Вы солидарны со мной.

Теперь, когда выяснилось, что не только Ваша вина, что сообщения Ваши так выглядят, приношу Вам свои извинения: я неверно истолковал Ваше поведение.

Добавлено через 4 минуты
Пока я писал, тут ещё сообщения появились... Armagedo, прошу Вас, если Вам не трудно, не делайте так, чтобы я снова начал о Вас думать нехорошо.

@Armagedo · 06.01.2016, 19:31

Сообщение от Cyborg Drone

Надеюсь, в этом Вы солидарны со мной.

Несомненно

Сообщение от Cyborg Drone

приношу Вам свои извинения: я неверно истолковал Ваше поведение.

Примите и вы мои встречные извинения за возможно резкий ответ.

Вообщем, сабли в ножны, камрады.
Свят вечер на дворе.
Мира и добра нам всем.

Добавлено через 1 минуту

Сообщение от Cyborg Drone

не делайте так, чтобы я снова начал о Вас думать нехорошо

Вы вправе поступать так, как считаете нужным, но - я его в песочницу не приглашал - он сам влез со своими пасочками.

Новые блоги и статьи Все статьи Все блоги /
JWT аутентификация в ASP.NET Core UnmanagedCoder 19.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 19.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 18.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 18.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 16.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC stackOverflow 16.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .

@magatj -30 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 21

	Если три переменные вещественного типа упорядочены по возрастанию, то удвоить их 06.01.2016, 10:24. Показов 1709. Ответов 10 Метки нет (Все метки) Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C. 0

@Armagedo 210 / 210 / 60 Регистрация: 22.08.2014 Сообщений: 644
	06.01.2016, 10:46
	Совсем обленились, IF (B>=A ) THEN ....IF (C>=B) THEN ........BEGIN .............A:=2A; .............B:=2B; .............C:=2*C; ........END .....ELSE ........BEGIN .............A:=-A; .............B:=-B; .............C:=-C; ........END ....ENDIF ELSE ...BEGIN ......A:=-A; ......B:=-B; ......C:=-C; ...END ENDIF 0

@magatj -30 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 21
	06.01.2016, 12:24 [ТС]
	спасибо) Добавлено через 9 минут а можно по подробнее написать код? я что -то не разобрался 0

@Armagedo 210 / 210 / 60 Регистрация: 22.08.2014 Сообщений: 644
	06.01.2016, 12:27
	0

@magatj -30 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 21
	06.01.2016, 12:38 [ТС]
	nuuu?? 0

@Armagedo 210 / 210 / 60 Регистрация: 22.08.2014 Сообщений: 644
	06.01.2016, 18:14
	Cyborg Drone, прежде, чем быковать, поинтересовались бы откуда вообще тема произросла. А произросла она из ветки "Программирование Android ". Чиркнул я код ТАМ чисто для схемы - думать, доводить и прилизывать не было ни времени, ни желания. А смеюсь, от того, что даже пойманную рыбу некоторым лень почистить. На Паскале не писал 20 лет. Еще вопросы? 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	06.01.2016, 18:43
	Armagedo, а какая разница откуда тема и какой язык? код-то всё равно - костыль на костыле. Не по теме: хотя тут даже на костыль не тянет. ибо нерабочий... 0

@Armagedo 210 / 210 / 60 Регистрация: 22.08.2014 Сообщений: 644
	06.01.2016, 18:51
	JokeR.BY, одна даёт - другая дразнится. Читай дискляймер выше, адвокат 0

@Cyborg Drone Модератор 10236 / 5524 / 3373 Регистрация: 17.08.2012 Сообщений: 16,884
	06.01.2016, 19:28
	Кроме того, что я написал выше, Вы по какой-то причине не стали использовать теги форматирования кода. И поэтому сообщения Ваши выглядят как сообщения от ленивого, уверенного в своей правоте, дилетанта, который позволяет себе смеяться над менее образованным человеком. С такими людьми я всегда поступаю жёстко, и, по возможности, жестоко. Надеюсь, в этом Вы солидарны со мной. Теперь, когда выяснилось, что не только Ваша вина, что сообщения Ваши так выглядят, приношу Вам свои извинения: я неверно истолковал Ваше поведение. Добавлено через 4 минуты Пока я писал, тут ещё сообщения появились... Armagedo, прошу Вас, если Вам не трудно, не делайте так, чтобы я снова начал о Вас думать нехорошо. 0

Опции темы