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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ В данном линейном целочисленном массиве каждый элемент с четным индексом увеличить на значение индекса, с нечетным — уменьшить на значение индекса http://www.cyberforum.ru/cpp-beginners/thread1041697.html
В данном линейном целочисленном массиве каждый элемент с четным индексом увеличить на значение индекса, с нечетным — уменьшить на значение индекса.
C++ Задача с графами на C++ Помогите решить задачу. Дан граф(орграф) без циклов. Составить описание данных для его представления и фрагмент подпрограммы(подпрограмму): а) проверки,существует ли путь от вершины А к вершине В; б) поиска какого-либо пути от вершины А к вершине В. http://www.cyberforum.ru/cpp-beginners/thread1041691.html
Массивы. Заменить 3ий элемент в 1ой строке матрицы А на max элемент C++
Помогите пож Матрица А цифры любые заменить 3ий элемент в 1ой строке матрицы А на max элемент
Удаление динамического массива C++
Привет. Сделал программу с 3 динамическими массивами, но дело в том, что 2 из них, размер которых задается с клавиатуры, удаляются в конце из памяти, а 3-ий, размер которого формируется в процессе выполнения программы, не удаляется - компилятор указывает на проблему в deleteC; #define _CRT_SECURE_NO_WARNINGS #include <stdio.h> #include <stdlib.h> #include <math.h> void main() { int n,...
C++ Проверить два идущих подряд нуля в массиве http://www.cyberforum.ru/cpp-beginners/thread1041667.html
Как правильно проверить два идущих подряд нуля в массиве? Чтобы при выполнении условия один массив заполнялся данными из другого? Мои попытки к успеху не приводят if (mas != 0 && mas != 0 && mas != mas) arr = mas;
C++ Файл со строками Дан текстовый файл. Переписать в новый файл все его строки, длина которых больше заданного числа. Входной файл «1.txt» содержит строковые словосочетания. То есть нужно со строками работать? Или как,не понимаю... подробнее

Показать сообщение отдельно
Венеамин
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..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;
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru