Вывести члены арифметической прогрессии, которые не превышают 100, с заданым начальным членом и шагом

@Granrage · Регистрация: 26.09.2016

Студворк — интернет-сервис помощи студентам

Вывести члены арифметической прогрессии, которые не превышают 100, с заданым начальным членом и шагом.

Добавлено через 6 минут
(Через цикл while)Помогите пожалуйста.

Добавлено через 15 часов 59 минут
Помогите!

Добавлено через 4 часа 31 минуту
Нужна помощь,срочно!

@cfbogd · 17.01.2017, 21:09

Granrage, ща посмотрим, не волнуйтесь

@Granrage · 17.01.2017, 21:13 **[ТС]**

мне его еще просто желательно сделать через два цикла,через while и for(тип в один код это все сделать)

Добавлено через 53 секунды
все задания уже сделал,а на этом завис

@cfbogd · 17.01.2017, 21:15

Granrage,

Pascal

var a1,d,k:integer;
begin
k:=1;
repeat writeln('Введите a[1] - '); read(a1); until a1 in [0..99];
repeat writeln('Введите d    - '); read(d);  until d  in [1..99];
while (a1<=100) do
begin
writeln('a[',k,']=',a1);
a1:=a1+d; inc(k);
end;
end.

@Granrage · 17.01.2017, 21:18 **[ТС]**

Сообщение от cfbogd

не волнуйтесь

Можете еще сделать это через оператор for и что бы это все в одном коде было,пожалуйста.

@cfbogd · 17.01.2017, 21:20

Сообщение от Granrage

и что бы это все в одном коде было,пожалуйста.

и while и for ? в одном коде?
____________
аналогичный код с использованием цикла for:

Pascal

var a1,d,k,i:integer;
begin
k:=1;
repeat writeln('Введите a[1] - '); read(a1); until a1 in [0..99];
repeat writeln('Введите d    - '); read(d);  until d  in [1..99];
for i:=0 to 100 do
begin
writeln('a[',k,']=',a1);
a1:=a1+d; inc(k);
if a1>100 then break;
end;
end.

@Granrage · 17.01.2017, 21:45 **[ТС]**

Спасибо большое!

Добавлено через 28 секунд
Оказывается оно проще чем я думал.Моя паника меня когда-то доведет.

Добавлено через 55 секунд

Сообщение от cfbogd

и while и for ? в одном коде?

ну да,тип что бы как две проги в одной было.
то есть сначала идет код на while который все считает,а после него тоже самое только с for

Добавлено через 20 минут

Сообщение от cfbogd

аналогичный код с использованием цикла for:

Можете помочь еще с одной прогой?Пожалуйста.Просто тот бред который я написал отказывается работать.
Тема:В последовательности чисел найти произведение чисел, кратных 3

@cfbogd · 17.01.2017, 21:46

Сообщение от Granrage

сначала идет код на while который все считает,а после него тоже самое только с for

Кликните здесь для просмотра всего текста

Pascal

var a1,d,k,i:integer;
begin
k:=1;
writeln('С ПОМОЩЬЮ ЦИКЛА WHILE:');
writeln;
repeat writeln('Введите a[1] - '); read(a1); until a1 in [0..99];
repeat writeln('Введите d    - '); read(d);  until d  in [1..99];
while (a1<=100) do
begin
writeln('a[',k,']=',a1);
a1:=a1+d; inc(k);
end;
writeln;
writeln('С ПОМОЩЬЮ ЦИКЛА FOR:');
writeln;
k:=1;
repeat writeln('Введите a[1] - '); read(a1); until a1 in [0..99];
repeat writeln('Введите d    - '); read(d);  until d  in [1..99];
for i:=0 to 100 do
begin
writeln('a[',k,']=',a1);
a1:=a1+d; inc(k);
if a1>100 then break;
end;
end.

@Granrage · 17.01.2017, 21:48 **[ТС]**

Ну я бы уже и сам с этим моментом справился бы))
Большое спасибо.Но мне нужна еще помощь,в Теме:В последовательности чисел найти произведение чисел, кратных 3

@Granrage · 19.01.2017, 19:55 **[ТС]**

Сообщение от cfbogd

for i:=0 to 100 do

а что делает данная строчка?

@cfbogd · 19.01.2017, 19:57

Сообщение от Granrage

а что делает данная строчка?

запускает выполнение тела цикла з 0 до 100 (101 раз)

@Granrage · 19.01.2017, 20:00 **[ТС]**

Сообщение от cfbogd

запускает выполнение тела цикла з 0 до 100 (101 раз)

я просто не совсем могу понять как мне это в блок-схеме отобразить

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	19.01.2017, 19:57	11
	Сообщение от Granrage а что делает данная строчка? запускает выполнение тела цикла з 0 до 100 (101 раз) 0

@Granrage 1 / 1 / 1 Регистрация: 26.09.2016 Сообщений: 146
	19.01.2017, 20:00 [ТС]	12
	Сообщение от cfbogd запускает выполнение тела цикла з 0 до 100 (101 раз) я просто не совсем могу понять как мне это в блок-схеме отобразить 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	17.01.2017, 21:09	2
	Granrage, ща посмотрим, не волнуйтесь 0

@Granrage 1 / 1 / 1 Регистрация: 26.09.2016 Сообщений: 146
	17.01.2017, 21:13 [ТС]	3
	мне его еще просто желательно сделать через два цикла,через while и for(тип в один код это все сделать) Добавлено через 53 секунды все задания уже сделал,а на этом завис 0

@Granrage 1 / 1 / 1 Регистрация: 26.09.2016 Сообщений: 146
	17.01.2017, 21:18 [ТС]	5
	Сообщение от cfbogd не волнуйтесь Можете еще сделать это через оператор for и что бы это все в одном коде было,пожалуйста. 0

@Granrage 1 / 1 / 1 Регистрация: 26.09.2016 Сообщений: 146
	17.01.2017, 21:45 [ТС]	7
	Спасибо большое! Добавлено через 28 секунд Оказывается оно проще чем я думал.Моя паника меня когда-то доведет. Добавлено через 55 секунд Сообщение от cfbogd и while и for ? в одном коде? ну да,тип что бы как две проги в одной было. то есть сначала идет код на while который все считает,а после него тоже самое только с for Добавлено через 20 минут Сообщение от cfbogd аналогичный код с использованием цикла for: Можете помочь еще с одной прогой?Пожалуйста.Просто тот бред который я написал отказывается работать. Тема:В последовательности чисел найти произведение чисел, кратных 3 0

@Granrage 1 / 1 / 1 Регистрация: 26.09.2016 Сообщений: 146
	17.01.2017, 21:48 [ТС]	9
	Ну я бы уже и сам с этим моментом справился бы)) Большое спасибо.Но мне нужна еще помощь,в Теме:В последовательности чисел найти произведение чисел, кратных 3 0

@Granrage 1 / 1 / 1 Регистрация: 26.09.2016 Сообщений: 146
	19.01.2017, 19:55 [ТС]	10
	Сообщение от cfbogd for i:=0 to 100 do а что делает данная строчка? 0

Опции темы