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

Перевести код с Pascal - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Работа с файлами, все работает не могу лишь реализовать вывод мромежуточной матрицы http://www.cyberforum.ru/cpp-beginners/thread285443.html
вот прога на работу с файлами, она работает, проблема только в том, что не могу реальзовать вывод промежуточной матрицы, заполненной рандомно Сама задача заключается вот в чем: Создать текстовый...
C++ Список В списке целых чисел подсчитать количество локальных минимумов, вывести их номера. Локальный минимум a_(i-1)>a_i<a_(i+1). http://www.cyberforum.ru/cpp-beginners/thread285422.html
Функция:выбрасывает из списка одинаковые элементы. C++
Нужно написать функцию,которая выбрасывает из списка одинаковые элементы.Помогите)
Множества C++
Добрый вечер! Помогите пожалуйста с задачей. Для заданного массива из N целых чисел построить все подмножества, определить суммы элементов каждого подмножества.
C++ Функции http://www.cyberforum.ru/cpp-beginners/thread285391.html
первое задание: Написать и отладить программу, которая использует функции, алгоритм которых определяется вариантом. Тексты функций определить в программе. В функции main определить необходимые...
C++ Наследование?! привет всем. Есть класс Circle c1, c2, c3 Нужно реализовать через наследование класс множество, прошу помочь как он будет выглядеть .h для set. Set set1(c1), set2(c1,c2). подробнее

Показать сообщение отдельно
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7

Перевести код с Pascal - C++

28.04.2011, 22:14. Просмотров 343. Ответов 4
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
l:array[1..100] of integer;
a,b,n,i:integer;
w:boolean;
begin
readln(n);
randomize;
for i:=1 to n do
begin
l[i]:=random(10)-3;
write(l[i]:3);
end;
writeln;
readln(a,b);
w:=false;
for i:=1 to n do
if (l[i] mod a=0) and (l[i] mod b<>0) then
begin
w:=true;
end;
writeln(w);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru