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

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

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

перевести задачи с Паскаля на С++ - C++

14.12.2013, 22:54. Просмотров 730. Ответов 12
Метки нет (Все метки)

Задача 1

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Program z1;
uses crt;
var x: read;
z,d:integer;
begin
clrscr;
write( "Введите число_")
realden(x);
x:=x*10;
z:=trunc(x);
d:=z mod 10;
writeln("первая цифра дробной части=",d);
readkey;
end.
 
Задача 2
 
Program2;
var x,y: read;
begin
write("введите x и y");
readln(x,y);
if(x<=0) and (x>=-2) and (y<=1) and (y>=0) or (y<=1-x) and (y>=x-1) and (x>=0) then
writeln (" точка принадл.обл.")
else writeln("точка не принад.обл."):,
end.
 
Задача 3
 
Program3;
var
a,b,c,min,max1,max2: integer;
begin
write("введите три числа ");
readln(a,b,c);
max2=c;
if a<b then
begin
min:=a;
max1:=b;
end
else begin
min:=b;
max1:=a;
end;
if c<min then
begin
min:=с;
max1:=a;
max2:=b;
end;
writeln(max1*max2);
end.
 
Задача 4
 
Program4;
var x,y,e,s: read;
i:integer;
begin
write ("введите y и e");
S:=x;
y;=x;
x:x*x; (x в квадрате)
i:=3;
while abc(y)>=e do
begin
y:=y*x/((i-1)*i)
S:=s+y;
i:=i+2;
end;
writeln("s=",s:10:2);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
14.12.2013, 23:23  [ТС]     перевести задачи с Паскаля на С++ #2
Ребята ну пожалуйста помогите...очень надо...а я С++ вообще не знаю =((
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 00:41     перевести задачи с Паскаля на С++ #3
Цитата Сообщение от Венеамин Посмотреть сообщение
Ребята ну пожалуйста помогите...очень надо...а я С++ вообще не знаю =((
сессия? мне вон с Си никто не может помочь, я pascal особо не помню уже. Сейчас попробую помочь, знаю что это такое, когда помощь нужна

Добавлено через 54 секунды
Цитата Сообщение от Венеамин Посмотреть сообщение
Ребята ну пожалуйста помогите...очень надо...а я С++ вообще не знаю =((
Задача 1
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <iostream>
using namespace std;
 
void main()
{
    system("cls");
    double x;
    int z,d;
    cout<<"Введите число: ";
    cin>>x;
    x = x*10;
    z = (int) (x);
    d = z % 10;
    cout<<"\nПервая цифра дробной части = "<<d<<endl;
    system ("pause");
}
Добавлено через 12 минут
Цитата Сообщение от Венеамин Посмотреть сообщение
Задача 2
Program2;
var x,y: read;
begin
write("введите x и y");
readln(x,y);
if(x<=0) and (x>=-2) and (y<=1) and (y>=0) or (y<=1-x) and (y>=x-1) and (x>=0) then
writeln (" точка принадл.обл.")
else writeln("точка не принад.обл."):,
end.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
using namespace std;
 
void main()
{
    double x,y;
    cout<<"Введите x и y: ";
    cin>>x>>y;
    if (((x<=0) && (x>=-2) && (y<=1) && (y>=0)) || ((y<=1-x) && (y>=x-1) && (x>=0)))
        cout<<"\nТочка принадлежит области.";
    else cout<<"\nТочка не принадлежит области.";
    cout<<"\n";
    system ("pause");
}
Добавлено через 7 минут
Цитата Сообщение от Венеамин Посмотреть сообщение
Задача 3
Program3;
var
a,b,c,min,max1,max2: integer;
begin
write("введите три числа ");
readln(a,b,c);
max2=c;
if a<b then
begin
min:=a;
max1:=b;
end
else begin
min:=b;
max1:=a;
end;
if c<min then
begin
min:=с;
max1:=a;
max2:=b;
end;
writeln(max1*max2);
end.
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
25
26
27
28
#include <iostream>
using namespace std;
 
void main()
{
    int a,b,c,min,max1,max2;
    cout<<"Введите три числа: ";
    cin>>a>>b>>c;
    max2 = c;
    if (a<b)
    {
        min = a;
        max1 = b;
    }
    else 
    {
        min = b;
        max1 = a;
    }
    if (c<min)
    {
        min = c;
        max1 = a;
        max2 = b;
    }
    cout<<("\n")<<(max1*max2)<<endl;
    system ("pause");
}
Добавлено через 12 минут
Цитата Сообщение от Венеамин Посмотреть сообщение

Задача 4

Program4;
var x,y,e,s: read;
i:integer;
begin
write ("введите y и e");
S:=x;
y;=x;
x:x*x; (x в квадрате)
i:=3;
while abc(y)>=e do
begin
y:=y*x/((i-1)*i)
S:=s+y;
i:=i+2;
end;
writeln("s=",s:10:2);
end.
Точно написал? вводить не у и х нужно?

Добавлено через 4 минуты
перечитай 4-е задание, там неправильный код
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 01:01  [ТС]     перевести задачи с Паскаля на С++ #4
да точно только я извеняюсь писал на нервах и пропустил readln(y,e); (это после write ("введите y и e"); и перед S:=x и в строчке x:x*x; (x в квадрате) пропустил равно x:=x*x; (x в квадрате ) это 8 строчка
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 01:10     перевести задачи с Паскаля на С++ #5
Цитата Сообщение от Венеамин Посмотреть сообщение
да точно только я извеняюсь писал на нервах и пропустил readln(y,e); (это после write ("введите y и e"); и перед S:=x и в строчке x:x*x; (x в квадрате) пропустил равно x:=x*x; (x в квадрате ) это 8 строчка
хорошо, у тебя написано
Pascal
1
2
3
S:=x;
y;=x;
x:x*x;
откуда оно берет x? нигде х не использовался. пересмотри внимательно и я допишу программу
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 01:19  [ТС]     перевести задачи с Паскаля на С++ #6
Я что-то не врубаюсь...ну посмотри сам задание
Миниатюры
перевести задачи с Паскаля на С++  
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 01:38     перевести задачи с Паскаля на С++ #7
Цитата Сообщение от Венеамин Посмотреть сообщение
Я что-то не врубаюсь...ну посмотри сам задание
я не могу понять про вывод Напечатать полученное значение суммы и значение sh x. Как это?
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 01:47  [ТС]     перевести задачи с Паскаля на С++ #8
да чёрт его знает...да и меня как то не особо и интересуют главное сделать и забыть
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 01:49     перевести задачи с Паскаля на С++ #9
Цитата Сообщение от Венеамин Посмотреть сообщение
да чёрт его знает...да и меня как то не особо и интересуют главное сделать и забыть
попробую сделать, если не усну сейчас, если что, то завтра выложу
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 02:33  [ТС]     перевести задачи с Паскаля на С++ #10
Задание 5

Program z5;
User Crt
const n=5;
Var a :Array [1..n, 1..n] Of integer;
b: Array [1..2*n] Of real;
i,j,s:integer;
k:real;
Begin
ClrScr
randomize
WriteLn("Matriza A");
For i:=1 To n Do
Begin
Forj:=1 To n Do
Begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
End;
WriteLn;
End;
For i:=1 To n Do
Begin
s:=0;
For j:=1 To n Do
s:=s+a[i,j];
b[i]:=s/n;
End;
For i:=1 To n Do
Begin
s:=0:
For j:=1 To n Do
s:=s+a[j,i];
b[i+n]:=s/n;
End;
WriteLn("Vector B");
For i:=1 To 2*n Do
Write(b[i]:5:1);
WriteLn;
{sortirovka}
For i:=n*2 downto 2 Do
For j:=1 To i-1 Do
if b[j]<b[j+1] then
begin
k:=b[j];
b[j]:=b[j+1];
b[j+1]:=k;
End;
WriteLn("Vektor B posle sortirovki");
For i:=1 To 2*n Do
Write(b[i]:5:1);
readkey;
end.

Задние 6

program z6;
uses crt;
var
a:array[1..20] of string;
posl,s,st,slovo:string;
k,i,kol:integer;
begin
clrscr;
write("s=")
readln(s);
s:=s+"";
while length(s)<>0 do
begin
k:=pos("",s);
st:=cope(s,1,k-1);
kol:=kol+1;
a[kol]:st;
delete(s,1,k);
end;
writeln("SLOVA");
for i:=1 to kol do
write (a[i],"");
writeln;
writeln("SLOVA ne ravno");
for i:=1 to kol-l do
if A[I]<>A[kol] then
begin
if length(a[i] mod 2=l then delete(a[i],(length(a[i])div
2)+1,1);
writeln(a[i]);
end;
readkey;
end.


Задание 7

program z7;
n,i,j:integer;
c,a,b,k,x,y;read;
write("введите n a b k e");
readln(n,a,b,k,e);
x:=a;
writeln ("x_____y");
while x<=b do
begin
y:=0;
c:=2+1/x;
FOR j:=1 to и do
begin
y:=y+x*x/c;
c:=с*(2+1/x);
if abc(y)<e the break;
end;
writeln"(x:8:3,y:8:3);
x;=x+k;
end;

Добавлено через 2 минуты
Konstantin_2012 посмотри пожалуйста ещё 5,6,7 задачу перевести задачи с Паскаля на С++

Добавлено через 8 минут
Konstantin_2012 посмотри пожалуйста ещё вот эти

Задание 5

Program z5;
User Crt
const n=5;
Var a :Array [1..n, 1..n] Of integer;
b: Array [1..2*n] Of real;
i,j,s:integer;
k:real;
Begin
ClrScr
randomize
WriteLn("Matriza A");
For i:=1 To n Do
Begin
Forj:=1 To n Do
Begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
End;
WriteLn;
End;
For i:=1 To n Do
Begin
s:=0;
For j:=1 To n Do
s:=s+a[i,j];
b[i]:=s/n;
End;
For i:=1 To n Do
Begin
s:=0:
For j:=1 To n Do
s:=s+a[j,i];
b[i+n]:=s/n;
End;
WriteLn("Vector B");
For i:=1 To 2*n Do
Write(b[i]:5:1);
WriteLn;
{sortirovka}
For i:=n*2 downto 2 Do
For j:=1 To i-1 Do
if b[j]<b[j+1] then
begin
k:=b[j];
b[j]:=b[j+1];
b[j+1]:=k;
End;
WriteLn("Vektor B posle sortirovki");
For i:=1 To 2*n Do
Write(b[i]:5:1);
readkey;
end.

Задние 6

program z6;
uses crt;
var
a:array[1..20] of string;
posl,s,st,slovo:string;
k,i,kol:integer;
begin
clrscr;
write("s=")
readln(s);
s:=s+"";
while length(s)<>0 do
begin
k:=pos("",s);
st:=cope(s,1,k-1);
kol:=kol+1;
a[kol]:st;
delete(s,1,k);
end;
writeln("SLOVA");
for i:=1 to kol do
write (a[i],"");
writeln;
writeln("SLOVA ne ravno");
for i:=1 to kol-l do
if A[I]<>A[kol] then
begin
if length(a[i] mod 2=l then delete(a[i],(length(a[i])div
2)+1,1);
writeln(a[i]);
end;
readkey;
end.


Задание 7

program z7;
n,i,j:integer;
c,a,b,k,x,y;read;
write("введите n a b k e");
readln(n,a,b,k,e);
x:=a;
writeln ("x_____y");
while x<=b do
begin
y:=0;
c:=2+1/x;
FOR j:=1 to и do
begin
y:=y+x*x/c;
c:=с*(2+1/x);
if abc(y)<e the break;
end;
writeln"(x:8:3,y:8:3);
x;=x+k;
end;
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 03:43     перевести задачи с Паскаля на С++ #11
вот 4-я задача

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
25
26
27
28
29
30
31
#include <iostream>
#include <iomanip>
using namespace std;
 
void main()
{
    double x,y,e,s;
    int i;
    cout<<"Введите х и е: ";
    cin>>x>>e;
    if (e<=0) 
        do
        {
            cout<<"\nВведите е (e>0): ";
            cin>>e;
        } while (e<=0);
    s = x;
    y = 1;
    x *= x*x;
    i = 3;
    while (abs(y)<e)
    {
        y = (y*x / ((i-1)*i));
        s += y;
        i += 2;
        x *= x*x;
    }
    cout.precision(15);
    cout<<("\ns= ")<<s<<endl;
    system ("pause");
}
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 10:56  [ТС]     перевести задачи с Паскаля на С++ #12
Konstantin_2012 спасибо большое
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2013, 15:59     перевести задачи с Паскаля на С++
Еще ссылки по теме:
Перевести с Паскаля на C++ C++
Перевести из паскаля в с++ C++
Перевести из паскаля в С C++
C++ Перевести из паскаля на с++
C++ перевести на c++ с паскаля

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

Или воспользуйтесь поиском по форуму:
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 15:59     перевести задачи с Паскаля на С++ #13
Цитата Сообщение от Венеамин Посмотреть сообщение
Konstantin_2012 спасибо большое
пожалуйста
Yandex
Объявления
15.12.2013, 15:59     перевести задачи с Паскаля на С++
Ответ Создать тему
Опции темы

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