Активные темы на форуме «sap»:
Скачать бесплатно foobar2000 1.2.1 Stable
Последнее сообщение от ne0net в 22:58 15.01.2013 :
foobar2000 - аудиоплеер, основные черты которого качественный звук, широкие возможности настройки, спартанский интерфейс и низкие системные требования
скачать бесплатно: http://rashcheburach.ucoz.com/load/vsja … e/4-1-0-76
Daum PotPlayer 1.5.35188 Stable
Последнее сообщение от ne0net в 22:57 15.01.2013 :
Всеформатный плеер, проигрывает все форматы видео и музыки.
Скачать бесплатно http://rashcheburach.ucoz.com/load/vsja … e/4-1-0-77
Скачать бесплатно TeamViewer 8.0.16642 Final RePack
Последнее сообщение от ne0net в 22:56 15.01.2013 :
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 в 22:02 08.04.2010 :
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 в 22:01 08.04.2010 :
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 в 22:01 08.04.2010 :
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 в 22:00 08.04.2010 :
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 в 21:59 08.04.2010 :
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 в 21:59 08.04.2010 :
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 в 21:58 08.04.2010 :
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.