Помогите с написанием программы.

[kalivan]

Помогите с написанием программы.

1. Нужно нарисовать детскую площадку. Раскрасить.

2. Написать программу подсчета количества элементов целочисленного массива одновременно делящихся на 3 и на 4. Определение делимости на 3 и 4 оформить в виде логической функции (входной параметр: целое число).

3. Определить процедуру для расчета длины отрезка по координатам его вершин и функцию для подсчета периметра треугольника по длинам сторон. Найти с помощью разработанных функций периметр треугольника заданного координатами своих вершин.

4. Написать программу подсчета количества элементов целочисленного массива одновременно делящихся на 3 и на 4. Определение делимости на 3 и 4 оформить в виде процедуры (входной параметр: целое число, выходной параметр: переменная логического типа).


Темы объединил в одну. Задания пронумерованы. Модератор.

 

[artes33]

Язык реализации надо указывать. Я вот выбрал Delphi.

1. Мне не понятен смысл задания. При чем здесь программирование? Рисуют художники (дизайнеры).

2.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  myarr : array of integer;
  i, n, count : integer;

function myfunc(arg : integer) : boolean;
begin
  if (arg mod 3 = 0) and (arg mod 4 = 0) then myfunc := true
  else myfunc := false;
end;


begin
  writeln('Razmernost massiva?');
  readln(n);
  setlength(myarr, n);
  count := 0;
    for i := 0 to n - 1 do
    begin
      writeln('Vvedite element ', i + 1);
      readln(myarr[i]);
        if myfunc(myarr[i]) then inc(count);
    end;
  writeln(count);
  readln;
end.

3. Что-то новое в математике - "вершины" отрезка. Путем долгих мыслительных процедур установил, что, вероятно, понимаются концы отрезка.

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

var
  a : array [0..2] of TPoint;
  arrsides : array [0..2] of extended;
  i : integer;

procedure GetLength(p1, p2 : TPoint; var res : extended);
begin
  res := sqrt(sqr(p2.X - p1.X) + sqr(p2.Y - p1.Y));
end;

function GetPerry(side1, side2, side3 : extended) : extended;
begin
  GetPerry := side1 + side2 + side3;
end;

begin
    for i := 0 to 2 do
    begin
      writeln('Vvedite koordinaty ', i, ' vershiny (x, y):');
      readln(a[i].X, a[i].Y);
    end;
  GetLength(a[0], a[1], arrsides[0]);
  GetLength(a[1], a[2], arrsides[1]);
  GetLength(a[2], a[0], arrsides[2]);
  writeln('Perimetr: ', GetPerry(arrsides[0], arrsides[1], arrsides[2]));
  readln;
end.

4.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  myarr : array of integer;
  i, n, count : integer;
  r : boolean;


procedure myproc(arg : integer; var res : boolean);
begin
  if (arg mod 3 = 0) and (arg mod 4 = 0) then res := true
  else res := false;
end;


begin
  writeln('Razmernost massiva?');
  readln(n);
  setlength(myarr, n);
  count := 0;
    for i := 0 to n - 1 do
    begin
      writeln('Vvedite element ', i + 1);
      readln(myarr[i]);
      myproc(myarr[i], r);
        if r then inc(count);
    end;
  writeln(count);
  readln;
end.

P.S. Есть дельное предложение: закрыть раздел со всякими там паскалями, делфями и куликсами и на его месте сделать более актуальный раздел по .NET

 

[AlexZir]

Пока предложений по программированию на платформе .Net не было, а Pascal, Delphi, C++ и прочие академические языки программирования до сих пор изучаются в ВУЗах, не говоря уже о средней школе, так что раздел закрывать никто не будет. Если будет достаточное количество заданий по программированию под .Net - администраторы форума создадут отдельный раздел. А пока целый раздел создавать из-за пары-тройки постов - не имеет смысла.

 

[artes33]

Языки под .NET также изучаются в ВУЗах. А паскаль уже тыщщу лет не актуален.

 

[AlexZir]

А откуда тогда берётся такое количество новых тем с просьбами "Помогите написать прогу на паскале" ? Бывает, в день по 10 новых тем появляется

 

[artes33]

Насчет 10 Вы, конечно, немного преувеличили. А появляются они оттуда, что этот язык является основным для "обучения программированию" в школах РФ, а также в некоторых ВУЗах РФ. Это не отменяет того факта, озвученного мной, что язык Pascal устарел. А образованию не помешает реформа.

p. s. Ваша подпись со мной соглашается.

Про 10 новых тем в сутки - вовсе не преувеличение, просмотрите внимательнее этот раздел форума. Ваш модератор.

 

[ww01031977]

и не только в РФ. В УКРАИНЕ это во всех школах, как язык для обучения програмированию. В вузах то же самое. Иногда попадается бейсик. Но и другие языки тоже изучаютя: си++, делфи , и тд..