Перевести код с С++ в С и Pascal

@canavaro · Регистрация: 26.02.2011

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

кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в паскаль.... кто может помогите:

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
#include "stdafx.h"
#include <iomanip>
#include <iostream>
using namespace std;
int min1(int,int);
int min2(int,int);
int min3(int,int);
void main(){
    int a,b,c;
    cout<<"a=";
    cin>>a;
    cout<<"b=";
    cin>>b;
    c=min1(a,b)+min2(a,b)*min2(a,b);
    cout<<c;
    if(c<3.14)
        cout<<c;
    else 
        cout<<"3.14";
}
int min1(int a, int b){
    if(a<b)
        return a;
    else 
        return b;
}
int min2(int a, int b){
    if(a*b<a+b)
        return a*b;
    else 
        return a+b;
}

другой с(си) ето типо printf #include<stdio.h> и так дале.. плз

@slice · 13.03.2011, 10:34

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

нада перевести з одного с(си) в другой с(си)

жжошь)))

@Nameless One · 13.03.2011, 11:17

Попытаюсь перевести: ТС'y надо сделать перевод из С++ в С, а потом в Паскаль

@canavaro · 13.03.2011, 12:40 **[ТС]**

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

жжошь)))

стараюсь)

@nxnx · 13.03.2011, 13:15

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <stdio.h>
 
int min1(int a, int b)
{
        return (a<b)?a:b;
}
int min2(int a, int b)
{
        return (a*b<a+b)?a*b:a+b;
}
int main (void)
{
 
     int a,b,c;
     printf("a=");scanf("%d",&a);
     printf("b=");scanf("%d",&b);
     c=min1(a,b)+min2(a,b)*min2(a,b);
     printf("%d\n",c);
     if (c<=3) printf("%d\n",c); else printf("3.14\n");
 
     getch();
     return 0;
}

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

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
program Project1;
 
function min1(a:integer; b:integer):integer;
  begin
    if a<b then b:=a;
    min1:=b;
  end;
 
function min2(a:integer; b:integer):integer;
  begin
    if a*b<a+b then a:=a*b else a:=a+b;
    min2:=a;
  end;
 
 var a,b,c:integer;
 
begin
  write('a=');readln(a);
  write('b=');readln(b);
  c:=min1(a,b)+min2(a,b)*min2(a,b);
  writeln(c);
  if c<=3 then  writeln(c) else writeln('3.14');
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	13.03.2011, 11:17
	Попытаюсь перевести: ТС'y надо сделать перевод из С++ в С, а потом в Паскаль 1