Задачка!

[Mr.User]

Хотелось бы получить помощь! Помогите пожалуйста с такой вот симпатичной задачкой:

Вводятся начальный член и шаг арифметической прогрессии. Вводится также число. Определить, принадлежит ли введенное число арифметической прогрессии с введенными начальным членом и шагом.
Спасибо!

[Abbatik]

uses crt;
var st,a,maxinteger,u,sh:integer;
label 1;
begin
clrscr;
write('nachalnii chlen=');
readln(st);
write('shag=');
readln(sh);
write('chislo=');
readln(a);
u:=st;
maxinteger:=65535;
while (u<maxinteger) do begin
u:=u+sh;
if a=u then begin writeln('yes'); goto 1; end;
end;
writeln('no');
1:
readkey;
end.

онлайн пишу могут быть ошибки

[mihali4]

[OFFTOP]Abbatik-у
Вне зависимости от уровня ваших знаний.
Поймите - дача готовых решений отнюдь не стимулирует вопрошающего к изучению программирования, наоборот - приучает к "халяве".
Может, не стоит? Мы постепенно стараемся переходить к помощи консультациями, а не готовыми решениями... Если вы согласны, примите это к сведению. Отвечать не нужно. Флуда и так хватает. И я тоже грешен... [/OFFTOP]

[Mr.User]

Большое СПАСИБО!
По поводу замечания: В принципе это всё верно! Никто не спорит! Но бывают случаи, когда действительно помощь нужна в виде готового кода! Вот приведу готовый пример: Ситуация, когда я обратился с просьбой помочь сделать вывод в СтрингГрид! Там единственным здравым вариантом помощи, - будет написать часть кода процедуры! Как это можно объяснить "на пальцах"???
Мне пришлось переделать данный код, под определённую процедуру, но программа не запускается!
Что здесь не так???

procedure TForm1.Button1Click(Sender: TObject);
var st,a,u,sh,max:integer;
begin
st:=StrToInt(Edit1.Text);
sh:=StrToInt(Edit2.Text);
a:=StrToInt(Edit3.Text);
u:=st;
max:=65535;
while (u<max) do begin
u:=u+sh;
if a=u then
Label1.Caption:=('Yes!');
else begin
Label1.Caption:=('No!');
end;
end;
end;

[Alex21]

Label1.Caption:=('Yes!');//знак перед else не нужен
else begin

[mihali4]

Уважаемый Mr.User! Я ни в коем случае не хотел, чтобы мое высказывание задело именнно вас.
Вышеприведенное - плод моих фантазий... Жаль, что несбыточных. Ибо, помимо таких, как вы, приходит "агромадное" количество просто лентяев, которым и помогать-то совсем не хочется...
Они задают вопрос (даже не вопрос, а требование - вроде "нужно решить задачу")...
А с какого... ЛУЯ?
Если ты - тупой, плати бабки (тут полно студентов, которым они не помешают, за их-то замечательные мозги), так?
Жаль, что я не модерирую "скубентов"...
У меня бы они строем ходили...

[Alex21]

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

Жаль, что я не модерирую "скубентов"...
У меня бы они строем ходили...

Это можно устроить

[Mr.User]

Как довести "до ума" данный код? Или он безнадёжен?

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,i:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
while (c>a+b) do begin
i:=a+b;
if i=c then
Label1.Caption:=('Yes!')
else begin
i:=i+b;
if i+b>c then
Label1.Caption:=('No!');
end;
end;

[Abbatik]

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

Ибо, помимо таких, как вы, приходит "агромадное" количество просто лентяев, которым и помогать-то совсем не хочется...
Они задают вопрос (даже не вопрос, а требование - вроде "нужно решить задачу")...
А с какого... ЛУЯ?
Если ты - тупой, плати бабки (тут полно студентов, которым они не помешают, за их-то замечательные мозги), так?
Жаль, что я не модерирую "скубентов"...

Согласен!
Хоть бы отзывы оставляли!