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

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

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

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

05.12.2010, 17:44. Просмотров 245. Ответов 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++
C++ перевести с pascal в С++
C++ Перевести из PASCAL в С++
C++ Перевести с Pascal на C++
Перевести с pascal на c++ C++
Перевести с Pascal на C++ C++
C++ Перевести с Pascal на C++
C++ Перевести с Pascal на C++
Перевести с pascal на с++ C++
C++ Перевести с pascal на С++
C++ Перевести с Pascal на C++
Перевести из Pascal на C++ C++

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

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

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