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

Перевод з С++ в Паскаль)) - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Отсортировать по возрастанию элементы массива http://www.cyberforum.ru/cpp-beginners/thread267435.html
В массиве А каждый элемент изменяется в пределах от 0 .. 20. Отсортировать по возрастанию. C++
C++ Программа подсчёта битов Добрый вечер, кто не спит! Скажите пожалуйста, я вот написал программку, по условию она должна считать количество битов "00" (пар нолей) целого числа. Но когда ввожу тестовое число 2565989889 то ответ не правильный. Может ли кто-то подсказать с чем это связано и как следует подкоректировать программу. Вот код : #include <iostream> #include <cstdlib> #include <stdio.h> #include <conio.h>... http://www.cyberforum.ru/cpp-beginners/thread267432.html
C++ EUREKA
Подскажите где можно скачать прогу EUREKA 64-bit???
Классы и объекты на С++ C++
Задание: Класс Triangle (треугольник). Класс хранит Декартовы координаты трех углов треугольника. Конструктор принимает три группы координат. Должны быть предусмотренные функции-элементы, которые вычисляют периметр и площадь, а также функция, которая проверяет или треугольник является прямоугольным. Условия: Написать нужно на С++, координаты вводить нужно самому, объявление класса в файле(.h)...
C++ элемент массива http://www.cyberforum.ru/cpp-beginners/thread267391.html
Удалить из вещественного массива элементы, наименее отличающиеся от его среднего арифметического. Создать функции для вычисления среднего значения элементов массива и удаления элемента. вот что у меня получилось #include <iostream.h> #include <conio.h> #include <stdio.h> #include <alloc.h> float Sred(float *b, int size) { int i;
C++ Ошибка в Visual Studio 2010 Здравствуйте, буду признателен, если поможете разобраться) Установил вот Visual Studio 2010, решил опробовать, а он при компиляции вот что выдает: с чем это может быть связано?) подробнее

Показать сообщение отдельно
rangerx
1908 / 1517 / 139
Регистрация: 31.05.2009
Сообщений: 2,876
31.03.2011, 11:39     Перевод з С++ в Паскаль))
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
27
28
29
30
program prog;
 
const
   N = 67;
 
var
  p,q,i: integer;
  a: array[1..N] of integer;
 
begin
  Write('p = ');
  ReadLn(p);
 
  Write('q = ');
  ReadLn(q);
 
  WriteLn('Введiть масив елементiв');
  for i:= 1 to N do begin
    Write('[', i, '] = ');
    ReadLn(a[i]);
  end;
 
  for i:= 1 to N do
    if(a[i] mod p = q) then a[i]:= 0;
 
  for i:= 1 to N do
    Write(a[i]:5);
 
  WriteLn;
end.
 
Текущее время: 22:41. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru