Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 2
1

Подскажите с числами

17.12.2013, 18:36. Просмотров 367. Ответов 4
Метки нет (Все метки)

Delphi
1
2
3
4
5
var
 i: Integer;
begin
for i:= 151000000000 to 151000000100 do
Memo1.Lines.Add(IntToStr(i));
выводит в мемо от 676144640 до 676144740. далжно от 151000000000 до 151000000100.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 18:36
Ответы с готовыми решениями:

Подскажите с числами в файле.
Необходимо было создать файл который содержит в себе корни чисел от 1 до 10 - это(косо-криво) я...

Подскажите алгоритм работы с очень длинными числами
Товарищи програмисты подскажите пожалуйсто алгоритм (или книгу где этот алгоритм изложен) для...

Вывести на экран числа, являющиеся одновременно простыми числами и числами Фибоначчи
Помогите составить программу: С клавиатуры вводится натуральное число N(N<=1 000 000 000)....

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

4
fatal error
136 / 128 / 29
Регистрация: 10.04.2012
Сообщений: 357
17.12.2013, 19:17 2
Вроде так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 i,i2:int64;
begin
i:= High(int64);
i2:= High(int64);
i:=   151000000000;
i2 := 151000000100;
while i<=i2 do
begin
Memo1.Lines.Add(IntToStr(i));
inc (i);
 
end;
end;
Добавлено через 23 минуты
Цитата Сообщение от U_Dimas Посмотреть сообщение
i:= High(int64);
i2:= High(int64)
Упс, вот эти две строчки не нужны
1
0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 2
17.12.2013, 20:00  [ТС] 3
спасибо. сделал. хотел еще сделать вот так:
Delphi
1
2
i:= strtoint(edit1.text);
i2:= strtoint(edit2.text);
пишет ошибка: "151000000000" is not a valid integer value.
0
fatal error
136 / 128 / 29
Регистрация: 10.04.2012
Сообщений: 357
17.12.2013, 20:07 4
Delphi
1
 i:= StrToInt64 (Edit1.Text);
1
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
18.12.2013, 07:46 5
Цитата Сообщение от gerasim99 Посмотреть сообщение
спасибо. сделал. хотел еще сделать вот так:
Delphi
1
2
i:= strtoint(edit1.text);
i2:= strtoint(edit2.text);
пишет ошибка: "151000000000" is not a valid integer value.
Integer не поддерживает такое большое число (151000000000)
Диапазон Integer от -2 147 483 648 до + 2 147 483 647
У Int64 от -(2^63), до +(2^63-1) как раз что тебе нужно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2013, 07:46

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

Создать стек со случайными целыми числами. Удалить из него записи с четными числами.
Создать стек со случайными целыми числами. Удалить из него записи с четными числами.

Текстовый файл с вещественными числами сравнить с числами массива
Добрый день! Огромная просьба помочь с программой. Дан текстовый файл с вещественными числами....

Найти все натуральные числа меньше N, которые одновременно являются числами Фибоначчи и простыми числами
Дано натуральное число N. Найти все натуральные числа меньше N, которые одновременно являются...

Найти все натуральные числа меньше N, которые одновременно являются числами Фибоначчи и простыми числами.
Дано натуральное число N. Найти все натуральные числа меньше N, которые одновременно являются...


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

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

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