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

@Венеамин · Регистрация: 14.12.2013

Студворк — интернет-сервис помощи студентам

Задача 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.

@Венеамин · 14.12.2013, 23:23 **[ТС]**

Ребята ну пожалуйста помогите...очень надо...а я С++ вообще не знаю =((

@Константин_2012 · 15.12.2013, 00:41

Сообщение от Венеамин

Ребята ну пожалуйста помогите...очень надо...а я С++ вообще не знаю =((

сессия? мне вон с Си никто не может помочь, я 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-е задание, там неправильный код

@Венеамин · 15.12.2013, 01:01 **[ТС]**

да точно только я извеняюсь писал на нервах и пропустил readln(y,e); (это после write ("введите y и e"); и перед S:=x

и в строчке x:x*x; (x в квадрате) пропустил равно x:=x*x; (x в квадрате ) это 8 строчка

@Константин_2012 · 15.12.2013, 01:10

Сообщение от Венеамин

да точно только я извеняюсь писал на нервах и пропустил 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? нигде х не использовался. пересмотри внимательно и я допишу программу

@Венеамин · 15.12.2013, 01:19 **[ТС]**

Я что-то не врубаюсь...ну посмотри сам задание

@Константин_2012 · 15.12.2013, 01:38

Сообщение от Венеамин

Я что-то не врубаюсь...ну посмотри сам задание

я не могу понять про вывод Напечатать полученное значение суммы и значение sh x. Как это?

@Венеамин · 15.12.2013, 01:47 **[ТС]**

да чёрт его знает...да и меня как то не особо и интересуют главное сделать и забыть

@Константин_2012 · 15.12.2013, 01:49

Сообщение от Венеамин

да чёрт его знает...да и меня как то не особо и интересуют главное сделать и забыть

попробую сделать, если не усну сейчас, если что, то завтра выложу

@Венеамин · 15.12.2013, 02:33 **[ТС]**

Задание 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 · 15.12.2013, 03:43

вот 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");
}

@Венеамин · 15.12.2013, 10:56 **[ТС]**

Konstantin_2012 спасибо большое

@Константин_2012 · 15.12.2013, 15:59

Сообщение от Венеамин

Konstantin_2012 спасибо большое

пожалуйста

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Венеамин 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 8
	14.12.2013, 23:23 [ТС]
	Ребята ну пожалуйста помогите...очень надо...а я С++ вообще не знаю =(( 0

@Венеамин 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 8
	15.12.2013, 01:01 [ТС]
	да точно только я извеняюсь писал на нервах и пропустил readln(y,e); (это после write ("введите y и e"); и перед S:=x и в строчке x:xx; (x в квадрате) пропустил равно x:=xx; (x в квадрате ) это 8 строчка 0

@Венеамин 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 8
	15.12.2013, 01:19 [ТС]
	Я что-то не врубаюсь...ну посмотри сам задание Миниатюры 0

@Венеамин 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 8
	15.12.2013, 01:47 [ТС]
	да чёрт его знает...да и меня как то не особо и интересуют главное сделать и забыть 0

@Венеамин 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 8
	15.12.2013, 02:33 [ТС]
	Задание 5 Program z5; User Crt const n=5; Var a :Array [1..n, 1..n] Of integer; b: Array [1..2n] 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 2n Do Write(b[i]:5:1); WriteLn; {sortirovka} For i:=n2 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 2n 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+xx/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..2n] 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 2n Do Write(b[i]:5:1); WriteLn; {sortirovka} For i:=n2 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 2n 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+xx/c; c:=с(2+1/x); if abc(y)<e the break; end; writeln"(x:8:3,y:8:3); x;=x+k; end; 0

@Венеамин 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 8
	15.12.2013, 10:56 [ТС]
	Konstantin_2012 спасибо большое 0