GDC
Реализация языка программирования DGDC или GNU D — это реализация языка программирования D, являющаяся частью GNU Compiler Collection. Поддерживает практически все возможности Digital Mars D.
Примеры:
Hello, World!:
Пример для версий GDC 0.24Функция writef
примерно эквивалентна printf
в C++ и выводит на печать строку определенного формата.
module hello;
import std.stdio;
int main()
{
writefln( "Hello, World!" );
return 0;
}
Факториал:
Пример для версий GDC 0.24Используется рекурсивное определение факториала.
module factorial;
import std.stdio;
ulong recursive(ulong x)
{
return (x == 0 ? 1 : x * recursive( x - 1 ));
}
int main()
{
for (int i = 0; i < 17; ++i)
{
writefln("%s! = %s", i, recursive(i));
}
return 0;
}
Факториал:
Пример для версий GDC 0.24Используется итеративное определение факториала. Отметим использование цикла foreach
, в котором переменная цикла принимает все значения от нижней границы включительно до верхней исключительно.
module factorial;
import std.stdio;
int main()
{ ulong fact = 1;
foreach (ulong i; 1..18)
{ writefln("%s! = %s", i-1, fact);
fact *= i;
}
return 0;
}
Числа Фибоначчи:
Пример для версий GDC 0.24Используется рекурсивное определение чисел Фибоначчи.
module fibonacci;
import std.stdio;
ulong recursive(ulong x)
{
return x <= 2 ? 1 : recursive( x - 2 ) + recursive( x - 1 );
}
int main()
{
for (uint i = 1; i < 17; i++)
{
writef("%s, ", recursive(i));
}
writefln("%s", "...");
return 0;
}
Числа Фибоначчи:
Пример для версий GDC 0.24Используется итеративное определение чисел Фибоначчи.
module fibonacci;
import std.stdio;
ulong iterative(ulong x)
{
ulong prev1 = 1L;
ulong prev2 = 1L;
ulong result = x <= 2 ? 1L : 0L;
for ( ulong i = 3; i <= x; ++i )
{
result = prev1 + prev2;
prev1 = prev2;
prev2 = result;
}
return result;
}
int main()
{
for (uint i = 1; i < 17; i++)
{
writef("%s, ", iterative(i));
}
writefln("%s", "...");
return 0;
}
Квадратное уравнение:
Пример для версий GDC 0.24import std.c.stdio;
import std.stdio;
import std.math;
int main() {
int A, B, C;
writef("A = ");
scanf("%d", & A);
if (A==0)
{ writefln("Not a quadratic equation.");
return 0;
}
writef("B = ");
scanf("%d", & B);
writef("C = ");
scanf("%d", & C);
A*=2;
float D = B*B-2*A*C;
if (D == 0)
{ writefln("x = %f\n",-B*1.0/A);
return 0;
}
if (D>0)
writefln("x1 = %f\nx2 = %f",(-B+sqrt(D))/A,(-B-sqrt(D))/A);
else
writefln("x1 = (%f, %f)\nx2 = (%f, %f)",-B*1.0/A,sqrt(-D)/A,-B*1.0/A,-sqrt(-D)/A);
return 0;
}
Комментарии
]]>blog comments powered by Disqus
]]>