[Green_pigs]

Здравствуйте, помогите пожалуйста с заданиями на Delphi
До этого к колледже учили паскаль только, а теперь в институте делфи
1.Даны a и n. Вычислите p=(a+1)2(a+2)2⋅…⋅(a+n)2
2. Пользователь вводит ненулевые числа до тех пор пока не введет ноль. Найдите сумму этих чисел.
3. Сгенерируйте серию из 10 случайных чисел от 1 до 3 и найдите: а) на сколько количество двоек больше/меньше количества троек, б) количество троек, стоящих на четных местах, в)количество двоек среди первых пяти чисел серии.

[lmikle]

Ну, большой разницы между чистым паскалем и дельфи нет с точки зрения таких простых заданий.
Все примеры расчитаны на консоль:
Первое:

Код:

1 2 3 4 5 6 7 8 9 10

var   n, a, i, p : Integer; begin   write('Введите a = '); readln(a);   write('Введите n = '); readln(n);   p := 1;   for i := 1 to n do     p := p * sqr(a+i);   writeln('Произведение = ',p); end;

Второе:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   n : Integer;   s : Integer;   d : Integer; begin   writeln('Введите числа, 0 для окончания ввода');   n := 1;   s := 0;   while true do     begin       write('введите a[',n,']=');readln(d);       if d = 0 then break;       p := p + d;    end;   WriteLn('S=',s); end;

Третье:

Код:

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

var   n2, n3, n32, n25 : Integer;   i : integer;   d : integer;   s : string; begin   Randomize;   n2 := 0;   n3 := 0;   n32 := 0;   n25 := 0;   For i := 1 to 10 do     begin       d := random(3) + 1;       if d = 2 then inc(n2);       if d = 3 then inc(n3);       if (d = 3) and ((i mod 2) = 0) then inc(n32);       if (d = 2) and (i < 6) then inc(n25);     end;   if n2 = n3 then writeln('Кол-во двоек равно кол-ву троек') else     if n2 < n3 then writeln('Кол-во двоек меньше кол-ва троек на ',n3-n2)     else writeln('Кол-во двоек больше кол-ва троек на ',n2-n3);   writeln('Кол-во троек на четных позициях = ',n32);   writeln('Кол-во двоек среди первых пяти чисел = ',n25); end;

ЗЫ. Если нужны готовые проекты или надо переделать на оконный режим, то это уже платно, пиши в личку.

[LaraCroft]

Парни посоветуйте какую то альтернативную среду разработки на делфи
Типа как RAD-Studio или что на ее подобии

[lmikle]

Смотря что тебе конкретно надо.
Варианты:
- Delphi RAD Starter - бесплатный, надо просто зарегистрироваться и получить ключ.
- Delphi RAD Community Edition - тоже бесплатный, аналог редакции Professional, но там есть ограничения, в основном административного характера.
- Lazarus - тоже бесплатный, основанный на компиляторе FreePascal, похож на Delphi 7. Напрямую не совсем совместим с настоящим Delphi, только на уровне .pas исходников (вроде есть конверторы для форм).
Для первых 2х пунктов есть соответсвующие среды для C++ Builder.
Была еще такая среда как AppMethod - для разработки под Android, что с ней сейчас просто не в курсе.
Ну и нормальные платные редакции, но там реально много денег хотят.

ЗЫ. Можно было и отдельную тему создать.