Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
1

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

20.12.2011, 15:44. Просмотров 822. Ответов 4
Метки нет (Все метки)

решите пожалуйста задачку
Даны три переменные вещественного типа: А, В, С. Если их значения упорядочены по убыванию, то увеличить их 10 раз, в противном случае уменьшить значение каждой переменной на наименьшее из них. Вывести новые значения переменных.Данные вводятся с клавиатуры.
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2011, 15:44
Ответы с готовыми решениями:

Если значения переменных упорядочены по убыванию, то увеличить их в 10 раз
(1).Даны три переменные вещественного типа: А, В, С. Если их значения упорядочены по убыванию, то...

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

Если значения переменных упорядочены по убыванию, то удвоить их
Здраствуйте, прошу поделится кодом(если имеется) или указать на источник...(Возникли трудности с...

Если значения переменных упорядочены по возрастанию или убыванию, то удвоить их
Помогите пожалуйста написать прогу. Даны три переменные вещественного типа: А,В,С. Если их...

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

4
WebMax 2.0
--\.founder./--
563 / 563 / 392
Регистрация: 20.10.2011
Сообщений: 867
20.12.2011, 15:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 
var a,b,c,min:real;
 
begin
   Write('Введите А и B и C:');readln(a,b,c);
   If a<b then
      if a<c then min:=a else
      min:=c
   else
   min:=b;
   If (a>b) and (b>c) then
      begin
      a:=a+10;  b:=b+10;  c:=c+10;
      end else
      a:=a-min; b:=b-min; c:=c-min;
   Writeln('Минимальный = ',min:0:2);
   Writeln('Полученные числа: А=',a:0:2,', B=',b:0:2,', C=',c:0:2);
end.
1
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
20.12.2011, 17:26  [ТС] 3
Не помогли бы вы исправить кое-что. Вот условие -Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.
Вот решение
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
26
27
28
29
30
31
32
33
34
35
36
37
38
     uses crt;
const
  nmax=50;
type
  arr=array[1..nmax] of integer;
var
  a,b:arr;
  i,n,g,k:integer;
begin
  randomize;
  repeat
    write ('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv A:');
  for i:=1 to n do
    begin
      a[i]:=random(50);
      write(a[i]:4);
    end;
  writeln;
  repeat
    write('Vvedite tsifru:');
    readln(k);
    if not (k in [0..9]) then
      writeln('Oshibka vvoda. k v diapazone 0..9');
  until k in [0..9];
  g:=0;
  for i:=1 to n do
    if a[i] mod 10=k then
      begin
        inc(g);
        b[g]:=a[i];
      end;
  writeln('Massiv B:');
  for i:=1 to g do
    write(b[i]:4);
end.
---------Проблема в том что программа не выводит изменённый массив B
1
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
20.12.2011, 17:38 4
WMC, программа работает, просто в массиве В находятся лишь те числа, которые оканчиваются на указанную цифру... вот доказательства
1
Изображения
 
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
21.12.2011, 20:10  [ТС] 5
Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 
var a,b,c,min:real;
 
begin
   Write('Введите А и B и C:');readln(a,b,c);
   If a<b then
      if a<c then min:=a else
      min:=c
   else
   min:=b;
   If (a>b) and (b>c) then
      begin
      a:=a+10;  b:=b+10;  c:=c+10;
      end else
      a:=a-min; b:=b-min; c:=c-min;
   Writeln('Минимальный = ',min:0:2);
   Writeln('Полученные числа: А=',a:0:2,', B=',b:0:2,', C=',c:0:2);
end.
Проблема в том что при введении чисел по убыванию условие не выполняется не могли бы вы исправит пожалуйста???
1
21.12.2011, 20:10
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2011, 20:10

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

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

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


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

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

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