Бесплатно создать живой форум для общения, сайта, игр!
Ведущий российский сервис бесплатных форумов ЖивыеФорумы.ру
Удобные, многофункциональные и надёжные форумы бесплатно.

Фавикон: sap

«sap»

sap
sap

Активные темы на форуме «sap»:

Скачать бесплатно TeamViewer 8.0.16642 Final RePack
Последнее сообщение от ne0net в :

TeamViewer 8.0.16642 Final RePack приложение для удаленного управления компьютером.
Удобный интерфейс, простота настройки, управление посредством удаленного рабочего стола.

Скачать бесплатно TeamViewer 8.0.16642 Final RePack  http://rashcheburach.ucoz.com/load/vsja … k/4-1-0-78

ZAMENASI
Последнее сообщение от sap в :

Uses Crt;
Var S: String;    k: Integer;

    begin
      ClrScr;
      Write('S='); Readln(S);
      For k:=1 To Length
      (S) Do
      If S[k]='?' Then S[k]:='!';
      Writeln('new S=',S); Readln;
      Readln;
End.

SKRUGAIP
Последнее сообщение от sap в :

Uses Crt;
Var n: Integer;
         a,b,R,S: Real;
     begin
       ClrScr;
       Writeln('4to nuzno: 1-S krug ili 2-S prjamougoljnika.');
       Readln(n);

       If n=1 Then
         begin
           Write ('R='); Readln(R);
           S:=PI*R*R; Writeln('S kruga =',S:8:2);
         end

       Else If n=2 Then
          begin
            Write ('a='); Readln(a);
            Write ('b='); Readln(b);
            S:=a*b; Writeln('S prjamoug.=',S:8:2);
          end



       Else Writeln('Ne ponjal...');

       Readln;

End.

SKRUGAIP
Последнее сообщение от sap в :

Uses Crt;
Var n: Integer;

    a,b,R,S: Real;

    begin
      ClrScr;
      Write('4to ho4ew 1-S Kruga ili 2-S prjamoug');
      Readln;
      If  n=1 Then
        begin
          Write ('R='); Readln(R);
          S:=PI*R*R; Writeln('S kruga = ',S:8:2);
        end
      Else If n=2 Then
        begin
          Write ('a='); Readln(a);
          Write ('b='); Readln(b);
          S:=a*b; Writeln('S prjamoug = ',S:8:2);
        end;

      Else Writeln('Ne ponjal...');
      Readln;
End.

GRAFIKA3
Последнее сообщение от sap в :

Uses Graph;
Var gd,gm: Integer;
    k: Word;

    begin
    gd:=Detect; InitGraph(gd,gm,");

    For k:=1 To 5 Do
      begin
        if k mod2 = 0 Then
          Rectangle(50*k,50*k,50*k+30,50*k+30)
          Bar(50*k,50*k,50*k+30,50*k+30)
         end;
   Reading; CloseGraph;
End.

GRAFIKA2
Последнее сообщение от sap в :

Uses Graph;
Var gd,gm: Integer;

    begin
    gd:=Detect; InitGraph(gd,gm,");

    For r:=1 To 5 Do Circle(100,100,10*r);
    For r:=1 To 5 Do Circle(80*x,100,30);

    For r:=1 To 5 Do
    For y:=1 To 4 Do
    Circle(80*x, 80*y, 30);

   Reading; CloseGraph;
End.

GRAFIKA1
Последнее сообщение от sap в :

Uses Graph;
Var gd,gm: Integer;

    begin
      gd:=Detect;InitGraph(gd,gm,");
      SetColor(1); SetFillStyle(1,14);
      Circle(100,100,25);
      FillEllipse(100,200,25,50);
      SetColor(2); SetFillStyle(1,12);
      Rectangle(200,100,250,150);
      Bar(200,200,300,250);
      Readln; CloseGraph;
End.

GRAFIKA1
Последнее сообщение от sap в :

Uses Graph;
Var gd,gm: Integer;

    begin
      gd:=Detect;InitGraph(gd,gm,");
      SetColor(1); SetFillStyle(1,14);
      Circle(100,100,25);
      FillEllipse(100,200,25,50);
      SetColor(2); SetFillStyle(1,12);
      Rectangle(200,100,250,150);
      Bar(200,200,300,250);
      Readln; CloseGraph;
End.