Khi thực hiện lệnh PD rùa sẽ:
a. Hạ bút b. Ârn mình c. Nhấc bút d. Hiện hình
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Để chia 1 ô thành nhiều ô trong word, ta chọn ô cần tách rồi thực hiện Split Cells. rồi Number of columns.rồi Number of rows :))
Cách vẽ hình thoi trong logo như sau:
-lt 45
-fd 150
-rt 90
-fd 150 rt 90
-fd 150 rt 90
-fd 150 rt 90
uses crt;
var a,b,c,d,e: array[1..100] of real;
hsg,hsk,hstb,hsy,i:integer;
begin
clrscr;
hsg:=0; hsk:=0; hstb:=0; hsy:=0;
write('nhap so hoc sinh trong lop');readln(n);
for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(a[i]);end;
for i:=1 to n do begin writeln('diem 15p ban thu',i,'la:');readln(b[i]);end;
for i:=1 to n do begin writeln('diem giua ki ban thu',i,'la:');readln(c[i]);end;
for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(d[i]);end;
{'nhap rieng khoi nham nhe'};
for i:=1 to n do begin e[i]:=(a[i]+b[i]+c[i]*2 + d[i]*4)/7;
if e[i]<5.0 then hsy:=hsy+1;
if (e[i]<6.5) and (e[i]>5.0) then hstb:=hstb+1;
if (e[i]>6.5) and (e[i]<8.0) then hsk:=shk+1;
if e[i]>8.0 then hsg:=hsg +1; end;
write('so ban dat hsg',hsg);
write('so ban dat hsk',hsk);
write('so ban dat hstb',hstb);
write('so ban dat hsy',hsy); readln
end.
setpc 4 setpensize 4 repeat 8 [ fd 100 rt 360/8]
A hạ bút
100% đúng nha