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

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

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

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

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

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

Если значения элемента отрицательно или равно 0, то увеличить его в 10 раз
Если значения элемента отрицательно или равно 0,то увеличить его в 10 раз,иначе - заменить 0. p.s....

Переставьте строки и столбцы матрицы так, чтобы значения элементов были упорядочены по убыванию
Дана двумерная матрица целых чисел А. Переставьте строки и столбцы матрицы так, чтобы значения...

Переставьте строки и столбцы матрицы так, чтобы значения элементов диагонали были упорядочены по убыванию
Дана двумерная матрица действительных чисел А . Переставьте строки и столбцы матрицы так, чтобы...

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
Сообщений: 185
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
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 185
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
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
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
Сообщений: 185
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
Сообщений: 185
17.11.2011, 23:44  [ТС] #10
Всем вам премного благодарен
0
КонецСвета
17.11.2011, 23:47
  #11

Не по теме:

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

0
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 185
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
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 22:49

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

Если введено чётное, кратное семи, число, то увеличить его в 100 раз
Написать программу, которая запрашивает пользователя ввести натуральное число. Если введено чётное...

Если введено чётное кратное семи число, то увеличить его в 100 раз
Написать программу, которая запрашивает пользователя ввести натуральное число. Если введено чётное...


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

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

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