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

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

Восстановить пароль Регистрация
 
Венеамин
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 8
15.12.2013, 11:11     перевести задачи с Паскаля на С++ #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;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2013, 11:11     перевести задачи с Паскаля на С++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Константин_2012
53 / 54 / 17
Регистрация: 06.02.2013
Сообщений: 255
Записей в блоге: 1
15.12.2013, 16:07     перевести задачи с Паскаля на С++ #2
тебе просто так их здесь не переведут, пиши в скайп skype::shaldon_aka_sor или на почту shaldon2009@mail.ru
Yandex
Объявления
15.12.2013, 16:07     перевести задачи с Паскаля на С++
Ответ Создать тему
Опции темы

Текущее время: 01:26. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru