Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Необходимо изменить строку так, чтобы длина строки стала равна заданной длине http://www.cyberforum.ru/cpp-beginners/thread256196.html
Дана строка текста, в котором нет начальных и конечных пробелов. Необходимо изменить ее так, чтобы длина строки стала равна заданной длине (предполагается, что требуемая длина не меньше исходной)....
C++ Найти количество различных элементов в массиве. Найти количество различных элементов в массиве. http://www.cyberforum.ru/cpp-beginners/thread256195.html
C++ Utf8-Utf16 и назад. КАК?
Задание: реализовать 2 функции, которые заданный файл будут перекодировать из Utf8/Utf16 в Utf8/Utf16. bool UTF8toUTF16 (const char * src, const char * dst ); bool UTF16toUTF8 (const char * src,...
CString.Delete и std::string.erace C++
Скажите пожалуйста, может кто знает, как работают эти методы? Они просто переносят указатель на нужный нам символ или освобождают память, занятую "неугодными" символами вовсе?
C++ Шаблоны класса и специализация http://www.cyberforum.ru/cpp-beginners/thread256180.html
Нужно реализовать класс двусторонняя очередь- дек на шаблонах работающий для целых типов и для строк типа char*(без стл). Возникает проблема при специализации метода. Вот собственно и сам класс:...
C++ Игра кости Всем привет! Помогите пожалуйста перевести исходник программы с дельфи на с++ я не могу разобраться сама. Программа небольшая две-три процедурки. подробнее

Показать сообщение отдельно
nxnx
Формучанин
362 / 293 / 16
Регистрация: 02.11.2010
Сообщений: 1,234
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.
1
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru