помогите плиз.. надо написать в борланд паскале функцию через 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. Следование
2. Ветвление
3. Переход
4. Цикл-пока
Читайте также
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