помогите плиз.. надо написать в борланд паскале функцию через for (не if) геометрическую прогресию.. буду очень благодарна.
10-11 класс
|
var
a,b,i,j:Integer;
begin
Writeln('Vvedite znachenie znamenatelya');
Readln(b);
Writeln('Vvedite kol-vo chlenov geometricheskoi progressii');
Readln(a);
j:=1;
write (j, ' ');
for i:=1 to a do
begin
j:= j * b ;
write(j,' ');
end;
Readln;
end.
Надеюсь, я Вам помог)
Другие вопросы из категории
1. умножь на 3
2. вычти 4
Запишите порядок команд в программе получения из числа 5 числа 17, содержащей не более 6 каманд, указывая лишь номера команд
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое». 2) Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны». 3)Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0