Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.01.2019, 21:17
Green_pigs Green_pigs вне форума
Прохожий
 
Регистрация: 07.01.2019
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Задания Delphi

Здравствуйте, помогите пожалуйста с заданиями на Delphi
До этого к колледже учили паскаль только, а теперь в институте делфи
1.Даны a и n. Вычислите p=(a+1)2(a+2)2⋅…⋅(a+n)2
2. Пользователь вводит ненулевые числа до тех пор пока не введет ноль. Найдите сумму этих чисел.
3. Сгенерируйте серию из 10 случайных чисел от 1 до 3 и найдите: а) на сколько количество двоек больше/меньше количества троек, б) количество троек, стоящих на четных местах, в)количество двоек среди первых пяти чисел серии.
Ответить с цитированием
  #2  
Старый 07.01.2019, 21:39
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, большой разницы между чистым паскалем и дельфи нет с точки зрения таких простых заданий.
Все примеры расчитаны на консоль:
Первое:
Код:
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;
Второе:
Код:
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;
Третье:
Код:
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;

ЗЫ. Если нужны готовые проекты или надо переделать на оконный режим, то это уже платно, пиши в личку.
Ответить с цитированием
  #3  
Старый 19.01.2019, 03:20
LaraCroft LaraCroft вне форума
Прохожий
 
Регистрация: 19.01.2019
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Парни посоветуйте какую то альтернативную среду разработки на делфи
Типа как RAD-Studio или что на ее подобии
__________________
Редактор для кода Sublime Text http://sublime-text.ideaprog.download/

Последний раз редактировалось LaraCroft, 19.01.2019 в 03:23.
Ответить с цитированием
  #4  
Старый 19.01.2019, 22:14
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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

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

Последний раз редактировалось lmikle, 19.01.2019 в 22:16.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Guaho (21.01.2019)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:47.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter