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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Матрицы. Упорядочите строки по возрастанию методом сортировки выбором http://www.cyberforum.ru/cpp-beginners/thread1041996.html
С добрым утром, форумчане!задали сделать контрольную на C++, который не знаком мне.Вот сижу изучаю уже который день(Вот задание Дан двумерный массив А(M, M) в виде квадратной матрицы. Упорядочите строки по возрастанию методом сортировки выбором (Select Sort). В преобразованной матрице обнулите побочную диагональ матрицы, если в ней найдется хотя бы один отрицательный элемент. После чего найдите...
C++ Ссылка на неразрешенный внешний символ LNK2019 Задание простое: определить класс, а в нем приватные данные и пару простых методов. Заголовочный файл: #include <string> using std::string; class acct { private: http://www.cyberforum.ru/cpp-beginners/thread1041990.html
Создать программу выводящую симметричную матрицу на экран C++
Помогите пожалуйста !
C++ Описать тип struct Square, задающий на плоскости замкнутый квадрат с центром в точке (x, y)
Описать тип struct Square, задающий на плоскости замкнутый квадрат с центром в точке (x, y), длиной стороны a и сторонами, параллельными координатным осям. Реализовать в виде отдельных функций следующие операции над переменными этого типа: а) вычисление площади квадрата; б) построение квадратной оболочки для пары квадратов, т.е. наименьшего квадрата, содержащего пару заданных...
C++ Метод простой итерации с++ http://www.cyberforum.ru/cpp-beginners/thread1041929.html
необходим исходный код
 

Показать сообщение отдельно
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 11:11     перевести задачи с Паскаля на С++
Ребят пожалуйста помогите перевести задачи с Паскаля на С++

Задание 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;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:31. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru