- Кто дружит с программированием язык Delphi(Программа Delphi 7)?
procedure TForm1.Button1Click(Sender: TObject);
var x,y,p,R,xs,ys:integer;
begin
R:=StrToInt(Edit1.Text);
xs:=StrToInt(Edit2.Text);
ys:=StrToInt(Edit3.Text);
x:=0;
y:=R;
p:=1-R;
Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
while x<=y do
begin
if p<0 then
begin
x:=x+1;
y:=y;
Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
p:=p+1+2*x;
end
else
begin
x:=x+1;
y:=y-1;
p:=p+1+2*x-2*y;
Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
end;
end;
begin
x:=R;
y:=0;
p:=1-R;
Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
while x>y do
begin
if p<0 then
begin
y:=y+1;
x:=x;
p:=p+1+2*y;
Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
end
else
begin
y:=y+1;
x:=x-1;
p:=p+1+2*y-2*x;
Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
end;
end;
end;
end;
end.
- Стоит ли девушкам дружить с молодым человеком который изучает физику,и еще в добавок и русскую литературу и филологию ?
нет, лучше дружить с теми, кто ничему не учится, ничего не знает, курит травку и бухает.
- Товарищи, кто с латышским языком дружит, помогите перевести более корректно?
Pilnvara
Sabiedrība ar ierobežotu atbildību (tālāk tekstā - SIA) «ХХХ», ģenerāldirektora I.I.Ivanova personā, balstoties uz SIA «ХХХ» statūtu Nolikumu, pilnvaro Pjotru Petroviču Petrovu (pases dati, pēc deklarētās dzīvesvietas: ***) pārstāvēt SIA «ХХХ» intereses un veikt visas darbības SIA «ХХХ» vārdā Latvijas Republikā, parakstīt visus nepieciešamos dokumentus, tostarp kontraktus un līgumus, pārstāvēt SIA «ХХХ» kā valstiskās, tā arī nevalstiskās organizācijās, kā arī tiesībsargājošajās institūcijās, kā tas noteikts ar pašreiz spēkā esošo Latvijas likumdošanu.
Получай
- Злоупотребляете русским языком?
nju ne zloupotrebljaju a tak inogda bez russkogo ja zika ne skazatj predlozenie daze !!!!=]
- Какие ошибки русские часто допускают в латышском языке ?
О дааааа,ГАРУМЗИМЕС,я до сих пор не понимаю куда их ставить надо.Мне горорят ты слушай где тянется,так я могу каждую гласную тянуть,мля!
- Как исправить язык в русских играх?
Зайдите в региональные настройки операционной системы (Start -> Control Panel -> Region and Language), на закладке Administrative нажмите Change system locale... и выберите Russian (Russia).
В русской операционной системе это будет "Пуск -> Панель управления -> Языковые и региональные стандарты -> Дополнительно -> Изменить язык системы... -> Русский (Россия)".
- После переустановки Windows 7 не понимает русских язык как исправить ?
control panel - region and language - administrative - change system locale - Russian (Russia). и рестарт
- Есть ли какие нибудь слова, (русские) которые не возможно перевести на латышский язык?)
Практически весь мат попадает в эту категорию. Есть кончено слова которыми можно заменить, но это уже не перевод.
- кто знает похожий сайт с нормальным русским языком?
да нормально всё!
- Как вы относитесь к призыву Затлерса боротся с русским языком?
бесполезно , если к примеру в детский сад где одни Латыши не знающие Русский язык привезти Русского ребёнка не знающего Латышский язык, через 2 недели все говорят на Русском, проверено опытами, Такова сила Русского языка, Мы еще и Англию с Ирландией заставим Русский выучить. Хотя на нем итак все выходцы с Восточной европы между собой на Русском розговаривают. А Затлерс клоун здесь и спорить не чего. Что ему на бумажке напишут то и говорит