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

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

15.11.2011, 21:52. Просмотров 1090. Ответов 12
Метки нет (Все метки)

(1).Даны три переменные вещественного типа: А, В, С. Если их значения упорядочены по убыванию, то увеличить их 10 раз, в противном случае уменьшить значение каждой переменной на наименьшее из них. Вывести новые значения переменных.решить исполюзуя case
(2)Составить программу, используя оператор FOR.
Для двух последовательностей из N и M элементов соответственно найти произведение максимального элемента первой последовательности и минимального элемента второй последовательности.
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2011, 21:52
Ответы с готовыми решениями:

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

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

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

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

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

12
shum_ont
61 / 60 / 17
Регистрация: 17.02.2011
Сообщений: 161
15.11.2011, 22:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n=3;
      m=4;
var pos1:array[1..n]of byte;
    pos2:array[1..m]of byte;
    bufn,bufm,i:integer;
begin
for i:=1 to n do
   pos1[i]:=random(20);
for i:=1 to m do
   pos2[i]:=random(20);
for i:=1 to n do
   if bufn<pos1[i] then
      bufn:=pos1[i];
for i:=1 to m do
   if bufm<pos2[i] then
      bufm:=pos2[i];
write(bufm*bufn);
end.
1
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
16.11.2011, 22:21  [ТС] 3
и решите пожалуйста первую
0
shum_ont
61 / 60 / 17
Регистрация: 17.02.2011
Сообщений: 161
16.11.2011, 23:05 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

решить могу....но не могу понять куда там можно засунуть case

Добавлено через 33 минуты
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
var a,b,c:real;
procedure q(x:real);
begin
   b:=b-x;
   a:=a-x;
   c:=c-x;
   write(b,'  ',a ,'  ',c);
end;
 
begin
a:=2;
b:=3;
c:=6;
if (a>b) and (b>c) then begin
   a:=a*10;
   b:=b*10;
   c:=c*10;
end
else
   if (c<b) and (c<a) then
      q(c)
   else
      if (b<c) and (b<a) then
         q(b)
      else
         q(a);
end.
1
16.11.2011, 23:05
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
17.11.2011, 23:31  [ТС] 5
большое спасибо,а по поводу case это я ошибся с условием sorry

Добавлено через 5 минут
и если вам не составить труда бмогли бы вы решить 2ую задачу без использования массивов ,но с for??
0
shum_ont
61 / 60 / 17
Регистрация: 17.02.2011
Сообщений: 161
17.11.2011, 23:34 6
а где должна хранится последовательность? в стринг? это весьма усложнит код.....вытащить из строки числа...проверить числа ли это...вычислить...но если нужно я сделаю????
1
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
17.11.2011, 23:39 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var n,m,a,i,max,min: integer;
begin
write ('Укажите размер первой последовательности ');
readln (n);
write ('Укажите размер второй последовательности ');
readln (m);
max:=-10000;
for i:=1 to n do
    begin
    write ('Введите ',i,' элемент первой последовательности ');
    readln (a);
    if a>max then max:=a;
    end;
min:=10000;
for i:=1 to m do
    begin
    write ('Введите ',i,' элемент второй последовательности ');
    readln (a);
    if a<min then min:=a;
    end;
writeln ('Произведение максимума первой и минимума второй = ',min*max);
end.
2
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
17.11.2011, 23:39  [ТС] 8
Нужно,так как условием задано именно for и без массивов,буду премного благодарен
0
shum_ont
61 / 60 / 17
Регистрация: 17.02.2011
Сообщений: 161
17.11.2011, 23:42 9
КонецСвета, умно.... я бы не допер
1
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
17.11.2011, 23:44  [ТС] 10
Всем вам премного благодарен
0
КонецСвета
17.11.2011, 23:47
  #11

Не по теме:

shum_ont, мне тоже есть чему у тебя поучиться

0
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 192
08.12.2011, 22:43  [ТС] 12
Цитата Сообщение от shum_ont Посмотреть сообщение
решить могу....но не могу понять куда там можно засунуть case

Добавлено через 33 минуты
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
var a,b,c:real;
procedure q(x:real);
begin
   b:=b-x;
   a:=a-x;
   c:=c-x;
   write(b,'  ',a ,'  ',c);
end;
 
begin
a:=2;
b:=3;
c:=6;
if (a>b) and (b>c) then begin
   a:=a*10;
   b:=b*10;
   c:=c*10;
end
else
   if (c<b) and (c<a) then
      q(c)
   else
      if (b<c) and (b<a) then
         q(b)
      else
         q(a);
end.

извините но можно ли сделать чтоб даннын вводились с клавиатуры,да и неудваивает значение

Добавлено через 7 минут
Цитата Сообщение от КонецСвета Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var n,m,a,i,max,min: integer;
begin
write ('Укажите размер первой последовательности ');
readln (n);
write ('Укажите размер второй последовательности ');
readln (m);
max:=-10000;
for i:=1 to n do
    begin
    write ('Введите ',i,' элемент первой последовательности ');
    readln (a);
    if a>max then max:=a;
    end;
min:=10000;
for i:=1 to m do
    begin
    write ('Введите ',i,' элемент второй последовательности ');
    readln (a);
    if a<min then min:=a;
    end;
writeln ('Произведение максимума первой и минимума второй = ',min*max);
end.
Простите ,а не могли бы вы сделать чтобы значения максимума и минимума выводились на экран?
0
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
08.12.2011, 22:49 13
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

так?
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
uses crt;
var n,m,a,i,max,min: integer;
begin
write ('Укажите размер первой последовательности ');
readln (n);
write ('Укажите размер второй последовательности ');
readln (m);
max:=-10000;
for i:=1 to n do
    begin
    write ('Введите ',i,' элемент первой последовательности ');
    readln (a);
    if a>max then max:=a;
    end;
writeln ('Максимальное ',max);
min:=10000;
for i:=1 to m do
    begin
    write ('Введите ',i,' элемент второй последовательности ');
    readln (a);
    if a<min then min:=a;
    end;
writeln ('Миниимальное ',min);
writeln ('Произведение максимума первой и минимума второй = ',min*max);
end.
0
08.12.2011, 22:49
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 22:49

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

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

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


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

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

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