Форум программистов, компьютерный форум CyberForum.ru

Простые числа - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Не могу найти материала для работы с графическими файлами. http://www.cyberforum.ru/cpp-beginners/thread160561.html
Мне давно не дает уснуть проблема: хочу написать прогу которая считает с диска рисунок и вставить его в консоль. В инете смотрел вроде можно вставить BMP формата, ну как то очень сложно да и примеров никаких не нашел. Надеюсь здесь мне помогут. Язык С\С++. Если кто разобралса, дайте код. ПРОГА - ЛУЧШИЙ ПРЕПОД!!!!
C++ Имлонтирование DLL к проекту Доброго времени суток форумчане программисты. Подскажите легкий способ имплонтирования dll библиотеки и вызывать из нее функции. http://www.cyberforum.ru/cpp-beginners/thread160556.html
C++ Реверсированный список
Ребятки, хелпаните! Через указатели желательно, надо не по простому варианту) Написать списочек, в который мы вводим данные, а на выходе у нас введенные данные, но в обратном порядке.. Я как понял надо еще один список создать для данных, которые выходять в обратном порядке?!
C++ Функция для считывания нажатых клавиш.
Подскажите какую нибудь функцию которая бы считывала все нажатия клавиш? Например чтоб запустить приложение WIN32 и чтоб она считывала все нажатия клавиш.
C++ Конвертация числа в строку http://www.cyberforum.ru/cpp-beginners/thread160488.html
Всем привет, я на форуме только что зарегистрировался и многого не знаю, так что если я создал тему не в том разделе и нарушил что-то, то скажите, а теперь к делу: Можете мне подсказать функцию в C++, которая конвертирует число в строку?
C++ Запись в текстовое поле сторонней программы В какой-то программе есть поле для ввода текста как выбрать программу и записать в поле определенный текст? подробнее

Показать сообщение отдельно
iama
1249 / 974 / 49
Регистрация: 30.07.2010
Сообщений: 5,297
20.08.2010, 17:25     Простые числа
есть, только на делфи, перевести нетрудно.
Решение на Delphi
разложить на составные:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.bbDelClick(Sender: TObject);
var
i,c, us : cardinal;
begin
us := seDel.Value;
if us >= 500000000 then
  if Application.MessageBox('Для вычислений потребуется достаточно много времени.' + #13 +'Вы согласны продолжить?','High Speed Calculations',MB_ICONEXCLAMATION + MB_YESNO) = mrNo then exit;
Screen.Cursor := crHourglass;
Application.ProcessMessages;
c := 0;
lbDel.Clear;
for i := 1 to us do begin
  if i > us div 2 then begin
    c := c + 1;
    lbDel.Items.Add(IntToStr(c) + ' делитель = ' + IntToStr(us));
    break;
  end;
  if us mod i = 0 then begin
    c := c + 1;
    lbDel.Items.Add(IntToStr(c) + ' делитель = ' + IntToStr(i));
    if us >= 500000000 then Application.ProcessMessages;
  end;
end;
Screen.Cursor := crDefault;
end;
найти н простых чисел:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.bbProstClick(Sender: TObject);
var
pv, pd, dl : cardinal;
begin
if (seMax.Value - seLow.Value) > 10000 then
  if Application.MessageBox('Для вычислений потребуется достаточно много времени.' + #13 +'Вы согласны продолжить?','High Speed Calculations',MB_ICONEXCLAMATION + MB_YESNO) = mrNo then exit;
lbProst.Clear;
dl := 0;
for pv := seLow.Value + 1 to seMax.Value do begin
  for pd := 1 to pv do begin
    if Int(pv / pd) = pv / pd then dl := dl + 1;
  Application.ProcessMessages;
  end;
  if dl = 2 then lbProst.Items.Add('Простое число '+ IntToStr(pv));
  dl := 0;
end;
end;
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru