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

Lazarus

Войти
Регистрация
Восстановить пароль
 
jordan2319
0 / 0 / 0
Регистрация: 28.12.2016
Сообщений: 1
#1

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

28.12.2016, 20:54. Просмотров 212. Ответов 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.
Вот имеется паскаль,может кому то проще переделать ее в лазарус
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 20:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих (Lazarus):

Одномерный массив. Количество соседств из двух положительных чисел - Lazarus
Всем доброго вечера, товарищи программисты! Нужна задачка в Лазарусе простеньким способом. Буду признателен! Дан одномерный числовой...

даны натуральное n, действительные числа а1,...,аn. В последовательности а1,...,аn определить число соседств: а)двух положительных чисел - Delphi
проверь так правельно??? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...

Найти произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4 - Lazarus
,Вычислите произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4''

Найти и вывести на экран количество нечетных чисел в заданной последовательности - Lazarus
Не могу решить задачу :cry: Ввести с клавиатуры непустую последовательность целых чисел, заканчивающуюся нулем. Найти и вывести на экран...

Найти сумму всех различных двузначных чисел из этого текста и вывести список этих чисел - Lazarus
Дан текст, состоящий из строк. Каждая строка состоит из слов и чисел, разделенных пробелами. Найти сумму всех различных двузначных чисел...

Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А,В) и стоящих на нечетных местах - Pascal ABC
Тема: &quot;Обработка элементов линейных массивов&quot;. Помогите народ, буду благодарен!!!

1
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;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2016, 07:39
Привет! Вот еще темы с ответами:

Вычислить произведение чисел, принадлежащих промежутку (A,B], и количество отрицательных чисел, стоящих на м - VBA
Помогите, не могу составить программу для всего этого. В курсе лекций толком ничего не понятно, а препод кричит &quot;Лекции читайте&quot;....

Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 - Pascal ABC
Подсчитать количество чисел, принадлежащих промежутку и сумму чисел, стоящих на местах, кратных 3.

Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M,K] - Pascal
помогите) Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку

Массивы.Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчитать количество - Pascal ABC
Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчитать количество отрицательных чисел, стоящих на местах, кратных 3.


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

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

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