Процедура

[maxwel6064]

Доброго времени суток. Нужна ваша небольшая помощь с процедурой. Условие задачи:

Среди натуральных чисел из интервала [a;b] числа больше 100, найти те, у которых сумма первой и последней цифры равна введенному числу k. Вот мой код:

program Noname2;
 var a,b,i,k,s:integer;
 procedure interval(c3,c2,c1:integer);
 begin
 while i>100 do
 c3:=i mod 10;
 c2:=i mod 10 div 10;
 c1:=i div 100;
 s:=c3+c1;
 end;
begin
readln(a,b);
readln(k);
for i:=a to b do
 if s=k then
 writeln(i);
end.

По идее делаю все правильно и должно работать, но почему-то идет. Был бы очень благодарен, если кто-нибудь смог исправить ее или может быть вы можете предложить свой вариант решения задачи.

[Stilet]

 procedure valid(n,k:integer);
 var s:string;q,w,e:integer;
 begin
  str(n,s);val(s[1],q,e);val(s[Length(s)],w,e);
  if (q+w)=k then число n подходит
 end;

Идея понятна? - преобразовать число в строку и работать с его цифрами как с элементами массива

[maxwel6064]

Stilet, данный вариант мне к сожалению не подходит, т.к нужно использовать массивы и переменный string типа, только integer..

[evg_m]

begin
readln(a,b);
readln(k);
for i:=a to b do
 if s=k then
 writeln(i);
end.

а где вызов процедуры interval?

[maxwel6064]

evg_m, это нужно сделать так: interval()? Прощу прощения за очень глупые вопросы, просто в первый раз делаю программу с использованием функции.

[evg_m]

for i:=a to b do BEGIN
 interval(c1, c2, c3); 
 if s=k then
 writeln(i);
END;
end.

переделал вашу процедуру в функцию и ввел локальные переменные.
в коде функции убрал некоторые строки. причина такого в комментариях.

program Noname2;

function interval(val; integer): boolean;
 var c1 {, c2}, c3: integer;
begin
// while val>100 do очень вредная ЗДЕСЬ строчка (будет бесконечный цикл)
 c3:=val mod 10;
// c2:=val mod 10 div 10; бесполезная ЗДЕСЬ строчка (с2 нам нигде не нужно)
 c1:=val div 100;
 interval:=c3+c1; //получаем результат работы (сумма первой и последней цифр)
//  функция будет работать верно только для трехзначных чисел
end;

var
 a, b, k, i: integer;
begin
readln(a,b);
readln(k);
for i:=a to b do
// как использовать нашу функцию
 if interval(i)=k then //сравниваем результат функции с числом 
 writeln(i);
end;

окончательный код не тестировал.

[maxwel6064]

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

for i:=a to b do BEGIN
 interval(c1, c2, c3); 
 if s=k then
 writeln(i);
END;
end.

переделал вашу процедуру в функцию и ввел локальные переменные.
в коде функции убрал некоторые строки. причина такого в комментариях.

program Noname2;

function interval(val; integer): boolean;
 var c1 {, c2}, c3: integer;
begin
// while val>100 do очень вредная ЗДЕСЬ строчка (будет бесконечный цикл)
 c3:=val mod 10;
// c2:=val mod 10 div 10; бесполезная ЗДЕСЬ строчка (с2 нам нигде не нужно)
 c1:=val div 100;
 interval:=c3+c1; //получаем результат работы (сумма первой и последней цифр)
//  функция будет работать верно только для трехзначных чисел
end;

var
 a, b, k, i: integer;
begin
readln(a,b);
readln(k);
for i:=a to b do
// как использовать нашу функцию
 if interval(i)=k then //сравниваем результат функции с числом 
 writeln(i);
end;

окончательный код не тестировал.

А возможно ли это сделать с использованием процедуры? Просто сейчас проходим процедуру, поэтому можно использовать только процедуру.