Форум программистов, компьютерный форум CyberForum.ru

Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих - Lazarus

Войти
Регистрация
Восстановить пароль
 
jordan2319
0 / 0 / 0
Регистрация: 28.12.2016
Сообщений: 1
28.12.2016, 20:54     Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих #1
Найти произведение положительных чисел и определить количество
чисел, принадлежащих промежутку(A,B) и стоящих на нечетных местах.(в Лазарусе)

Прошу помощи в написание программы в лазарусе,и если будет не сложно помочь составить алгоритм этого процесса

Буду очень благодарен

Добавлено через 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
31
32
33
34
35
36
37
uses crt;
var a:array [1..1000] of integer;
    i,n,k,l,b:integer;
    s:real;
begin
writeln('vvedite n=');
read(N);
for i:=1 to n do begin
writeln('A[',i,']=');read(a[i]);
end;
writeln;
writeln('ishodniy massiv');;
for i:=1 to n do begin
write(a[i]:3);
end;
s:=1;
for i:=1 to n do begin
if a[i]>=0 then
s:=s*a[i];
end;
writeln;
writeln('vvedit a=');
read(l);
writeln('vvedit b=');
read(b);
for i:=1 to n do begin
if(i>=k) and (i<=l) then begin
if i mod 2<>0 then begin
k:=k+1;
end;
end;
end;
writeln;
writeln('proizved= ',s);
writeln('kolicestvo elementov na (a,b) kotorie stoyat na nechetnih mestah= ',k);
 
end.
Вот имеется паскаль,может кому то проще переделать ее в лазарус
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 20:54     Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих
Посмотрите здесь:

Lazarus Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов
Найти и вывести на экран количество нечетных чисел в заданной последовательности Lazarus
Lazarus В файле целых чисел поменять местами минимальный среди положительных, и третий по счёту простой элементы
Lazarus Описать процедуру, вычисляющую среднее арифметическое двух положительных чисел
Одномерный массив. Количество соседств из двух положительных чисел Lazarus
Не получается сделать сложение положительных чисел во второй матрице, и вывести ее Lazarus
Lazarus Подсчитать количество совершенных чисел во введенной последовательности
Lazarus Найти произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4
Lazarus Найти сумму всех различных двузначных чисел из этого текста и вывести список этих чисел
Найти сумму квадратов чётных чисел и сумму кубов нечётных чисел от 1 до Н Lazarus
Определить большее из двух чисел Lazarus
Lazarus Определить большее из двух чисел

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Deniseo
2 / 2 / 0
Регистрация: 23.04.2015
Сообщений: 54
29.12.2016, 07:39     Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих #2
В приведенном примере, либо куча ошибок, либо я просто напросто не знаю что это такое.
Переделал, все что смог, выводит какие то значения, но я не знаю правильны ли они.

Delphi
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
31
var a:array [1..1000] of integer;
    i,n,k,l,b:integer;
    s:real;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to n do begin
//writeln('A[',i,']=');  #хз, как это сделать из-за array
//read(a[i]);
end;
//writeln('ishodniy massiv');   #Какой еще исходный масив?
for i:=1 to n do begin
label1.caption:=('A['+FloatToStr(i)+']=');
//write(a[i]:3);   #хз, как это сделать из-за array
end;
s:=1;
for i:=1 to n do begin
if a[i]>=0 then
s:=s*a[i];
end;
l:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
for i:=1 to n do begin
if(i>=k) and (i<=l) then begin
if i mod 2<>0 then begin
k:=k+1;
end;
end;
end;
label2.caption:=('proizved= '+FloatToStr(s));
label3.caption:=('kolicestvo elementov na (a,b)= '+FloatToStr(k));
end;
Yandex
Объявления
29.12.2016, 07:39     Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих
Ответ Создать тему
Опции темы

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