Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

помогите плиз.. надо написать в борланд паскале функцию через for (не if) геометрическую прогресию.. буду очень благодарна.

10-11 класс

Vikusya13 26 нояб. 2013 г., 18:23:18 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Omich15
26 нояб. 2013 г., 19:03:52 (10 лет назад)

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 каманд, указывая лишь номера команд

Читайте также

Помогите надо написать программу в паскале. 1)координаты двух различных полей шахматной доски x1, y1,x2, y2 (целые числа, лежащие в диапазоне 1–8).

Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое». 2) Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны». 3)Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

1. написать программу, вычисляющую значение функции y=x-24

2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0



Вы находитесь на странице вопроса "помогите плиз.. надо написать в борланд паскале функцию через for (не if) геометрическую прогресию.. буду очень благодарна.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.