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

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

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

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

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

Перевести код с Pascal - C++
var x,y: real; begin write('Введите x, y: '); readln(x,y); if ((sqr(x)/4)+(sqr(y)/1)&lt;=1) and (x&lt;=-1) or...

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

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

Перевести код из Pascal в С++ - C++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение бесконечной суммы cos(x) = 1 - x^2/2! +...

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

Перевести код с Pascal - C++
procedure Max_el_matr; label 1; begin max_el:=A; p:=2; q:=1; for i:=2 to RazmMatr do begin ...

Перевести код c Pascal в C++ - C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a&lt;(b+c) then Fun:=true else Fun:=false; end; var ...

Перевести код с 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++
var m,n,i,k: longint; flag: boolean; begin writeln('vvod m&gt;3'); readln(m); write(' 2 3'); n:=3; k := 2; n...

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


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
Ответ Создать тему
Опции темы

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