Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 18.03.2013
Сообщений: 3
1

Перевод с паскаля на си

18.03.2013, 17:58. Показов 1228. Ответов 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
program z13;   
 uses crt;   
 var i,m,k,sum : longint;   
      a : array [1..20] of longint;   
      b : array [1..50] of longint;   
      s : real;   
 begin   
    clrscr;   
    textcolor(10);   
    write('введите кол-во элементов таблицы: ');readln(m);   
    for i:=1 to m do   
    begin   
      write('a[',i,']=');readln(a[i]);s:=s+a[i];   
    end;     
    s:=s/m;   
    writeln('среднее орифметическое: ',s);m:=round(s);   
    write('при округлении ');   
    if m=1 then begin write('совершенное');readln;halt; end;   
    sum:=0;k:=1;   
    for i:=1 to m-1 do if m mod i=0 then begin   
                     b[k]:=i;inc(k);   
                     end;   
    for i:=1 to k-1 do sum:=sum+b[i];   
    if m=sum then write('совершенное')   
             else write('не совершенное');   
    readln;   
 end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2013, 17:58
Ответы с готовыми решениями:

Перевод из Паскаля в С
uses crt; var a,b,c,d:byte; begin clrscr; repeat writeln('Положение коня:');...

Перевод из Паскаля в Си
Доброго времени суток. Помогите перевести программу из паскаля в СИ. var a,b:string; begin...

Перевод с паскаля на Си
Помогите, пожалуйста, перевести с паскаля на си const d = 6; var N: integer; a: array of...

Перевод из Паскаля в С
const a=-pi; b=pi; h=pi/10; var x,y:real; begin writeln('----------------');...

1
86 / 81 / 28
Регистрация: 02.08.2011
Сообщений: 335
20.03.2013, 13:42 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
#include <stdio.h>
#include <math.h>
 
int main ()
{
    int i, m, k, sum;
    int a[20];
    int b[50];
    float s;
    printf("введите кол-во элементов таблицы: ");
    scanf("%d", &m);
    for (i = 0; i < m; ++i)
    {
        printf("a[%d]=", i);
        scanf("%d", &a[i]);
        s = s + a[i];
    }
    s = s / m;
    printf("среднее орифметическое: %f", s);
    m = roundf (s);
    printf("при округлении ");
    if (m = 1)
    {
        printf("совершенное");
        return 0;
    }
    sum = 0;
    k = 1;
    for (i = 0; i < m; ++i)
    {
        if ((m % i) == 0)
        {
            b[k] = i;
            ++k;
        }
    }
    for (i = 0; i < k; ++i)
        sum = sum + b[i];
    if (m == sum)
        printf("совершенное");
    else
        printf("не совершенное");
    return 0;
}
правильно или нет проверяй сам
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2013, 13:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Перевод с Паскаля
Помогите пожалуйста перевести на Си uses crt; const zn=; var f:text; s:string; ...

Перевод из Паскаля в Си
function Fact2(n: integer): real; var anva: integer; begin result := n; anva := n; ...

Перевод задачи с Паскаля
Не могу полностью перевести код паскаля на Си.Помогите пожалуйста! var a:array of string;...

Перевод кода с Паскаля
Умова: Если на одну чашу весов посадить Дашу, которая весит n кг, и Наталью, которая весит на 5 кг...


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

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

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