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

@volk010 · Регистрация: 22.10.2015

Думаю Вам не составит труда ). А я запутался)

Pascal

uses crt;
var N,M:integer;
function Fac(x:integer):longint;
begin
if x=1 then Fac:=1
else fac:=x*fac(x-1);
end;
begin
clrscr;
Write('N=');readln(N);
Write('M<N=');readln(M);
write('N!/(M!*(N-M)!)=',Fac(N)div(Fac(M)*Fac(N-M)));
readln;
end.

А это еще:

Pascal

var
  a: array[0..9] of integer;
  i, n, l: integer;
  av: real;
begin
  readln(n);
  for i := 0 to 9 do
  begin
    a[i] := random(25);
    if a[i] < n then
      av := av + a[i];
    l := l + 1;
  end;
  av := av / l;
  writeln('Среднее арифметическое чисел <', n:3, ' =', av:4);
end.

@S_el · 27.11.2015, 19:22

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

А я запутался)

показывайте код,может коллективно распутаем.

@volk010 · 27.11.2015, 20:44 **[ТС]**

так нечего показывать. полная чушь получилась

@S_el · 27.11.2015, 21:12

volk010, тем не менее. Заодно расскажем в чем ошибка.

@volk010 · 27.11.2015, 23:20 **[ТС]**

- Это мой вариант на вторую задачу:

Задание звучит так :
Дан массив. Определить среднее арифметическое всех чисел
меньше заданного.

C++

#include <stdio.h>
#include <stdlib.h>
#include <iostream>
int random (int N) { return rand() % N; }
 
int main()
{
const int n=(0,1,2,3,4,5,6,7,8,9);
int a[n];
int i,l;
float av;
 
for(i=0;i<n;i++)
 {
    a[i] = random(25);
    if (a[i]<n)
      { 
      av=av+a[i];
    
       l=l+1;
       }
   }
 
   av=av/l;
   printf("\nСреднее арифметическое чисел < %.3f\n", n);
 
system("pause");
}

@S_el · 27.11.2015, 23:24

volk010, в чем смысл 8 строки?
что делает:

C++

1	#include <iostream>

в C программе?

и решает ли ваш код поставленную задачу?

@volk010 · 27.11.2015, 23:34 **[ТС]**

S_el, с 8 строкой можно разобраться, n=10.

Это лишнее осталось, забыл убрать

C++

1	#include <iostream>

В том то и дело что не хочет он решать мне задачку.
Не понял до конца в Паскале как.

@S_el · 27.11.2015, 23:36

volk010, забудьте про паскаль,пишите на C. Удалось понять на каком этапе программа перестает вести себя так как вы хотите?

@volk010 · 28.11.2015, 00:04 **[ТС]**

Вот ближе стало к действительности:

C

#include <stdio.h>
#include <stdlib.h>
 
int random (int N) { return rand() % N; }
 
int main()
{
int a[10];
int i,n,l;
float av;
 
 printf ("<<Вычисление среднее арифметическое чисел>>\n");
 printf ("Введите число = ");
 scanf ("%d",&n);
 
  for(i=0;i<10;i++)
   {
    a[i] = random(25);
    if (a[i]<n)
        av=av+a[i];   
    l=l+1;
   }
 
  av=av/l;
   
  printf("\nВычисление среднее арифметическое чисел < %d = %.3f\n", n, av);
 
system("pause");
}

@S_el · 28.11.2015, 12:29

volk010, не игнорируйте вопросы,если хотите чтобы вам помогли.
Где условие задачи и конкретный вопрос или замечание по коду?

@volk010 · 28.11.2015, 12:58 **[ТС]**

S_el, условие ко второй задаче я написал выше.
Повторю для вас:

Задание звучит так :
Дан массив. Определить среднее арифметическое всех чисел
меньше заданного.

С первой задачей я разобрался сам.
А во второй с формулой что то не могу разобраться, считает не правильно.

а должно быть так: (1+2+3+4)/4= 2.5
Где то вот в этой части ошибка:

C

{
    a[i] = random(25);
    if (a[i]<n)
        av=av+a[i];   
    l=l+1;
   }
 
  av=av/l;

p/s
игнора нет,просто аврал с этими задачками и я готовился к экзамену.
который был сегодня утром и был сдан успешно).

@Kerry_Jr · 28.11.2015, 13:00

volk010, чему равны av и l изначально? Инициализируйте их нулями и будет вам счастье.

@volk010 · 28.11.2015, 13:05 **[ТС]**

Напишу к первой задачке как будет на Си, пригодится кому то

:

Pascal

uses crt;
var N,M:integer;
function Fac(x:integer):longint;
begin
if x=1 then Fac:=1
else fac:=x*fac(x-1);
end;
begin
clrscr;
Write('N=');readln(N);
Write('M<N=');readln(M);
write('N!/(M!*(N-M)!)=',Fac(N)div(Fac(M)*Fac(N-M)));
readln;
end.

C

#include <stdio.h>                   
#include <stdlib.h>
 
int factor (int x) 
 { 
  if( x == 0 ) return 1;
  return x * factor (x - 1);
  }
 
main()
{
  int N,M;
  float c;
  
  printf("Введите числа:\n\n");
  printf("N= ");
  scanf("%d",&N);
  printf("M<N= ");
  scanf("%d",&M);
  
  c=factor(N)/(factor(M)*(N-M));
 
  printf("\nN!/(M!*(N-M))= %.2f\n\n", c );
  
  system("pause");
}

@S_el · 28.11.2015, 13:07

volk010, прошу прощения,это моя невнимательность.

Вы забыли инициализировать переменные,как вам сказал Kerry_Jr.
И надо подсчет количества нужных элементов тоже перенести в if.

C

#include <stdio.h>
#include <stdlib.h>
 
int random (int N) { return rand() % N; }
 
int main()
{
int a[10];
int i,n,l=0;
float av=0;
 
printf ("<<Вычисление среднее арифметическое чисел>>\n");
printf ("Введите число = ");
scanf ("%d",&n);
printf("%d\n",n) ;
 for(i=0;i<10;i++)
 {
    a[i] = random(25);
    printf("%d %d \n",i,a[i]);
    if (a[i]<n)
    {
        av=av+a[i];   
        l=l+1;
    }
 }
 
 
printf("%d",l);   
printf("\nВычисление среднее арифметическое чисел < %d = %.3f\n", n, av/l);
}

@volk010 · 28.11.2015, 13:20 **[ТС]**

S_el, понял

.
Спасибо!

@S_el 2368 / 1779 / 387 Регистрация: 15.12.2013 Сообщений: 7,536
	27.11.2015, 19:22	2
	Сообщение от volk010 А я запутался) показывайте код,может коллективно распутаем. 1

@volk010 0 / 0 / 0 Регистрация: 22.10.2015 Сообщений: 11
	27.11.2015, 20:44 [ТС]	3
	так нечего показывать. полная чушь получилась 0

@S_el 2368 / 1779 / 387 Регистрация: 15.12.2013 Сообщений: 7,536
	27.11.2015, 21:12	4
	volk010, тем не менее. Заодно расскажем в чем ошибка. 0

@S_el 2368 / 1779 / 387 Регистрация: 15.12.2013 Сообщений: 7,536
	27.11.2015, 23:36	8
	volk010, забудьте про паскаль,пишите на C. Удалось понять на каком этапе программа перестает вести себя так как вы хотите? 0

@S_el 2368 / 1779 / 387 Регистрация: 15.12.2013 Сообщений: 7,536
	28.11.2015, 12:29	10
	volk010, не игнорируйте вопросы,если хотите чтобы вам помогли. Где условие задачи и конкретный вопрос или замечание по коду? 0

@Kerry_Jr 2684 / 2349 / 1098 Регистрация: 14.05.2014 Сообщений: 6,708 Записей в блоге: 1
	28.11.2015, 13:00	12
	volk010, чему равны `av` и `l` изначально? Инициализируйте их нулями и будет вам счастье. 2

@volk010 0 / 0 / 0 Регистрация: 22.10.2015 Сообщений: 11
	28.11.2015, 13:20 [ТС]	15
	S_el, понял . Спасибо! 0