1 / 1 / 0
Регистрация: 29.03.2013
Сообщений: 8
1

Даны последовательность вещественных чисел a1,a2,…,a15

30.03.2013, 01:40. Показов 7038. Ответов 1
Метки нет (Все метки)

Даны последовательность вещественных чисел a1, a2,…,a15, упорядоченная по возрастанию, и число, не равное ни одному из чисел последовательности и такое, что а1< n < а15.
а) Вывести все числа последовательности, меньшие n.
б) Найти два элемента последовательности (их порядковые номера и значение), в интервале между которыми находится значение n.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2013, 01:40
Ответы с готовыми решениями:

Задана последовательность N вещественных чисел. Отсортировать последовательность по убыванию методом выбор
И снова прошу помощи написать код. Задана последовательность N вещественных чисел. Отсортировать ...

Даны три одномерных массива вещественных чисел А[1.6], В[1.6], С[1.6]
Найти общую сумму положительных элементов в массивах. Решить, использовав подпрограмму функцию.

Даны три квадратные матрицы вещественных чисел
Даны три квадратные матрицы вещественных числе A, N&lt;=10 и B, М&lt;=20,С,L&lt;=30,. В той матрице, где...

Дана последовательность состоящая из 10 вещественных чисел.
Дана последовательность состоящая из 10 вещественных чисел. Определить является ли она возрастающей...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.03.2013, 11:07 2
Лучший ответ Сообщение было отмечено Nekko93 как решение

Решение

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
uses crt;
const m=15;
var a:array[1..m] of real;
    n:real;
    i:integer;
begin
randomize;
a[1]:=random;
write(a[1]:5:1);
for i:=2 to m do
 begin
  a[i]:=a[i-1]+1+random;
  write(a[i]:5:1);
 end;
writeln;
repeat
write('a[1]<n<a[m] n=');
read(n);
until (n>a[1])and(n<a[m]);
writeln('Числа меньшие ',n:0:1);
i:=1;
while(i<=m)and(a[i]<n) do
 begin
  write(a[i]:5:1);
  i:=i+1;
 end;
writeln;
writeln('Число ',n:0:1,' находится между числами');
write('a[',i-1,']=',a[i-1]:0:1,'  a[',i,']=',a[i]:0:1)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2013, 11:07
Помогаю со студенческими работами здесь

Последовательность из вещественных чисел. Найти модуль разности
Дана последовательность из n (n&gt;1) вещественных чисел a1, a2, …, an, которые вводятся по одному....

Даны вещественные числа а1, а2, ..., а10. Определить среднее арифметическое вещественных чисел
1)Вычислить приближенно площадь фигуры, об¬разованной кривой у == 0,3(х — l)2+4, осью абс¬цисс и...

Дано целое число N (>2). Последовательность вещественных чисел AK определяется следующим образом
Имя входного файла zс37.in Имя выходного файла zc37.out Дано целое число N (&gt;2)....

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru