Em hiểu gì về đoạn chương trình sau
a) Var a array [1......10] of real;
b) Begin
Writeln ('Nhap day so thuc');
For i:=1 to 10 do
Begin
Write ('a[',i,']=');
Readln (a[i]);
End.
c) Writeln ('In day cac phan tu:');
For i:=1 to 10 do write (a[i]:5:2);Writeln;
d)For i:=10 downto 1 do write (a[i]:5:2);writeln;
e) S:=0;
For i:=1 to 10 do 'S:=S+a[i];
Write ('S='5:8:2);writeln;
Write ('S=',S/10:
program uptowin;
uses crt;
const dong=5; tocdo=1000;
var
memory:array[1..dong]of word;
vt:shortint;thua,Qexit:boolean;x,y,z:word;{x,y,z la bien nhap}
dem,key:byte;c:char;
{_}
function wall(a:word;b:byte):boolean;
begin
b:=16-b;
if odd(a shr (b)) then wall:=true
else wall:=false;
end;
{_}
procedure vekhung(x1,y1,x2,y2:word);
var z,a,b:word;
begin
if (x1<>x2) and (y1<>y2) then
begin
a:=wherex; b:=wherey;
if x1>x2 then
begin z:=x1; x1:=x2; x2:=z; end;
if y1>y2 then
begin z:=y1; y1:=y2; y2:=z; end;
gotoxy(x1,y1); write(#201);
if x2-x1>1 then for z:=1 to x2-x1-1 do write(#205);
gotoxy(x2,y1); write(#187);
gotoxy(x1,y2); write(#200);
if x2-x1>1 then for z:=1 to x2-x1-1 do write(#205);
gotoxy(x2,y2); write(#188);
if y2-y1>1 then for z:=1 to y2-y1-1 do begin
gotoxy(x1,z+y1); write(#186); end;
if y2-y1>1 then for z:=1 to y2-y1-1 do begin
gotoxy(x2,z+y1); write(#186); end;
end;
gotoxy(a,b);
end;
function rand:word;
var a:word;b,c:byte;
begin
b:=random(14)+1;
for c:=1 to b do
a:=a+ 1 shl (c-1);
a:=a shl random(14);
rand:=not a;
if (a=0) or (not a=0) then a:=rand;
end;
{_}
procedure run(x:boolean);
var e:byte;
{\}
procedure traiphai(var a:word);
var d:boolean;
begin
if odd(dem+e) then
begin
if a>maxint then
begin d:=true;
a:=a-maxint-1; end
else d:=false;
a:=a shl 1;
if d then a:=a+1;
if (wall(memory[1],vt)) then
vt:=vt-1;
end
else
begin
if odd(a) then
begin a:=a-1;
d:=true; end
else d:=false;
a:=a shr 1;
if d then a:=a+maxint+1;
if (wall(memory[1],vt)) then
vt:=vt+1;
end;
end;
{/}
begin
for e:=1 to dong do
if x and odd(e) then
traiphai(memory[e])
else if not x and not odd(e)then
traiphai(memory[e]);
end;
{_}
procedure draw;
var x,y:byte;
{\}
procedure help;
begin
textcolor(white);
vekhung(51,5,70,22);
vekhung(8,5,25,22);
textcolor(yellow);
gotoxy(54,8);write(' W : Up');
gotoxy(54,11);write(' A : Left');
gotoxy(54,14);write(' D : Right');
gotoxy(54,17);write(' Space : Pause');
gotoxy(54,20);write(' Esc : Exit');
vekhung(54,7,58,9);
vekhung(54,10,58,12);
vekhung(54,13,58,15);
vekhung(54,16,62,18);
vekhung(54,19,60,21);
gotoxy(9,6); write('Go up each floor');
gotoxy(9,7); write(', you will add 1');
gotoxy(9,8); write('bonus. But must');
gotoxy(9,9); write('not passing wall');
gotoxy(11,10); write('Example:');
gotoxy(11,12); write('Can''t go up:');
gotoxy(12,13);write(#219#32#219#219#32#219);
gotoxy(12,14);write(#205#205#205#205#205#205);
gotoxy(12,15);write(' ',#15,' ');
gotoxy(12,17);write('Can go up:');
gotoxy(12,18);write(#219#32#219#219#32#219);
gotoxy(12,19);write(#205#205#205#205#205#205);
gotoxy(12,20);write(' ',#15,' ');
end;
{/}
begin
clrscr;
textcolor(white);
vekhung(20,1,60,3);
gotoxy(30,2); write('*** GO UP TO WIN! ***');
vekhung(28,5,47,22);
textcolor(yellow);
gotoxy(30,7);
writeln(#205#205#205#205#205#205#205#205,
#205#205#205#205#205#205#205#205);
for x:=dong downto 1 do
begin
gotoxy(30,8+(dong-x)*2);
for y:=1 to 16 do
if memory[x] shl (y-1)>maxint-1 then write(#219)
else write(' ');
writeln;
gotoxy(30,8+(dong-x)*2+1);
writeln(#205#205#205,
#205#205#205#205#205#205#205,
#205#205#205#205#205#205);
end;
help;
gotoxy(30,20); write('Lines:',dem,' Key:',key,'/50');
gotoxy(vt+29,16); write(#15);
end;
procedure pause;
begin
clrscr;
vekhung(15,10,65,15);
gotoxy(18,13);
write(' Paused! Press any key to continue...');
readkey;
end;
procedure thuchon;
begin{+3}
c:=readkey;
case upcase(c) of{+4}
'D':if not wall(memory[1],vt+1) then vt:=vt+1;
'A':if not wall(memory[1],vt-1) then vt:=vt-1;
'W':if not wall(memory[2],vt) then begin{+5}
dem:=dem+1;
for z:= 1 to dong-1 do
memory[z]:=memory[z+1];
memory[dong]:=rand;
end;{-5}
' ': pause;
#27:begin
qexit:=true;
thua:=true;
end;
end;{-4}
if upcase(c) in['D','A','W'] then
begin key:=key+1; draw; end;
if key=50 then thua:=true;
end;{-3}
{____Main Program____}
begin
textbackground(blue); textcolor(yellow); clrscr;
randomize;
vekhung(15,10,65,15);
gotoxy(18,13);
write('Press any key to continue...');
repeat x:=random(1); until keypressed;
window(1,1,80,25);
repeat
key:=0;thua:=false;Qexit:=false;
vt:=8;x:=0;clrscr;
for x:=2 to dong do
memory[x]:=rand;
repeat{+0}
draw;
for x:=0 to 1000 do
begin{+1}
if x=0 then
run(true);
if x=500 then
run(false);
for y:=0 to tocdo do
begin{+2}
if keypressed then
thuchon;
if not (vt in[1..16]) then
begin thua:=true; break; end;
end;{-2}
end;{-1}
until thua;
gotoxy(1,4);
for x:= 1 to 80*21 do
begin write(' ');
for y:=1 to 1000 do
for z:=1 to 600 do; end;
textcolor(white);
vekhung(15,11,65,15);
gotoxy(30,11); write(' Infomation ');
textcolor(yellow);
gotoxy(19,12); write('Score: ',dem);
if not qexit then
write(' You are lost!');
gotoxy(19,13); write('Press Enter or Esc to quit!');
gotoxy(19,14); write('Press Space to replay!');
repeat c:=readkey; until c in [#27,#13,#32];
until c in [#27,#13];
end.
Trên là một chương trình game mình soạn trên Free Pascal nhưng không được. Lỗi thì không có rồi. Khi ấn Ctrl+F9 thì có dòng chữ "Press any key to continue", ấn xong thì bị thoát và có dòng chữ mới: "Program.... exited with exitcode = 201".
Ai phát hiện và tìm ra cách sửa lỗi thì báo mình nhé!!!
A.Phần trắc nghiệm
Khoanh tròn vào câu đúng trong các câu sau :
Câu1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ lập trình Pascal:
A. 8b; B. uses; C. bai tap; D. chuongtrinh;
Câu2: Trong các chương trình Pascal sau đây , chương trình nào hợp lệ:
A.begin end.
B. begin Program baitap; writeln ('Chao cac ban'); end.
C. begin
D. Tất cả đều sai.
Câu3: Ý nghĩa của câu lệnh X:=5 trong Pascal là:
A. Gán giá trị số 5 vào biến nhớ X. B. Cho biết giá trị của X là 5. C. Tăng giá trị của biến X lên 5 đơn vị. D. Tất cả đều đúng.
Câu5: Trong các câu lệnh pascal sau đây, câu nào đúng: A. if x: =3 then a:=b; B. if x = 6; then a:=b ; C. if x > 3 then x:=x+1 ; else x: x+2; D. if x > 3 then x:=x+1 else x:= x+2;
Câu 6: Phạm vi giá trị của kiểu số nguyên trong khoảng nào sau đây: A. -2^15 đến 2^15 - 1 B. 2,9 × 10^38 đến 1,7 × 10^38 C. -32768 đến 32768 D. Tất cả đều sai.
Câu7: Nếu cho X=8, giá trị của X là bao nhiêu sau câu lệnh: If (X mod 2)=0 then X:=X+2; A.8 B.9 C.10 D.11
Câu8:Nếu cho X=10, giá trị của X là bao nhiêu sau câu lệnh:If (X <=9) then X:X+1; A.8 B.10 C.9 D.11
Câu9: Trong Pascal,khai báo nào sau đây là đúng? A. Var tb: real; B. Var 4hs: integer C.Const x : real; D. Var R=30;
ai giup toi voi
1. Chuong trinh bang tinh la gi ? Muc dich
2.Neu cac thanh phan chinh tren man hinh lam viec cua Excel
3.a)Neu cac buoc nhap cong thuc vao o tinh
b)Neu cac buoc nhap ham vao o tinh
4.Neu cu phap 4 ham da hoc
5.Neu cac buoc sao chep,di chuyen du lieu hoac cong thuc
6.Neu cac buoc chen hoac xoa cot hoac ham.Neu cac buoc dieu chinh do rong cua cot,do cao cua hang
Day la on tap hoc ki 1 nha moi nguoi
TIN HỌC 6
Câu 1: Theo em, tìm kiếm văn bản là gì? Em hãy nêu các bước tìm kiếm văn bản?
Câu 2; Theo em, thay thế là gì? Nếu sự khác biệt giữa lệnh find và lệnh replace là gì? Nếu các bước thực hiện thay thế.
Câu 3: Trình bày các bước thực hiện chen tranh?
Câu 4: Để in bài trước tiên ta phải thực hiện các thao tác nào?
Câu 5: So sánh sự khác nhau và giống nhau giữa 2 phím delete và phím backspace dùng để làm gì?
() Thanh you!!!!![\"vui\"](\"https://hoc24.vn/media/cke24/plugins/smiley/images/vui.png\" "\\"vui\\"")
Chào :)
Chúng ta sẽ đến với Python :)
Khỏi giới thiệu sơ lược .Lên GG mà tra .Wiki nó ghi một đống
Ok . Dành cho mấy bạn ước mơ làm developer cho công ty nước ngoài như mình (: Nghe viển vông ghê :)
Thì phải học 2 ngôn ngữ đó là Python và Javasprcrip (Hay ghi sai chính tả chỗ Java :v Đừng phốt :)
Today tui sẽ dạy cho mấy bợn học Python :) (Tui cũng mới học được vài tháng thôi .Mong các bro chỉ giáo )
Bài học 1 : Cài đặt môi trường Pascal
Khỏi lằng ngoằng ,vô vấn đề chính (Phải Có trình IDE nào đó nha )
Bước 1 : Welcome to Python.org bấm download
Bước 2 :Bấm vô file vừa tải về và Tick vào ô Add Python 3.6 to PATH và chọn Install Now
Bước 3 : Chờ đê :)
Bước 4: Ấn combo Win+Run
Thấy hộp thoại Run gõ CMD ,bấm enter
Áp tơ đát : Sau khi có cửa sổ đen trắng :( Ông sáng lập làm màu xấu :V
Gõ python xong Enter
Nếu nó như thế này (Hình ở dưới là ok)
Lợi ích khi học em này :
+ Ngắn gọn,súc tích.Ngắn nhất nhì trong tất cả ngôn ngữ lập trình
+ Dễ đọc,học,hiểu .Thích hợp cho beginner
+ Dễ kiếm lương cao ≈30 - 40 tr (Vì cả thế giới người ta đa số dùng cái này Mấy ông lớn công nghệ cũng dùng luôn)
+ Học kèm Javaspirct là tuỵet vời :) Là xong 2 ngôn ngữ lập trình phổ biến nhất thế giới nha !
≈Thân ≈
Học hỏi ,không ngại khó ,thắc mắc ghi ở dưới
@Phan Đỗ Thành Nhân@~~ NK Đại Tỷ ~~No choice teenKhánh HuyềnNguyễn Lê Phước ThịnhNguyễn Trúc GiangHùng NguyễnTRẦN MINH HOÀNGSara Trang@Justin Le NguyenTrần Dũng@Nguyễn Văn Đạt
Mọi người giúp em với, plssss :(((((
Đề bài: Xây dựng menu chương trình thực hiện những công việc sau: “Bài toán với dữ liệu kiểu bản ghi”.
Viết chương trình quản lý điểm thi đại học của thí sinh bao gồm các trường sau: Số báo danh, họ tên, ngày sinh, giới tính, điểm toán, văn, tiếng anh, tổng điểm, xếp loại. Thực hiện các công việc sau:
Nhập vào danh sách N thí sinh (không quá 30 người), bao gồm: Số báo danh, họ tên, ngày sinh, giới tính, điểm toán, văn, tiếng anh. Tính tổng điểm (=toán + văn + tiếng anh) và xếp ***** từng thí sinh (nếu tổng điểm >=29, “thủ khoa”, tổng điểm >=25 ,“xuất sắc”, tổng điểm >=20, “có cơ hội đậu”, còn lại là “ôn lại năm sau”).
1. In ra danh sách thí sinh.
2. Đưa ra danh sách thí sinh có tổng điểm cao nhất.
3. Sắp xếp các bản ghi theo tổng điểm tăng dần.
4. Đưa ra danh sách thí sinh xếp loại xuất sắc.
5. Đưa ra danh sách thí sinh nam có điểm trung bình 2 môn toán, văn trên 7.5
6. Viết chức năng tra cứu theo số báo danh của thí sinh. Ví dụ: Khi nhập vào số báo danh X thì chương trình sẽ tìm và in ra màn hình thông tin đầy đủ của thí sinh đó.
Bài tập pascal, mn giúp em với, plssss
Xây dựng menu chương trình thực hiện những công việc sau: “Bài toán với dữ liệu kiểu bản ghi”.
Viết chương trình quản lý điểm thi đại học của thí sinh bao gồm các trường sau: Số báo danh, họ tên, ngày sinh, giới tính, điểm toán, văn, tiếng anh, tổng điểm, xếp loại. Thực hiện các công việc sau:
Nhập vào danh sách N thí sinh (không quá 30 người), bao gồm: Số báo danh, họ tên, ngày sinh, giới tính, điểm toán, văn, tiếng anh. Tính tổng điểm (=toán + văn + tiếng anh) và xếp ***** từng thí sinh (nếu tổng điểm >=29, “thủ khoa”, tổng điểm >=25 ,“xuất sắc”, tổng điểm >=20, “có cơ hội đậu”, còn lại là “ôn lại năm sau”).
1. In ra danh sách thí sinh.
2. Đưa ra danh sách thí sinh có tổng điểm cao nhất.
3. Sắp xếp các bản ghi theo tổng điểm tăng dần.
4. Đưa ra danh sách thí sinh xếp loại xuất sắc.
5. Đưa ra danh sách thí sinh nam có điểm trung bình 2 môn toán, văn trên 7.5
6. Viết chức năng tra cứu theo số báo danh của thí sinh. Ví dụ: Khi nhập vào số báo danh X thì chương trình sẽ tìm và in ra màn hình thông tin đầy đủ của thí sinh đó.
Bài số 1: Hãy sử dụng ngôn ngữ lưu đồ trình bày thuật toán tìm giá trị lớn nhất trong một dãy gồm N giá trị.
Bài số 2: Tìm tất cả các ước số của một số nguyên dương N.
Bài số 3: Kiểm tra số nguyên dương P có phải là số nguyên tố hay không?
Bài 1 Gợi ý: Gọi các giá trị trong dã số là các Ai (với i=1 đến N); cho giá trị lớn nhất bằng A1 sau đó lấy giá trị lớn nhất này so sánh với các Ai còn lại để tìm ra số lớn nhất. Bài 2 Gợi ý: kiểm tra giá trị i từ 1 đến N, nếu N chia hết cho i thì giá trị i sẽ là ước số của N Bài 3 Gợi ý: Cách 1: Kiểm tra giá trị i từ 2 đến N-1, nếu N chia hết cho i thì N sẽ không phải là số nguyên tố còn nếu N không chia hết cho bất cứ giá trị nào của i thì N là số nguyên tố. Cách 2: Đếm các ước số của N, nếu số các ước số của N > 2 thì N không phải là số nguyên tố còn nếu số các ước số của N =2 thì N là số nguyên tố.
Tin nâng cao :)
Câu 1 : Viết chương trình để nén và giải nén một xâu ký tự . (3đ)
Ví dụ: Xâu 'AAAAAAAAABBBCCCCCDDDDDDDEEFF' sau khi nén sẽ trở thành '9A3B5C7D2E2F'.
Câu 2 : Cho mảng 2 chiều A cấp mxn. Viết chương trình sắp xếp lại mảng A theo yêu cầu sau: (3đ)
Các dòng được sắp xếp lại theo thứ tự tăng dần của tổng các phần tử trên mỗi dòng
Câu 3 : Viết chương trình giải phương trình bậc 5 (ax5 + bx + c = 0) (3đ)
Viết tay + 1
Cre : Không biết :)
Nguyễn Lê Phước Thịnh Anh giúp em làm chuyên gia soát bài hộ em ạ :) Anh chấm tr em chấm sau :)
Tuyển tài trợ :))
Bài cũ có đề vấn đề :) Đăng lại nha !
