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

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента

20.11.2013, 13:15. Просмотров 1228. Ответов 6
Метки нет (Все метки)


В одномерном массиве, состоящем из N вещественных элементов, вычислите:

1) количество элементов массива, меньших C;
2) сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. (Ввод цифр должен быть введен с клавиатуры и без random).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2013, 13:15
Ответы с готовыми решениями:

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
В одномерном массиве, состоящем из N вещественных элементов, вычислите: 1) количество элементов...

Вычислить сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
вычислить сумму целых частей элементов массива, расположенных после последнего отрицательного...

Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента
Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон (...

Найти сумму элемента массива, расположенных до последнего отрицательного
2.Найдите сумму элемента массива,расположенных до последнего отрицательного элемента

__________________
Помогаю в написании курсовых работ и дипломов здесь.
6
8 / 8 / 6
Регистрация: 17.06.2013
Сообщений: 140
20.11.2013, 13:30 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1 задача :

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
uses crt;
 
type
    massiv = array [1..100] of real;
 
var
    i , n , count  : integer;
    mass : massiv;
    c : real;
 
begin
clrscr;
 
write('Введите кол-во элементов : '); readln(n);
 
write('Введите С : '); readln(c);
 
for i:=1 to n do
    begin
        write('Введите число ',i, ' : '); readln(mass[i]);
        if mass[i] < c then
            count  := count + 1;
    end;
writeln('Количество элементов меньше ', c:2:1 , ' равно : ', count);
readln;
end.
0
652 / 381 / 259
Регистрация: 09.12.2011
Сообщений: 751
Записей в блоге: 29
20.11.2013, 13:34 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses crt;
Var A:array[1..100] of real; i,n,s,o,k:integer; c:real;
Begin
ClrScr; k:=0;
Write('n='); Readln(n);{ввод кол-ва элементов массива}
Write('c='); Readln(c);{ввод числа С}
Writeln('Input elements:');
For i:=1 to n do
 Begin
  Readln(A[i]);{ввод элементов массива}
  If A[i]<c then inc(k);{если элемент меньше С, увеличиваем k на один}
 End;
For i:=n downto 1 do
 If not(A[i]<0) then s:=s+trunc(A[i]){считаем сумму целых частей эл., стоящих после последнего отрицательного}
 Else Break;
Writeln('Kol-vo el<c:',k);
Writeln('Summa:',s);
Readln;
End.
0
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 73
20.11.2013, 14:19  [ТС] 4
программа не считает: сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. она выводит только Summa:0,
0
8 / 8 / 6
Регистрация: 17.06.2013
Сообщений: 140
20.11.2013, 14:26 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses crt;
Var A:array[1..100] of real; i,n,s,o,k:integer; c:real;
Begin
ClrScr; k:=0; s:=0;
Write('n='); Readln(n);{ввод кол-ва элементов массива}
Write('c='); Readln(c);{ввод числа С}
Writeln('Input elements:');
For i:=1 to n do
 Begin
  Readln(A[i]);{ввод элементов массива}
  If A[i]<c then inc(k);{если элемент меньше С, увеличиваем k на один}
 End;
For i:=n downto 1 do
 If not(A[i]<0) then s:=s+trunc(A[i]){считаем сумму целых частей эл., стоящих после последнего отрицательного}
 Else Break;
Writeln('Kol-vo el<c:',k);
Writeln('Summa:',s);
Readln;
End.
0
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 73
20.11.2013, 14:56  [ТС] 6
программа выдает последний отрицательный элемент, а должна выводить: допустим массив 2 -3 5 -6 1 2 сумма:3 , т.е. после последнего отрицательного элемента программа должна сложить все оставшиеся числа.
0
652 / 381 / 259
Регистрация: 09.12.2011
Сообщений: 751
Записей в блоге: 29
20.11.2013, 16:13 7
Цитата Сообщение от Светлана25 Посмотреть сообщение
программа не считает: сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. она выводит только Summa:0,
Правда? Может, надо, чтобы последний элемент не был отрицательным?
0
Миниатюры
Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2013, 16:13

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Найти сумму элементов массива, расположенных после последнего элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1. Количество...

Как найти сумму элементов массива, расположенных после последнего положительного элемента
Дано 12 вещественных чисел Как найти сумму элементов массива, расположенных после последнего...

Найти сумму элементов массива, расположенных после последнего минимального элемента
Вычислить: 1) кол-во элементов, меньших С 2) сумму элементов массива, расположенных после...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
помогите) плиз) как найти в одномерном массиве состоящим из N вещественных элементов, вычислить:...


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

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

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