Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.64
Nastuu
0 / 0 / 0
Регистрация: 02.06.2010
Сообщений: 9
#1

Действительные числа - Pascal

02.06.2010, 11:45. Просмотров 2323. Ответов 1
Метки нет (Все метки)

Дана последовательность действительных чисел а1,а2,..,аn. Заменить все ее члены,большие данного z,этим числом. Подсчитать количество замен?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 11:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Действительные числа (Pascal):

Даны целые числа m и n (n,m < 10000) и действительные числа a1, a2,.......an найти целое число i (1<=i<=n-m) для которого сумма ai+ai+1+.....+ai+m
помогите пожалуйста решить

Числа Фибоначчи, Натуральные и действительные числа
помогите пожалуйста) задали решить задачи, а я понятия не имею, что это такое....

действительные числа
1. Даны действительные числа х,у,z.Получить: а) mах (х, у, z); б) min(x, у,...

Действительные числа
Даны действительные числа a,b,c. Получить: ...

Действительные числа
Даны действительные числа A,B,C и D. Если A &lt; B &lt; C &lt; D, то каждое число...

действительные числа a,b,e (a>b>0 , e>0)
Здравствуйте, прошу помочь с задачей.Решение через циклы. Даны действительные...

1
Shelovek
65 / 65 / 33
Регистрация: 25.05.2010
Сообщений: 176
02.06.2010, 12:01 #2
Лучший ответ Сообщение было отмечено Nastuu как решение

Решение

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;
var
   a:array[1..1000] of real;
   i,n,k:integer;
   z:real;
begin
     writeln('wvedite shislo z');
     readln(z);
     writeln('wvedite kol-vo shisel');
     readln(n);
     writeln('wvedite ',n,' shisel ');
     for i:= 1 to n do
         read(a[i]);
     k:=0;
     for i:= 1 to n do
         begin
              if a[i]>z then
                 begin
                      a[i]:=z;
                      k:=k+1;
                 end
         end;
writeln('shisla posle zamen !');
for i:= 1 to n do
    write(a[i]:7:3);
writeln;
writeln('kol-vo zamen ravno ',k);
readkey
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 12:01
Привет! Вот еще темы с решениями:

действительные числа
задачи взятие с Абрамов С.А. И др. Задачи по программированию. - Наука,1988. и ...

Действительные числа
Даны действительные числа А, В,С. Найтм те и них которые не принадлежат отрезку...

Даны действительные числа a, b, c. Удвоить эти числа, если a>b>c, и заменить их абсолютными значениями, если это не так
Спасаемпомогаем :) Задача: Даны действительные числа a, b, c. Удвоить эти...

691 Даны действительные числа a1,.,a64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,., a64, располо
Люди хелп, Задание нужно сделать с помощью двумерного масива, без процедур,...


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

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

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