Помогите с задачкой

[Denesis]

1.Привет. Возникла проблема - нужно написать маленькую программу, которая бы расчитывала доход по вкладу. Если вклад депозитный, расчет должен проводиться по формуле: сумма*срок*0,2. Если вклад накопительный, расчет проводится по формуле: сумма*срок*0,25.

2. Нужно написать программу, которая подсчитывает значение функции F=4x+a+k/3. Х меняется от -3 до 3. Для реализации поставленной задачи нужно использовать циклы repeat...until. результат выводить в компонент Label.

---------- Добавлено в 23:28 ---------- Предыдущее сообщение было написано в 23:27 ----------

Помогите, пожалуйста. Нужно очень.

[Endrew]

молодежь, давай помагай братцу, сам честно, пень - пнем

[Denesis]

up..............

[[Sality]]

На делфи нужно или на С++?

[Qiker]

молодежь, давай помагай

сейчас попробуем помочь, старичок)))

Denesis,
вроде вот так решается задача №2 на паскале:


program jj;
label 1;
var a,x,k:integer;
m,f:real;
begin
write('k=');read(k);
write('a=');read(a);
repeat
for x:= -3 to 3 do begin
f:=4*x + a +k/3;
m:=f;
if m=f then goto 1;

end;
until m<>f;
1: write('f=',f);
end.

[Чистый листочек]

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

label 1;

Зачем?

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

goto

А эта команда что делает?

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

<>

Это выражение обозначает, что m не равно f?
Ps Очень хочу научиться писать программы, вот моя тема.

[Qiker]

Чистый листочек,

2. Нужно написать программу, которая подсчитывает значение функции F=4x+a+k/3. Х меняется от -3 до 3. Для реализации поставленной задачи нужно использовать циклы repeat...until. результат выводить в компонент Label.

вот почему использовал label.
goto - всегда вместе с label
<>- да, это обозначает, что m неравно n

---------- Добавлено в 19:11 ---------- Предыдущее сообщение было написано в 19:02 ----------

Чистый листочек, я уже писал, где я , кроме школы, учился Паскалю

http://pascalstudy.narod.ru/
здесь можно изучить паскаль

обращайся в личку или в тему

[Чистый листочек]

Qiker, примерно понял, спасибо. Т.е. goto 1 записывает результат в label 1? У меня при использовании типа данных char операция <> не работает почему-то.

---------- Добавлено в 17:13 ---------- Предыдущее сообщение было написано в 17:12 ----------

Qiker, а Вы сейчас кроме паскаля ещё какие-то языки знаете? И, если знаете, трудно ли было переходить с паскаля на другой язык?

[Qiker]

Тип char (символьный). наверное поэтому и не работает

---------- Добавлено в 19:16 ---------- Предыдущее сообщение было написано в 19:15 ----------

Чистый листочек, да я и паскаль не весь знаю)))

---------- Добавлено в 19:17 ---------- Предыдущее сообщение было написано в 19:16 ----------

Label - это метки, на них ссылается оператор goto; если он используется в программе, то нужны и места, куда ссылаться, верно? Другое дело, когда используется данный оператор. В повседневной практике - довольно редко. Во многих книгах не рекомендуют его использовать. Всегда можно (и лучше) обходиться без goto.
Хотя бывают случаи, когда он удобен. Например, когда нужно выйти из нескольких циклов, ведь break рассчитан на 1 цикл. Тогда удобно использовать следующую конструкцию:
Код:

var 1: Label;
begin
...
for ....
begin
for.....
begin
for....
begin
//и здесь приспичило по условию выйти из 3 циклов. Значит...
if..... then
goto 1;
end;
end
end;
1: //и дальше остальная программа.
...
end;

[monte-kristo]

Denesis, дружище держи решенную первую задачу http://ifolder.ru/16733397