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

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

Войти
Регистрация
Восстановить пароль
 
thexqn
64 / 64 / 14
Регистрация: 15.11.2009
Сообщений: 247
#1

Перевести с Pascal на С (Pure C) - C++

05.12.2010, 17:44. Просмотров 247. Ответов 0
Метки нет (Все метки)

Помогите перевести, пожалуйста.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const max=19;
var m:array[1..max,1..3] of integer;
    n,i,j,k,p:integer;
begin
clrscr;
repeat
write('Количество прямых от 3 до ',max,' n=');
readln(n);
until n in [3..max];
writeln('Введите коэффициенты уравнений прямых a,b,c');
writeln('a,b одновременно не равны 0');
for i:=1 to n do
 begin
  writeln('Прямая ',i);
  repeat
  readln(m[i,1],m[i,2],m[i,3]);
  until(m[i,1]<>0)or(m[i,2]<>0);
 end;
clrscr;
writeln('Коэффициенты уравнений:');
for i:=1 to 3 do
 begin
  write(chr(i+64));
  for j:=1 to n do
  write(m[j,1]:4);
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for p:=j+1 to n do
{если прямые не параллельны}
if (m[i,1]*m[j,2]-m[j,1]*m[i,2]<>0)and(m[i,1]*m[p,2]-m[p,1]*m[i,2]<>0)
{вычисляем точку пересечения}
and((m[i,2]*m[j,3]-m[j,2]*m[i,3])/(m[i,1]*m[j,2]-m[j,1]*m[i,2])=
(m[i,2]*m[p,3]-m[p,2]*m[i,3])/(m[i,1]*m[p,2]-m[p,1]*m[i,2]))
then
 begin
  k:=1;
  writeln('Прямые ',i,' (',m[i,1],',',m[i,2],',',m[i,3],') ',
                    j,' (',m[j,1],',',m[j,2],',',m[j,3],') ',
                    p,' (',m[p,1],',',m[p,2],',',m[p,3],');');
 end;
if k=0 then write('Таких прямых нет!');
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2010, 17:44     Перевести с Pascal на С (Pure C)
Посмотрите здесь:

перевести с Pascal на С++ - C++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer): real; var f: real;...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести из Pascal на С++ - C++
условие: Данная целочисленные квадратная матрица. Вычислить: 1) сумму элементов в тех строках, которые не содержат отрицательных...

перевести с pascal в С++ - C++
Помогите пожалуйста написать аналогичную функцию, но на языке C++. (В паскале нифига не шарю) Const MAX_X=80; MAX_Y=24; Type...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести из Pascal в С++ - C++
Заранее благодарен var s, a, x :real;i,j, fac: integer; begin cls; readln(x); begin for j:=1 to 15 do fac:=fac*(j*2+1); ...

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal в С++ - C++
var a,b:string; c,d,i:integer; begin readln(a); for i:=1 to pos(' ',a) do delete(a,1,1); for i:= length(a) downto pos(' ',a)...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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