Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов http://www.cyberforum.ru/pascalabc/thread331814.html
дан целочисленный массив размера N.вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов,а также их количество K.
Pascal ABC Вывести на экран текущие дату и время
Составить программу, которая выводит на экран текущие дату и время, а также имена всех файлов с расширением .exe, дату и время их создания.
Начальные данные матрицы разместить во внешних файлах Pascal ABC
вот задача: Дана квадратичная матрица А розмерности 4х4. Ввестиелементы матрици А и посчитать столбец В розмером 4х1, i-й елемент которого ровняеться, 1 если в і- му рядку матрици А есть...
Pascal ABC Вывести строку-описание числа Дано целое число.Вывести его строку-описание вида (отрицательное четное число ) (нулевое число) (положительное число) http://www.cyberforum.ru/pascalabc/thread331751.html
Pascal ABC Сортировка массива http://www.cyberforum.ru/pascalabc/thread331741.html
помогите пожалуйста с данной программой. заранее благодарен. ввести с клавиатуры 20 элементов в массив. Отсортировать его в порядке убывания и записать в файл.
Pascal ABC Измерение длительности работы программы
Здравствуйте. Возник вопрос. У меня задача на сортировку массивов, требуется "получить оценку среднего времени выполнения и числа операций для разных N". Но проблема в том, что требуется сравнить...
Реализовать меню для выбора разнотипных действий Pascal ABC
такс ..надо написать программу в которой 4 квадратных рисунка...когда нажимаешь(курсором ) на 1 открывается (уже сделанная )программа. 2- открывается 3.3 открывается картинка.и 4 - закрыть программу.
Pascal ABC Работа с квадратной матрицей... На квадратном листе бумаги в клетку размером 8х8 ячеек. Изображено несколько прямоугольников. Каждый прямоугольник состоит из ячеек. Согласно такого рисунка создана целочисленная квадратная матрица... http://www.cyberforum.ru/pascalabc/thread331177.html
Pascal ABC Почему не идет паскаль, может это 7-ая винда виновата? http://www.cyberforum.ru/pascalabc/thread331175.html
Ставлю на компе паскаль, он вроде и ставится, но во всей менюшке вместо слов вопросительные знаки и если пытаюсь выполнить какую-нибудь программу( пробовала динамическое изображение) он модуль graph...
Pascal ABC Нарисовать шагающего человечка как в Pascal ABC нарисовать шагающего человечка? http://www.cyberforum.ru/pascalabc/thread331174.html
lamed
297 / 297 / 150
Регистрация: 07.05.2011
Сообщений: 592
11.07.2011, 13:38 0

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

11.07.2011, 13:38. Просмотров 834. Ответов 5
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{ Даны три переменные: A,B,С. 
Если их значения упорядочены по возрастанию или убыванию, то удвоить их; 
в противном случае заменить значение каждой переменной на противоположное. 
Вывести новые значения переменных A,B,С. }
var
  a,b,c: integer;
begin
  readln(a,b,c);
  if (a>b) and (b>c) or (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, ',',b,',',c);
end.


Вернуться к обсуждению:
Если значения переменных упорядочены по возрастанию или убыванию, то удвоить их
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.07.2011, 13:38

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

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

Даны три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить их
Даны три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить...

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