Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.64
Nastuu
0 / 0 / 0
Регистрация: 02.06.2010
Сообщений: 9
#1

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

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

Дана последовательность действительных чисел а1,а2,..,аn. Заменить все ее члены,большие данного z,этим числом. Подсчитать количество замен?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
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 - Pascal
помогите пожалуйста решить

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

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

Действительные числа - Pascal
Даны действительные числа A,B,C и D. Если A &lt; B &lt; C &lt; D, то каждое число заменить наибольшим из них, если A &gt; B &gt; C &gt; D, то числа оставить...

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

Действительные числа - Pascal
Даны действительные числа А, В,С. Найтм те и них которые не принадлежат отрезку (1;3) Добавлено через 5 минут ОЧЕНЬ СРОЧНО^_^

1
Shelovek
65 / 65 / 5
Регистрация: 25.05.2010
Сообщений: 176
02.06.2010, 12:01 #2
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
Привет! Вот еще темы с ответами:

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

Действительные числа - Pascal
Даны действительные числа a,b,c. Получить: max(a,a+b)+max(a,b+c)/1+max(a+bc,b,15) ...

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

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


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

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

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