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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7
#1

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

28.04.2011, 22:14. Просмотров 353. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2011, 22:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести код с Pascal (C++):

Перевести код с Pascal - C++
program lab4; var i,j,jmax:integer; a:array of real; b:array of real; k,max,s:real; begin for i:=1 to 5 do for j:=1 to 4 do...

Перевести код из Pascal в с++ - C++
Нужно перевести из паскаля в с++ две программы, кот. интегрируют методом симсона и трапеций соответственно. Заранее спасибо, форумчане)) ...

Перевести код Pascal на C++ - C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy, u : array of integer; ...

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...

Перевести код с Pascal - C++ - C++
Перевести код с Pascal на C++ var a,b: Integer; sim: String; begin Readln(a); Readln(sim); Readln(b); if sim='&gt;'...

Перевести код с Pascal - C++
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite B='); readln(b); If a&gt;b...

4
prazuber
110 / 110 / 3
Регистрация: 29.04.2010
Сообщений: 240
28.04.2011, 22:24 #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;
}
1
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7
28.04.2011, 22:27  [ТС] #3
Огромное спасибо выручили, можно еще просьбу маленькую, подскажите учебники по С++ хорошие самые
0
prazuber
110 / 110 / 3
Регистрация: 29.04.2010
Сообщений: 240
28.04.2011, 22:32 #4
Я бы посоветовал - Герберт Шилдт. Полный справочник по C++. А вообще тут недавно была тема по литературе C++.
0
strannik_kz
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 7
29.04.2011, 20:07  [ТС] #5
PraZuBeR
Это опять можете помочь с блок схемой?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2011, 20:07
Привет! Вот еще темы с ответами:

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

Перевести код с Pascal - C++
пожалуйста помогите перевести код с паскаля в с++ uses crt; var N,M:longint; k:byte; begin clrscr; write('N=');readln(n); ...

Перевести код из Pascal на С++ - C++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam: String; pred: String; st: Byte; nagr: Byte; ...

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru