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

работа с компонентами массива - Pascal

23.11.2009, 21:56. Просмотров 372. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить следующую задачку...
язык Pascal(TP);
http://www.cyberforum.ru/pascal/thread178025.html

В массиве из 10 целых чисел найти произведение элементов, расположенных между первым и последним отрицательными элементами
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2009, 21:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос работа с компонентами массива (Pascal):

Организовать обмен компонентами между файлам
Даны текстовые файлы f1,f2,f3,f4,f5 . Организовать обмен компонентами между...

Обработка файлов с компонентами типа «запись»
Создайть файл Телефонный справочник. Выбрать и занести в отдельный файл по...

Организовать обмен компонентами между файлами
Даны текстовые файлы f1,f2,f3,f4,f5. Организовать обмен компонентами между...

Обработка файлов с компонентами типа «запись»
Создайте файл Студент. На каждом курсе найдите группу (группы), в которой...

Создать файл f, компонентами которого являются символьные массивы
Создать файл f, компоненты которого являются символьные массивы s1...s15....

3
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
23.11.2009, 22:01 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var m:array[1..10]of integer;
c1,c2,i,p:integer;
 
begin
 clrscr;
 p:=1;
 write('Введите массив: ');
 for i:=1 to 10 do read(m[i]);
 readln;
 
 c1:=1;
 c2:=10;
 while m[c1]>=0 do inc(c1);
 while m[c1]>=0 do dec(c2);
 
 for i:=c1+1 to c2-1 do p:=p*m[i];
 
 writeln(p);
 readln;
end.
1
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
23.11.2009, 22:03 #3
Цитата Сообщение от Gruve Посмотреть сообщение
Помогите пожалуйста решить следующую задачку...
язык Pascal(TP);

В массиве из 10 целых чисел найти произведение элементов, расположенных между первым и последним отрицательными элементами
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a:array[1..10]of integer;
i,ot1,ot2,sum:integer;
begin
writeln('vvedite elementy massiva');
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then ot2:=i;
for i:=10 downto 1 do
if a[i]<0 then ot1:=i;
sum:=1;
for i:=ot1+1 to ot2-1 do
sum:=sum*a[i];
writeln(sum);
end.
1
Gruve
0 / 0 / 1
Регистрация: 23.11.2009
Сообщений: 30
24.11.2009, 00:13  [ТС] #4
Цитата Сообщение от k1ry4 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var m:array[1..10]of integer;
c1,c2,i,p:integer;
 
begin
 clrscr;
 p:=1;
 write('Введите массив: ');
 for i:=1 to 10 do read(m[i]);
 readln;
 
 c1:=1;
 c2:=10;
 while m[c1]>=0 do inc(c1);
 while m[c1]>=0 do dec(c2);
 
 for i:=c1+1 to c2-1 do p:=p*m[i];
 
 writeln(p);
 readln;
end.
Почему то он знак последнего отрицательного элемента не учитывает ! =(

Добавлено через 6 минут
k1ry4 одна ошибочка в коде у тебя , заменил и всё пошло , спасибо

ошибочка такова
while m[c1]>=0 do inc(c1);
while m[c2]>=0 do dec(c2); {вместо с1 как стояло}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 00:13
Привет! Вот еще темы с решениями:

Числовой файл разделить на два: с четными и нечетными компонентами
Доброго времени суток! Будьте добры помогите составить программу. 1)...

Дан файл F, компонентами которого являются действительные числа
Дан файл F, компонентами которого являются действительные числа. Найти разность...

Вывести разницу между максимальным и минимальным компонентами матрицы
помоги мне решить задачу с матрицей: дана матрица размером NxM. вывести...

Дан файл G, компонентами которого являются вещественные числа
Дан файл G, компонентами которого являются вещественные числа. Найти сумму...


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

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

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