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

очень ..НАдо... - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Обработка события нажатия клавиши мыши в консоли http://www.cyberforum.ru/cpp-beginners/thread267145.html
Здравствуйте господа програмисты!!!Может кто нибудь написать элементарный исходник в консольном приложении когда нажимается левая кнопка он что нибудь пишет и так же для правой кнопки,если можно с коментариями,но если не охото хотя бы исходник.Пробывал разобраться сам,через объяснение в интернете,но что то не чего не вышло. Заранее всем огромное спасибо!!! Добавлено через 1 час 39 минут жаль...
C++ Сортировка времени. Требуется выполнить сортировку временных моментов, заданных в часах, минутах и секундах. Входные данные Во входном файле INPUT.TXT в первой строке записано число N (1<=N<=100), а в последующих N строках N моментов времени. Каждый момент времени задается 3 целыми числами - часы (от 0 до 23), минуты (от 0 до 59) и секунды (от 0 до 59). Выходные данные В выходной файл OUTPUT.TXT выведите... http://www.cyberforum.ru/cpp-beginners/thread267144.html
C (ряды) C++
помогите решить: то я чет ваще не в курсе как здесь решить=(
C++ Как перевести на С++
if (k % 2 != 0) { /* Определяем перемещение дисков для нечетного хода */ switch (t % 3) { /* Выбираем перемещение в зависимости от данного условия */ case 0: printf("%d -> %d\n", axisX, axisY); break; case 1: printf("%d -> %d\n", axisY, axisZ); break; case 2:
C++ C (циклы) http://www.cyberforum.ru/cpp-beginners/thread267140.html
помогите пожалуйста решить:
C++ Нужно переписать код в паскаль #include "stdafx.h" #include <iostream> using namespace std; bool simple(int x) { for (int i=2; i<=(x/2);i++) { if (!(x%i)) { подробнее

Показать сообщение отдельно
LaГushan
123 / 123 / 14
Регистрация: 12.03.2011
Сообщений: 227
30.03.2011, 19:10     очень ..НАдо...
Работоспособность не проверял, но по идеи, должно работать
Pascal
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
26
function simple(x:Integer):Boolean;
var
i:integer;
begin
    simple:= true;
    for i := 2 to (x div 2) do
    if (x mod i=0)then
       simple:= false;
end;
var
a,b,i:Integer;
begin
write('Enter a->');
read(a);
write('Enter b->');
read(b);
 
writeln('Result ->');
for i:=a to b do
begin
 if( simple(i) and (i >= 2))then
  write(i:3);
 end;
 writeln(' ');
 readln(a);
end.
 
Текущее время: 15:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru