может кто знает как рисовать флаг Швейцарии или Дании в Delphi
10-11 класс
|
Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
Другие вопросы из категории
Вот код, только здесь выводится с левого угла, а мне нужно с правого:
uses crt;
var a:array [1..25] of integer;
ar:array [1..25,1..25] of integer;
i,n,s,j,x:integer;b:real;
L:boolean;
begin
write('n=');
readln(n);
writeln('Заполните массив:');
For i:=1 to n do readln(a[i]);
For i:=1 to n do
For j:=i+1 to n do
If a[i]>a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
s:=1;
writeln('Отсортированный массив: ');
For i:=1 to n do write(a[i], ' ');
writeln; b:=sqrt(n);
n:=round(b);
writeln('Двумерный массив: ');
for j:=1 to n do begin
for i:=1 to n do begin
ar[i,j]:=s;
if (j mod 2 = 0) and (i<>n) then dec(s)
else inc(s);
end;
s:=s+n-1;
end;
for i:=n downto 1 do begin
for j:=1 to n do write(ar[i,j]);
writeln;
end;
end.
Помогите пожалуйста
массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат
100. Прошу написать подробное решение. :)
физика|математика - 6700
физика&математика - 2100
сколько страниц будет найдено по запросу физика?
Читайте также
dx=4,64;z=0,79;
Кто знает как делать,пожалуйста помогите)
Решить вроде бы нужно найти что за число вместо x.
Кто знает как правильнее прошу вашей помощи.
Чтобы просмотреть фото, кликните на него.
кто знает как делать.Помогите с 4 Заданием.
заранее огромное спасибо
Вычислить значение функции в зависимости от интервала, в который по-падает вводимый с клавиатуры аргумент:
( На делфи)
Буду благодарна за помощь и какие-либо советы!