Предмет: Қазақ тiлi, автор: naziragabdullina3

Абай өлеңдерінің жалғасын тап.

————————— Пайда ойлама, ар ойла,

————————— Талап қыл артық білуге.

Ұстаздық еткен жалықпас, —————————

Үйретуден балаға. —————————

Ответы

Автор ответа: DoniDilnaz

Пайда ойлама, ар ойла,
Талап қыл артық білуге.
Артық білім кітапта,
Ерінбей оқып көруге.

Ақырын жүріп, анық бас,
Еңбегің кетпес далаға.
Ұстаздық қылған жалықпас,
Үйретуден балаға.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: margorita19981

почему картина так называется По плану утро яблонская 6 класс

1 год назад

Предмет: Русский язык, автор: ainazygdht

слова 2 склонения среднего рода с окончаниями е о 40 слов

1 год назад

Предмет: Українська література, автор: Fant555

Сочинение на тему "Патреотiзм захiсникiв рiдноi землi" по произвдению Захар Беркут

1 год назад

Предмет: Математика, автор: ЗариШари

Сколько понедельников может быть в году? Назовите наименьшее возможное число

8 лет назад

Предмет: Информатика, автор: Karikrut1

НЕИЗВЕСНОЕ ИМЯ 'Bullet'
uses GraphABC;
var s:array [,] of integer;
i,x,y,vspeed,x1,y1,x2,y2,n,k:integer;
game_end : boolean;

Procedure Keypress(key:char); begin
if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then
x:=x+8;
if (key='a') and (s[(x div 8)-1,(y div 8)]=0) then
x:=x-8;
if (key='w') and (vspeed=0) and (s[(x div 8),(y div 8)+1]=1) then
vspeed:=-16;
if (key='f') then Bullet()
end;
procedure Keydown(key:integer); begin
if (key=vk_enter) then game_end:=true;
end;
Procedure Bullet();
Begin
Setbrushcolor(clyellow);
fillrectangle(x2,y2,x2+8,Y2+8);
X2:=X+8;
Y2:=472;
N:=Y2+8+Y2;
repeat;
n:=n-16;
until(N=8) or (x2=x1);
If not (N=8) or (x2=x1)
then begin
clearwindow;
Draw();
end;
If (N=8) and (x2=x1) then
begin
Clearwindow;
Draw();
inc(k);
writeln('Счёт:', k, 'Очко(а)(ов)');
end;
end;

procedure Gravity(); begin
if vspeed=0 then begin
if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed;
if vspeed <>0 then
vspeed+=2;
end;
end;
Procedure Draw(); begin
Redraw;
Lockdrawing;
setbrushcolor(clwhite);
fillrectangle(0,0,640,480);

setbrushcolor(clred);
circle(x1,y1,24);
setbrushcolor(claqua);
fillrectangle(x,y,x+8,y+8);
end;

Begin
game_end:=False;
x:=Random(640);
y:=480;
x1:=Random(640);
y1:=0;
s:=new integer[200,200];
while game_end=false do begin
Draw();
Gravity();
Onkeypress:=Keypress;
Onkeydown:=Keydown;
sleep(30);
end;
end.

Как решить? Если поменять Bullet и Keypress пишет Нет перегруженной подпрограммы с таким количеством параметров Draw.

8 лет назад