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

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

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

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

15.12.2013, 11:11. Просмотров 309. Ответов 1
Метки нет (Все метки)

Ребят пожалуйста помогите перевести задачи с Паскаля на С++

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

перевести задачи с Паскаля на С++ - C++
Задача 1 Program z1; uses crt; var x: read; z,d:integer; begin clrscr; write( &quot;Введите число_&quot;) realden(x);

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...

Перевести с паскаля на С++ - C++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10; i:=0; repeat if (n div x) &lt;&gt; 0 then...

Перевести из паскаля в с++ - C++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do if a mod i = 0 then b := b + 1; ...

Перевести с Паскаля на С++ - C++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...

Перевести с паскаля на си - C++
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; sum,c,k,max: integer; begin sum:=0;...

1
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 16:07 #2
тебе просто так их здесь не переведут, пиши в скайп skype::shaldon_aka_sor или на почту shaldon2009@mail.ru
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2013, 16:07
Привет! Вот еще темы с ответами:

Перевести с Паскаля на С++ - C++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A&gt;B)then begin temp:=A; A:=B; B:=Temp;

перевести на c++ с паскаля - C++
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for j:=length(sl) downto 1 do Добавлено...

перевести из паскаля в с++ - C++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN clrscr; write('n=');...

Перевести с Паскаля на C++ - C++
надо перевести с паскаля на c++ var i,adrs:integer; a:arrayof integer; begin //... for i:=1 to 15 do if a=0 then ...


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

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

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