0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 12
1

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

03.06.2016, 15:04. Показов 1383. Ответов 1

Author24 — интернет-сервис помощи студентам
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
function Fact2(n: integer): real;
var
  anva: integer;
begin
  result := n;
  anva := n;
  
  if (n <> 1) and (n <> 2) then 
    if odd(n) then       while anva <> 1 do 
      begin
        anva := anva - 2;
        result := result * anva;
      end
    else while anva <> 2 do       begin
        anva := anva - 2;
        result := result * anva;
      end;
end;
 
var
  i, n: integer;
 
begin
  for i := 1 to 5 do
  begin
    write('N = ');
    readln(n);
    writeln(N, '!! = ', Fact2(N))
  end
end.
0
Лучшие ответы (1)
03.06.2016, 15:04
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.06.2016, 15:04
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр 4-миллиметр'); ...

Перевод из паскаля в C#
Вы не могли бы мне помочь перевести программу с Паскаля на C#... Оч надо=))) uses crt; const m=3; {ранг матрицы} Var a:array of...

Перевод из паскаля в C#
Переведите пожалуйста эту строчку for i:=a downto 2 do

1
Клюг
 Аватар для Charles Kludge
7675 / 3190 / 382
Регистрация: 03.05.2011
Сообщений: 8,380
04.06.2016, 19:34 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
/*
 * Generated by TPTC - Translate Pascal to C
 *     Version 1.7 03/26/88   (C) 1988 S.H.Smith
 */
#include <stdio.h>
#include <conio.h>
 
int odd(int z)
{
return z&1;
}
float         Fact2(int      n)
{ 
  int      anva; 
  float      result; 
 
  result = n; 
  anva = n; 
 
  if ((n != 1) && (n != 2)) 
    if (odd(n)) while (anva != 1) 
      { 
        anva = anva - 2; 
        result = result * anva; 
      } 
    else while (anva != 2) { 
        anva = anva - 2; 
        result = result * anva; 
      } 
return result;} 
 
 
  int      i, n; 
 
void main(int   argc,
     char  *argv[])
{ 
  for (i = 1; i <= 5; i++) 
  { 
    printf("N = "); 
    cscanf("%d\n",&n); 
    printf("%d!! = %f\n",n,Fact2(n)); 
  } 
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.06.2016, 19:34
Помогаю со студенческими работами здесь

Перевод с паскаля на c#
Господа, подскажите, как будет выглядеть данный код, но на c# Type RefTree = ^Tree; Tree = record ...

Перевод из Паскаля в СИ.
Доброго времени суток. Помогите перевести программу из паскаля в СИ. 1 программа: Program oblast; uses crt; var a,b,z:real;...

Перевод с паскаля в C#
Ребят, помогите программку перевести с паскаля на C#. В паскале вообще ничего не понимаю, даже не приходилось сталкиваться с ним( Хотя бы...

Перевод с паскаля на С++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...

Перевод с паскаля на C#
Program zaza; uses crt; const n=10; const m=10; var * i,j,max,min:integer; * a:array of integer; begin * randomize; * for...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
Типы MIME в JSON: что и когда использовать в REST API
hw_wired 10.02.2025
MIME-типы играют ключевую роль в современных веб-приложениях, особенно в контексте REST API и микросервисной архитектуры. Они определяют формат передаваемых данных между клиентом и сервером, что. . .
Переименование локальной ветки Git
hw_wired 10.02.2025
Git предлагает систему управления версиями, где ветки играют ключевую роль в организации разработки. Ветки позволяют изолировать изменения кода, экспериментировать с новыми функциями и поддерживать. . .
Удаление элемента из массива в JavaScript
bytestream 10.02.2025
В JavaScript массивы - это упорядоченные наборы данных, которые часто требуют модификации, включая удаление элементов. Самый распространенный метод для этой задачи - splice(). Этот метод позволяет не. . .
Что значит yield в Python
bytestream 10.02.2025
Ключевое слово yield в Python создает генераторную функцию - особый тип функции, которая возвращает итератор. В отличие от обычных функций, использующих return для возврата значения и завершения. . .
Чем отличаются git pull и git fetch
bytestream 10.02.2025
Git предоставляет множество команд для работы с удаленными репозиториями, среди которых особое место занимают git fetch и git pull. Эти команды помогают синхронизировать локальный репозиторий с. . .
Как удалить ветку Git в локальном и удаленном репозитории
bytestream 10.02.2025
Git предлагает развитую систему ветвления, позволяющую разработчикам создавать параллельные версии кода для различных задач. Ветка в Git - это легковесный указатель на определенный коммит, который. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru