Перевод программы с Pascal в C++ и наоборот

[Бахтияр Оралов]

Перевести c c++ на Pascal

#include <stdio.h>
main ()
{
char s[30];
float а=86.531; 
printf("%s\n","Кафедра ПО");
printf("ввести строку символов\п");
scanf("%s",s)/
printf("%20s\n",s); 
printf (”%-20s\n", s) ;
printf ("%20 .10s\n", s);
printf("%.10s\n",s);
printf("%%\n"); 
printf("параметр e; а=%е\n",а);
printf("параметр f; a=%f\n",a);
printf("параметр g; a=%g\n",a);
2)перевести с Pascal na c++
Var а : array[1..10] of integer;
b, с : array[1..10] of real;
i,n : integer;
Begin
Writeln('Введите размер массива '); readln(n);
for i:=1 to n do
a [i] : =random(10);
For i:=1 to n do
b[i]:=1/(2*i);
Writeln ( 'a [ i ] ' + Vb[i]',' = ',' с [ i ] ' ) ;
Writeln( '-------------------------------------') ;
For i:=1 to n do
begin
с [i]:=a[i]+b[i];
Writeln(a[i]:4:2,' + ',b[i]:4:2,' = ',c[i]:4:2)
end;
Writeln
End.
3)перевести с Pascal на c++
Var a,b : string[10];
Begin
А:=' интеграл';
В:=а[7]+а[5]+а[4]+сору(а,2,2);
Writeln(b)
End.
4)перевести с c++ na Pascal
uses crt;
var
decrinteger; i,j,x,у :integer;
begin
textbackground(1); clrscr;
window(5,2,60,3); clrscr;textbackground(0);
window(4,1,59,2); clrscr;textbackground(3);
gotoxy(6,1); write(' Таблица кодов ');
window(3,6,78,24); clrscr; textbackground(0);
window(2,5,77,23); clrscr; textbackground(3);
dec:=126; x:=4;
for i:=0 to 8 do
begin
for j :=1 to 14 do
begin gotoxy(x,j);
writeln (dec, '-',chr(dec), 1 ');
dec:=dec+1;
end;
x:=x+8;
end;
end.

[p51x]

в не можете написать программу почти целиком и полностью состоящую из одной функции writeln?.. раздел фриланса вас ждет

[Жанибек]

какие же студенты все таки наглые , решай сам или всю жизнь будешь так делать!
Научиться можно только тому, что любишь. - И. Гете

[Бахтияр Оралов]

да вы кажется Петросян а где ваша Гульназ?

[Жанибек]

Век живи - век учись тому, как следует жить.