Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/34: Рейтинг темы: голосов - 34, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 5
1

Вводится последовательность натуральных чисел. Признак конца ввода – 0. определить является ли последовательность геометрической прогрессией

11.10.2013, 18:51. Просмотров 6250. Ответов 1
Метки нет (Все метки)


Помогите пожалуйста написать программу на языке Паскаль, без использования массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2013, 18:51
Ответы с готовыми решениями:

Вводится последовательность чисел. Признак конца ввода – число 777.
Вводится последовательность чисел. Признак конца ввода – число 777. Записать алгоритм решения...

Определить, является ли последовательность из n чисел геометрической прогрессией
Помогите пожалуйста с циклами: 1) Определить являться ли последовательность из n чисел...

Определить, является ли последовательность геометрической прогрессией
Дана последовательность целых чисел. Окончание последовательности - число 9999(число 9999 в...

Определить, является ли последовательность геометрической прогрессией
Вводится последовательность натуральных чисел. Ноль - признак конца. Определить, является ли она...

1
55 / 52 / 58
Регистрация: 04.04.2013
Сообщений: 102
11.10.2013, 20:39 2
Лучший ответ Сообщение было отмечено stalker7 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var z1,z2,z3,a,b:real;
begin
clrscr;
write('Vvedite posledovatelnost: ');
read(a,b);
z2:=b/a;
repeat
read(a);
if a<>0 then
   begin
   z1:=a/b;
   b:=a;
   z3:=z1;
   end;
until (a=0) or (z3<>z2);
if z3=z2 then writeln('Posledovatelnost geometricheskaya')
else writeln('Posledovatelnost ne geometricheskaya');
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.10.2013, 20:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить, является ли вводимая последовательность геометрической прогрессией
С клавиатуры вводятся вещественные числа. Признак конца ввода – 0. Определить, является ли вводимая...

Определить является ли данная последовательность геометрической прогрессией
Добрый день! Помогите пожалуйста с задачей. Надо сделать во Free Pascal БЕЗ использования массива....

Определить, является ли введенная последовательность геометрической прогрессией
С клавиатуры вводится последовательность целых чисел, признаком конца ввода является 0, определить...

Определить является ли введенная последовательность геометрической прогрессией
С клавиатуры вводится последовательность целых чисел, признаком конца ввода является 0, определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.