- Кто дружит с программированием язык 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 !!!!=]
- Есть ли какие нибудь слова, (русские) которые не возможно перевести на латышский язык?)
Практически весь мат попадает в эту категорию. Есть кончено слова которыми можно заменить, но это уже не перевод.
- После переустановки Windows 7 не понимает русских язык как исправить ?
control panel - region and language - administrative - change system locale - Russian (Russia). и рестарт
- Какие ошибки русские часто допускают в латышском языке ?
О дааааа,ГАРУМЗИМЕС,я до сих пор не понимаю куда их ставить надо.Мне горорят ты слушай где тянется,так я могу каждую гласную тянуть,мля!
- Как исправить язык в русских играх?
Зайдите в региональные настройки операционной системы (Start -> Control Panel -> Region and Language), на закладке Administrative нажмите Change system locale... и выберите Russian (Russia).
В русской операционной системе это будет "Пуск -> Панель управления -> Языковые и региональные стандарты -> Дополнительно -> Изменить язык системы... -> Русский (Россия)".
- Вот опять, хотят сделать чтоб все школы в будущем были только на гос. языке, русским школам быть?
Я верила в честность наших политиков,которые организовывали миттинги в своё время,когда ещё училась в школе) Ходили всем классом,бастовали..и в итоге что??? Всё равно учимся на латышском)
Я согласна с пользователем Shtaket_ Мы от этого только приобретаем навык общения...Мы ничего не теряем! Станем только образованней и умнее... А латыши пусть сидят только со совим латышским. Далеко не уедут.
Так что я вот так осмыслив через года-поняла,что акции протеста,миттинги именно по этому вопросу-были только выгодны чисто с политической точки зрения((( Они нас грубо говоря использовали.. Мы как истинные патриоты бастовали,а нам в замен-ничего.
- С каких пор русские в Латвии против русского языка? В чём причина?
Потому что есть такие зомби, как Mruta_, FunTime, Pomiidorka, которые легко ведутся на агитацию титульной нации. Они не понимают, что это ненормально когда у языка, который считают родным 40% населения Латвии нету никакого статуса, даже у немецкого или испанского статус в Латвии выше, так как это языки ЕС. Любой адекватный человек понимает, что пока русский язык не обретет официальный статус, необязательно государственного, народ Латвии будет разобщен. Но это многошаговый процесс, нужно бороться, и сбор пары сотен тысяч подписей на возможном референдуме- это только начало. Эти подписи нужно подкреплять более 300 тысяч неучитаных голосов неграждан и бороться в ООН и ЕС. В любом случае последствия, если подписи не соберут будут очень плачевными для русского языка в Латвии. Нужно показать что статус русского- это не радикализм, тогда будет возможен компромис, пока же мы все хаваем итак, националистам нет смысла идти на уступки.
А личность Линдермана тут вобще не при чем, вы не за него подписываетесь, конечно он набивает себе рейтинг, но это вина ЦС и Пчел, которые ничего не делали в этом направлении. Подводя итог, могу сказать, что ниодин гражданин, у которого не будет штампа в пасспорте после 30 ноября, не имеет права называть русский язык родным, он ассимилянт, продукт националистической пропоганды.