С Паскаля на Си

@hunn74 · Регистрация: 05.06.2017

Студворк — интернет-сервис помощи студентам

Добрый вечер!
Помогите пожалуйста перевести на С эту программу:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const a=2;
      b=3;
      c=4;
      d=5;
      n=10;
var i: integer;
    x: array [1..n] of real;
    y: array [1..n] of real;
begin
 for i:=1 to n do
  begin
   x[i]:=d*i;
   y[i]:=x[i]/(a/b)+(x[i]+c);
  end;
end.

Спасибо!

Добавлено через 49 минут

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
#include <stdlib.h>
#include <math.h>
void main()
{
const  n=10;
const  a=2;
const  b=3;
const  c=3;
const  d=4;
 
do
{
 
int A[n] 
int A[n]
int i;
 
for(i=1;i<=n;i++)
{
    x[i]=d*i;
    y[i]=x[i]/(a/b)+(x[i]+c);
}
return 0;
}

Так?

@stake-k26 · 30.11.2017, 20:33

Сообщение от hunn74

Так?

Не совсем. Для начала программа ничгео не выводит на экран, так что исходный код стоило бы немного изменить:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const a=2;
      b=3;
      c=4;
      d=5;
      n=10;
var i: integer;
    x: array [1..n] of real;
    y: array [1..n] of real;
begin
    clrscr;
    for i:=1 to n do
    begin
        x[i]:=d*i;
       y[i]:=x[i]/(a/b)+(x[i]+c);
        write(y[i]:5:2, ' ');
    end;
    writeln;
end.

И вот тогда уже есть с чем сравнивать и контролировать выполнение:

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <stdio.h>
#define n 10
int main (void)
{
    double a=2.0, b=3.0, c=4.0, d=5.0;
    int i;
    double x[n], y[n];
    for (i=1; i<=n; i++)
    {
        x[i-1] = (double) d * i;
        y[i-1] = x[i-1] / (a / b) + (x[i-1] + c);
        printf("%5.2lf ", y[i-1]);
    }
    printf("\n");
    return 0;
}

@Catstail · 30.11.2017, 20:37

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <stdio.h>
#include <stdlib.h>
 
#define a  2
#define b  3
#define c  4
#define d  5
#define n  10
 
int main(int argc, char *argv[])
{
   double x[n],y[n];
   int i; 
 
   for(i=1;i<=n;i++)
   {
     x[i]=d*i;
     y[i]=x[i]/(a/b)+(x[i]+c);
   }  
   system("PAUSE"); 
   return 0;
}

@hunn74 · 30.11.2017, 20:38 **[ТС]**

Мне не требуется что-то выводить на экран.
Спасибо, помогли!

@stake-k26 · 30.11.2017, 20:47

Сообщение от hunn74

Мне не требуется что-то выводить на экран.

Отладчик от бога? Тогда почему в коде столько ошибок?

Catstail, выход за границы массива:

Сообщение от Catstail

for(i=1;i<=n;i++)

Сообщение от Catstail

x[i]=d*i; y[i]=x[i]/(a/b)+(x[i]+c);

@Catstail · 30.11.2017, 20:57

stake-k26, а, да... Ошибочка. Вот:

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <stdio.h>
#include <stdlib.h>
 
#define a  2
#define b  3
#define c  4
#define d  5
#define n  10
 
int main(int argc, char *argv[])
{
   double x[n+1],y[n+1];
   int i; 
 
   for(i=1;i<=n;i++)
   {
     x[i]=d*i;
     y[i]=x[i]/((double)a/ (double) b)+(x[i]+(double) c);
   }  
   system("PAUSE"); 
   return 0;
}

@hunn74 · 01.12.2017, 13:43 **[ТС]**

СПАСИБО!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@hunn74 0 / 0 / 1 Регистрация: 05.06.2017 Сообщений: 40
	30.11.2017, 20:38 [ТС]
	Мне не требуется что-то выводить на экран. Спасибо, помогли! 0

@hunn74 0 / 0 / 1 Регистрация: 05.06.2017 Сообщений: 40
	01.12.2017, 13:43 [ТС]
	СПАСИБО! 0

С Паскаля на Си

Решение