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

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

Восстановить пароль Регистрация
 
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7
28.04.2011, 22:14     Перевести код с Pascal #1
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2011, 22:14     Перевести код с Pascal
Посмотрите здесь:

Перевести код с Pascal C++
C++ Перевести код Pascal на C++
Перевести код с С++ в С и Pascal C++
C++ Перевести код с Pascal
C++ Перевести код с Pascal
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
prazuber
108 / 108 / 3
Регистрация: 29.04.2010
Сообщений: 240
28.04.2011, 22:24     Перевести код с Pascal #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;
 
int main()
{
    int l[100];
    int a,b,n;
    cin>>n;
    srand(clock());
    for (int i=0; i<n; i++)
    {
        l[i] = rand()%10 - 2;
        cout<<l[i]<<' ';
    }
    cout<<endl;
    cin>>a>>b;
    bool w = false;
    for (int i=0; i<n; i++)
        if (!(l[i]%a) && l[i]%b)
            w = true;
    cout<<w;
}
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7
28.04.2011, 22:27  [ТС]     Перевести код с Pascal #3
Огромное спасибо выручили, можно еще просьбу маленькую, подскажите учебники по С++ хорошие самые
prazuber
108 / 108 / 3
Регистрация: 29.04.2010
Сообщений: 240
28.04.2011, 22:32     Перевести код с Pascal #4
Я бы посоветовал - Герберт Шилдт. Полный справочник по C++. А вообще тут недавно была тема по литературе C++.
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7
29.04.2011, 20:07  [ТС]     Перевести код с Pascal #5
PraZuBeR
Это опять можете помочь с блок схемой?
Yandex
Объявления
29.04.2011, 20:07     Перевести код с Pascal
Ответ Создать тему
Опции темы

Текущее время: 16:50. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru