С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
C для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
nowifarag
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 6
1

Из Pascal в C

07.02.2018, 16:34. Просмотров 753. Ответов 1
Метки нет (Все метки)

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
const
  max = 15;
 
type
  point = record
    x, y: real;
  end;
 
procedure Rasst(a, b: point; var rz: real);
begin
  rz := sqrt(sqr(a.x - b.x) + sqr(a.y - b.y));
end;
 
var
  t: array[1..max] of point;
  r: array[1..max, 1..max] of real;
  n, i, j: byte;
 
begin
  repeat
    write('Введите количество точек на плоскости (от 2 до ', max, '):');
    read(n);
  until n in [2..max];
  for i := 1 to n do
  begin
    t[i].x := 10 * random - 4;
    t[i].y := 10 * random - 4;
  end;
  writeln('Координаты точек:');
  write('X:');
  for i := 1 to n do
    write(t[i].x:5:1);
  writeln;
  write('Y:');
  for i := 1 to n do
    write(t[i].y:5:1);
  writeln;
  writeln('Матрица расстояний:');
  for i := 1 to n do
  begin
    for j := 1 to n  do
    begin
      Rasst(t[i], t[j], r[i, j] );
      write(r[i, j]:5:1);
    end;
    writeln;
  end;
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2018, 16:34
Ответы с готовыми решениями:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и...

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type...

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6...

1
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
07.02.2018, 21:46 2
Лучший ответ Сообщение было отмечено nowifarag как решение

Решение

C
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
49
50
#include "stdafx.h"
#include <locale.h>
#include <time.h>
#include <stdlib.h>
#define MAXN 15
 
struct point { double x, y; };
 
double Rasst(struct point a, struct point b) {
    return sqrt(pow(a.x - b.x, 2) + pow(a.y - b.y, 2));
}
 
double rnd(int min, int max) {
    return min + rand() % (1000 * (max - min)) / 1000.0f;
}
 
int main()
{
    srand(time(0));
    setlocale(LC_ALL, "rus");
    struct point t[MAXN];
    double r[MAXN][MAXN];
    int n;
    do {
        printf("Введите количество точек на плоскости (от 2 до %i):", MAXN);
        scanf_s("%i", &n);
    } while (n < 2 || n > MAXN);
 
    for (int i = 0; i < n; i++) {
 
        t[i].x = rnd(-4, 5);
        t[i].y = rnd(-4, 5);
    }
    printf("Координаты точек:\nX: ");
    for (int i = 0; i < n; i++)
        printf("%.2f ", t[i].x);
    printf("\nY: ");
    for (int i = 0; i < n; i++)
        printf("%.2f ", t[i].y);
    printf("\nМатрица расстояний:\n");
    for (int i = 0; i < n; i++) {
        for (int j = 0; j < n; j++) {
            r[i][j] = Rasst(t[i], t[j]);
            printf("%.2f\t", r[i][j]);
        }
        printf("\n");
    }
    getch();
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2018, 21:46

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого...

Есть ли аналог модуля tpdate.tpu (Turbo Pascal) для Free Pascal
Внимание! Нужно срочно узнать название юнита для freepascal, который выполняет...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver:...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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