|
программа
|
|
| andreich | Дата: Воскресенье, 2009-11-01, 3:08 PM | Сообщение # 16 |
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| блин у меня 3 дня не было авторизации на форуме..не мог зайти под своим ником...ппц просто..но зато у меня было время написать программу,которая работает хорошо) оцените
июнь 2009-мы творили чудеса!
|
| |
| |
| kykc | Дата: Воскресенье, 2009-11-01, 6:11 PM | Сообщение # 17 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
|
ты на чем это пишиш? чет все незнакомое, хз что это
|
| |
| |
| andreich | Дата: Воскресенье, 2009-11-01, 7:38 PM | Сообщение # 18 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| это на паскале)) а что не знакомо то?? все там нормально
июнь 2009-мы творили чудеса!
|
| |
| |
| kykc | Дата: Воскресенье, 2009-11-01, 8:35 PM | Сообщение # 19 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| дык, а нафига тебе вообще нужен интегер?, нафига А? небудит работать пока неизмениш
|
| |
| |
| andreich | Дата: Воскресенье, 2009-11-01, 8:43 PM | Сообщение # 20 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| она работает ))) Добавлено (2009-11-01, 8:43 Pm)
---------------------------------------------
kykc, ты вообще чего то программы докапался..она 100% рабочая,если ты вводишь чила больше чем в интежере можно то понятно,что она не будет работать
июнь 2009-мы творили чудеса!
|
| |
| |
| kykc | Дата: Понедельник, 2009-11-02, 9:31 AM | Сообщение # 21 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| Quote (andreich) kykc, ты вообще чего то программы докапался..она 100% рабочая,если ты вводишь чила больше чем в интежере можно то понятно,что она не будет работать
дык токда накуй нужен лонгинт? вот к примеру ввожу 65555 и получаю 19, весь итегер мешает, хоть ворд ставишь все равно 19, работает только с лонгинтом
|
| |
| |
| andreich | Дата: Понедельник, 2009-11-02, 11:26 AM | Сообщение # 22 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| kykc, я не знаю как он у тебя выдает 19..у меня 5 выдает.у тебя видимо глюк какой то...... вот и все XD? программа работает и ничего против тут не скажешь, если у тебя что то не так то видимо проблемы не в программе,проверяли люди весьма умные и разбирающиеся в этом
июнь 2009-мы творили чудеса!
|
| |
| |
| andreich | Дата: Вторник, 2009-11-10, 6:28 PM | Сообщение # 23 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| поднимаю тему эту, помогите переделать программу, заменив цикл for +if на другой,чтобы break не было, я что то не могу....
июнь 2009-мы творили чудеса!
|
| |
| |
| redberret | Дата: Вторник, 2009-11-10, 7:52 PM | Сообщение # 24 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| for i := 2 to trunc(sqrt(x)) do
if x mod i = 0 then begin
tf := True;
break;
Этот?
|
| |
| |
| andreich | Дата: Вторник, 2009-11-10, 9:44 PM | Сообщение # 25 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| да, и чтобы работало еще))
июнь 2009-мы творили чудеса!
|
| |
| |
| redberret | Дата: Среда, 2009-11-11, 2:10 PM | Сообщение # 26 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| i:=2;
tf:=true;
While (i<trunc(sqrt(x) and tf) do
begin
if x mod i <> 0 then
tf:=false;
inc(i);
end;
Сообщение отредактировал redberret - Среда, 2009-11-11, 2:10 PM |
| |
| |
| bordaper | Дата: Суббота, 2009-11-14, 10:21 AM | Сообщение # 27 |
Студент
Группа: Пользователи
Сообщений: 79
Репутация: 1
Замечания: 0%
Статус: Offline
Город: Новокузнецк
| Помогите!!! Паскаль давно был уже ничего не помню!!! Добавлено (2009-11-14, 10:21 Am)
---------------------------------------------
нужна просто программа,график не нужен
|
| |
| |
| redberret | Дата: Суббота, 2009-11-14, 1:12 PM | Сообщение # 28 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| Ничего не видно.
|
| |
| |
