Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 19.10.2011
Сообщений: 50
1

Домножить все члены последовательности на квадрат ее наименьшего числа

26.12.2011, 16:33. Показов 1263. Ответов 1
Метки нет (Все метки)

Даны действительные числа a1,a2,...,a30. Требуется домножить все члены последовательности а1,а2,...,а30 на квадрат ее наименьшего числа, если а1 >= 0, и на квадрат ее наибольшего члена, а1< 0.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2011, 16:33
Ответы с готовыми решениями:

Домножить все челны последовательности на квадрат ее наименьшего члена
Дана последовательность действительных чисел а1, а2, …, аn. Требуется домножить все челны...

Умножить все члены последовательности на квадрат ее наименьшего элемента
Дана последовательность действительных чисел a1, a2, ..., аn. Требуется умно¬жить все члены...

Требуется домножить все члены последовательности на квадрат ее наименьшего члена
Дана последовательность действительных чисел а1, а2,..., аn. Требуется домножить все члены...

Домножить все члены последовательности на квадрат ее наименьшего члена
Дана последовательность действительных чисел a1, a2, …, an. Требуется домножить все члены...

1
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
26.12.2011, 16:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от d@niyar Посмотреть сообщение
Даны действительные числа a1,a2,...,a30. Требуется домножить все члены последовательности а1,а2,...,а30 на квадрат ее наименьшего числа, если а1 >= 0, и на квадрат ее наибольшего члена, а1< 0.
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
39
uses crt;
 
const n = 30;
var a :array [1..n] of integer;
i,x,max,min:integer;
sred:real;
 
begin
   clrscr;
   Write('Массив: ');
   For i:=1 to n do
   begin
   randomize;
   a[i]:=random(51)-25;
   write(a[i],' ');
   sred:=sred+a[i];
   end;
   max:=a[1]; min:=a[1];
   For i:=1 to n do
   begin
   If a[i]<min then min:=a[i];
   IF a[i]>max then max:=a[i];
   end;
   Writeln;
   Write('Новый массив: ');
   If a[1]>=0 then
   For i:=1 to n do
       begin
       a[i]:=a[i]*sqr(min);
       write(a[i],' ');
       end
   else
   For i:=1 to n do
       begin
       a[i]:=a[i]*sqr(max);
       write(a[i],' ');
       end;
   readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2011, 16:50

Домножить все члены заданной последовательности, на квадрат ее наименьшего (или наибольшего) члена
Доброго времени суток. В универе нам задали задание &quot;даны действительные числа a1 ...., a26. Надо...

Домножить все члены последовательности на квадрат её первого отрицательного элемента, если A>=0
Помогите пожалуйста задача даны действительные числа a1...a20. Требуется домножить все члены...

Домножить все члены заданной последовательности на квадрат минимума или максимума, в зависимости от условия
3. Одномерные массивы Дана последовательность действительных чисел а1, а2 ..., аn. Требуется...

Домноижть все члены последовательности на квадрат ее наименьшего члена
Дана последовательности действительных чисел a1, a2, ..., an. Требуется домноижть все члены...


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

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

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