Помогите, пожалуйста, с программой в Паскале

Андрей Романюк · 13.05.2011, 19:41

среди чисел последовательности 1,2,4,8,16,32...найти количество чисел до первого шестизначного
я сделал так, но он не выводит правильный ответ:
program r_91;
uses crt;
var k:integer;{кол-во элементов}
el:integer;{элемент ряда}
begin
clrscr;
el:=1;
k:=0;
repeat el:=el*2;
k:=k+1;
until el>100000;
writeln(k);
readln;
end.
что не так? спасибо заранее)))

Vladimir_S · 13.05.2011, 20:12

Цитата:

Сообщение от Андрей Романюк

что не так? спасибо заранее)))

В принципе, всё так, кроме типа переменной el. Дело в том, что максимальное значение переменной типа Integer составляет 32767. Поэтому переменная el должна быть типа Longint (максимальное значение - 2147483647).

Андрей Романюк · 13.05.2011, 21:26

ммм...понятно, спасибо огромное)))

Vladimir_S · 13.05.2011, 21:40

Цитата:

Сообщение от Андрей Романюк

ммм...понятно, спасибо огромное)))

Кстати, если почему-либо не нравится Longint, то можно поставить Real. Тоже годится.

Андрей Романюк · 16.05.2011, 21:10

да нет наоборот, целое число лучше чем вещественное, у меня почему-то мозгов не хватило что integer слишком маленький диапазон охватывает(((((((

13.05.2011, 19:41	#1 (permalink)
Андрей Романюк Member Регистрация: 13.05.2011 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, с программой в Паскале среди чисел последовательности 1,2,4,8,16,32...найти количество чисел до первого шестизначного я сделал так, но он не выводит правильный ответ: program r_91; uses crt; var k:integer;{кол-во элементов} el:integer;{элемент ряда} begin clrscr; el:=1; k:=0; repeat el:=el*2; k:=k+1; until el>100000; writeln(k); readln; end. что не так? спасибо заранее)))

13.05.2011, 21:26	#3 (permalink)
Андрей Романюк Member Регистрация: 13.05.2011 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ммм...понятно, спасибо огромное)))

16.05.2011, 21:10	#5 (permalink)
Андрей Романюк Member Регистрация: 13.05.2011 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	да нет наоборот, целое число лучше чем вещественное, у меня почему-то мозгов не хватило что integer слишком маленький диапазон охватывает(((((((

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070