Графика в Паскале

[Moro]

Помогите решить задачи плз. А то у меня завтра зачет а я один не успею.
1)Создать программу для подсчета числа четных цифр, используемых в записи N-числа M.
2) Найти все простые трехзначные числа(Определить функцию позволяющую распознавать простые чила).
3)Составьте подпрограмму рисования прямоугольника с заключенными в него вашим именем. Как параметры передавать координаты и цвет. Вызвать несколько раз эту подпрограмму с различными параметрами.
4)Найти номера строк заданной целочисленной матрицы A(N, M), в которых:
а) на всех нечётных позициях стоят нули;
б) на нечетных позициях встречаются нули.
5)Изобразить убывающую луну.
Заранее спасибо.

[Stilet]

Хоть бы язык указал...

3)Составьте подпрограмму рисования прямоугольника с заключенными в него вашим именем. Как параметры передавать координаты и цвет.

Такое подойдет?

fn qw name=
	(
	  txt=text text:name size:100 kerning:0 leading:0 pos:[-74.4966,16.7785,0] isSelected:on wirecolor:white
      Rectangle length:(txt.max.y-txt.min.y) width:(txt.max.x-txt.min.x) pos:[txt.center.x,txt.center.y,0] isSelected:on
	)
	
delete $*
	(qw "Moro")

[Serge_Bliznykov]

Виталий, вряд ли ТС это решение пригодится!

Уже не первый раз вижу программку на этом языке (как Вы утверждаете - Вашем любимом )
Простите за невежество, а что это за язычок?

[Stilet]

3D Studio MAX Script. Считаю его идеальным для рисования.
Иногда применяю для собственных графиков, но естесственно чаще всего для динамики сложных движений по законам физики (на Havok 3)

P.S. Согласись что на паскале столькими строчка не отделаться )

[Serge_Bliznykov]

P.S. Согласись что на паскале столькими строчка не отделаться )

согласен.
хотя, если использовать уже готовый код (собственные библиотечки), то строчек будет не больше...
а вот если реализация на "стандартном" TurboPascal - то, безусловно, строчек будет поболее...

задача 3.

uses Crt;
type
   FrameRamkaType = (a, b, c, d, e, f, g,h);
   RamkaFrame = Array [FrameRamkaType] of char;

procedure FastWrite(St : string; Row, Col, Attr : Byte);
begin
  TextAttr := Attr;
  GotoXY(Col,Row);
  Write(St);
end;

  function CharStr(Ch : Char; Len : Byte) : string;
    {-Return a string of length len filled with ch}
  var
    S : string;
  begin
    if Len = 0 then
      CharStr[0] := #0
    else begin
      S[0] := Chr(Len);
      FillChar(S[1], Len, Ch);
      CharStr := S;
    end;
  end;



procedure Ramka(X,Y,LengthStr,NumerStr: integer;
                RamAttr,Tattr : byte;
                RamChar : RamkaFrame;
                NameText:string);
var
 I : integer;
 Attr : byte;
begin
 Attr:=TextAttr;
 FastWrite(RamChar[A],Y-1,X-1,RamAttr);
 FastWrite(CharStr(RamChar[E],LengthStr),Y-1,X,RamAttr);
 FastWrite(RamChar[B],Y-1,X+LengthStr,RamAttr);

 FastWrite(RamChar[H],Y,X-1,RamAttr);
 FastWrite(RamChar[F],Y,X+LengthStr,RamAttr);
 FastWrite(RamChar[D],Y+NumerStr+1,X-1,RamAttr);
 FastWrite(CharStr(RamChar[G],LengthStr),Y+NumerStr+1,X,RamAttr);
 FastWrite(RamChar[C],Y+NumerStr+1,X+LengthStr,RamAttr);
 FastWrite(NameText,Y,X,Tattr);
 TextAttr:=Attr;
end;  {  Ramka  }

var
  X,Y :byte;
  AT1,AT2 : byte;
  i : integer;

begin
   TextAttr := 0;
   ClrScr;
   Randomize;
   for i:=1 to 10 do begin
     X := Random(80-7)+1;
     Y := Random(25-3)+2;
     AT1 := Random(256);
     AT2 := Random(256);
     Ramka(X,Y,4,0,AT1,AT2,
           '┌╖╝╘─║═│','MORO');
   end;
   TextAttr := White;
   GotoXY(1,1);
   Readln;
end.

функции FastWrite и CharStr в оригинале брались из библиотек TPCRT и TPSTRING ( (c) TurboPower Software). для приведения к использованию обычной CRT они тут и реализованы.
Разумеется, никакого "Fast" в данной реализации НЕТ (в TPCRT эта функция реализована на ассемблере и пишет текст/аттрибуты в видеопамять напрямую)

[Stilet]

то строчек будет не больше...

Извинясь за оффтоп но чтоб на паскале нарисовать то что в приложении
нужно попотеть капитально.
А вот на скрипте это выглядит оч просто:

fn qw name=
	(
	  txt=text text:name size:100 kerning:0 leading:0 pos:[-74.4966,16.7785,0] isSelected:on wirecolor:white
      addModifier txt (Extrude ()) ui:on
	  txt.modifiers[#Extrude].amount=20
      rr=Rectangle length:(txt.max.y-txt.min.y) width:(txt.max.x-txt.min.x) pos:[txt.center.x,txt.center.y,0] isSelected:on
      addModifier rr (Extrude ()) ui:on
	  rr.modifiers[#Extrude].amount=20
	  rr.modifiers[#Extrude].capEnd = off
	)
	
delete $*
	(qw "Moro")

И абсолютно решает поставленную задачу.