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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++/CLI WinForms Попытка чтения или записи в защищенную память http://www.cyberforum.ru/cpp-beginners/thread160584.html
Добрый день! Вылетает на delete, возникла какая то проблема с памятью, только вот какая ? private: System::Void button3_Click(System::Object^ sender, System::EventArgs^ e) { Bitmap^ bm; Matrix mnew(30,30); Matrix mint(30,30); Matrix mas(30,30); char *p=new char; int k=6;
C++ Не могу найти материала для работы с графическими файлами. Мне давно не дает уснуть проблема: хочу написать прогу которая считает с диска рисунок и вставить его в консоль. В инете смотрел вроде можно вставить BMP формата, ну как то очень сложно да и примеров никаких не нашел. Надеюсь здесь мне помогут. Язык С\С++. Если кто разобралса, дайте код. ПРОГА - ЛУЧШИЙ ПРЕПОД!!!! http://www.cyberforum.ru/cpp-beginners/thread160561.html
C++ Имлонтирование DLL к проекту
Доброго времени суток форумчане программисты. Подскажите легкий способ имплонтирования dll библиотеки и вызывать из нее функции.
C++ Функция для считывания нажатых клавиш.
Подскажите какую нибудь функцию которая бы считывала все нажатия клавиш? Например чтоб запустить приложение WIN32 и чтоб она считывала все нажатия клавиш.
C++ Конвертация числа в строку http://www.cyberforum.ru/cpp-beginners/thread160488.html
Всем привет, я на форуме только что зарегистрировался и многого не знаю, так что если я создал тему не в том разделе и нарушил что-то, то скажите, а теперь к делу: Можете мне подсказать функцию в C++, которая конвертирует число в строку?
C++ Запись в текстовое поле сторонней программы В какой-то программе есть поле для ввода текста как выбрать программу и записать в поле определенный текст? подробнее

Показать сообщение отдельно
iama
 Аватар для iama
1249 / 974 / 48
Регистрация: 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;
 
Текущее время: 10:41. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru