giờ này mà còn trường dạy Pascal à Quan trọng là giải thuật, còn viết bằng ngôn ngữ nào thì đơn giản chỉ là đọc ngôn ngữ và cú pháp hàm cho đúng thui
ước gì quay lại thời cấp 3 thì bài này làm trong 5 phút :'> rất là tiếc , hay mình viết java cho bạn nhé :'>
@namkaka12: cho mảng ký tự s, lập trình để thu được mảng s' là đảo ngược của s mà không dùng biến tạm. THử làm đi e
chẳng hạn em hỏi là "interval tree, quy hoạch động, số học, hình học ......." thì còn thấy có lý với cái "thi học sinh giỏi", chứ sắp thi rồi mà vẫn hỏi mấy cái cơ bản về ngôn ngữ như for với while thì kịp sao đặng bài 2, lâu lắm không code pascal nên thể nào cũng có chỗ sai. [spoil] program trololololol; const maxint 32000 (cứ cho to vào) var array[1..50], n, minimum, pos, odd, even : integer; function min(a, b : integer) : integer; begin if a<=b then min = a else min = b; end; begin n := 0; pos := 0; odd := 0; even := 0; minimum := maxint; While not(eoln) do (cái end of line này không nhớ chính xác đâu, lâu không chơi pascal nên chả nhớ đọc trên stream cho đến khi gặp '\n' thế nào) begin inc(n); read(array[n]); minimum := min(minimum,a[n]); if (minimun = a[n]) then pos := n; if (a[n] div 2 = 0) then inc(even) else inc(odd); end; writeln(' odd : ', odd); writeln(' even : ', even); writeln(' minimum : ', minimum); writeln(' position : ', pos); end [/spoil] Bài 3 thì dùng record. Record cụ thể thế nào thì không nhớ rõ, đại loại là như struct trong C Pascal vẫn phổ biến mà, nhưng chủ yếu là để giảng dạy thôi. Căn bản là nó trực quan, mà viết mã giả dựa pascal đọc cũng dễ hơn C với java.
Còn câu 3 mọi người giúp nốt nào ---------- Post added at 22:43 ---------- Previous post was at 22:40 ---------- Viết như mi k 1 tha9ng2 hs cấp 3 bt nào hiểu
Em mới lớp 8... Đưa cho em mấy cái bài giải tính toán là 9 thôi anh (hàm for to do, while do, if then)
Bài này đơn giản thôi: Có một bàn cờ vua kích thước NxN (N >=4) và có N quân Hậu, viết chương trình in ra sơ đồ bố trí N quân Hậu trên bàn cờ đó sao cho không con hậu nào ăn được con hậu nào
5 năm rồi mới sờ vào pascal ,code vội lại vừa google vừa nhớ lại nên hơi lung tung beng bài 1 [spoil] program Cau1; Uses Crt; var X:String; len,count,i:integer; begin clrscr; Write('Nhap X ='); Readln(X); len := Length(X) ; if len > 45 then begin writeln('qua 45 ky tu'); readln; exit; end else begin writeln('Do dai cua xau la : ',len); write('Thu tu nguoc lai : '); for i:=len downto 1 do begin write(X); end; writeln; write('In Hoa : '); for i:=1 to len do begin write(upcase(X)); end; writeln; count:=0; for i := 1 to Length(X) do begin if X = 'A' then count := count + 1; end; writeln('so ky tu A :',count); end; readln; end.[/spoil] bài 2 [spoil] program bai2; uses crt; var arr:Array[1..50] of integer; n,i,le,chan,min:integer; begin write('Nhap n ='); readln(n); if n>50 then begin Writeln('n phai nho hon hoac bang 50'); exit; end; writeln('nhap mang:'); for i := 1 to n do begin write('phan tu thu ',i,' = '); readln(arr); end; le := 0; chan := 0; min = arr[1]; for i := 1 to n do begin if arr mod 2 = 1 then le := le+1 else chan := chan+1; if min>arr then min := arr; end; writeln('so so chan la ',chan); writeln('so so le la ',le); writeln('gia tri nho nhat la ',min); readln; end. [/spoil] bài 3 [spoil] program bai3; uses crt; type HS = record hoten : String; ns : String; toan,van,anh,dtb : real; xeploai : String; end; var n,i:integer; a : Array[1..50] of HS; begin clrscr; write('nhap n = '); readln(n); for i:=1 to n do begin with a do begin writeln(' nhap hoc sinh ',i); write('ho ten :'); readln(hoten); write('ngay sinh :'); readln(ns); write('diem toan :'); readln(toan); write('diem van:'); readln(van); write('diem anh :'); readln(anh); dtb := (toan+anh+van) /3; if (dtb >= 8) and (toan >= 6.5) and (van >= 6.5) and (anh >= 6.5) then xeploai := 'GIOI' else if (dtb >= 7) and (toan >= 5) and (van >= 5) and (anh >= 5) then xeploai := 'KHA' else if (dtb >= 5) and (toan >= 3.5) and (van >= 3.5) and (anh >= 3.5) then xeploai := 'TB' else xeploai := 'YEU'; end; writeln('------------------'); writeln('ket qua :'); for i:=i to n do begin with a do begin writeln('hoc sinh thu ',i); writeln('ho ten ',hoten); writeln('ngay sinh ',ns); writeln('diem toan ',toan:10:2); writeln('diem van ',van:10:2); writeln('diem anh ',anh:10:2); writeln('diem trung binh ',dtb:10:2); writeln('xep loai ',xeploai); end; end; readln; end end. [/spoil]
hồi đó học mảng này nọ rồi đủ thứ lệnh tá lả, thi hs giỏi tp cũng đc dăm ba giải, mà h bỏ lâu quá quên sạch r`
cái pascal này hồi lớp 11 ta làm cũng ác phết , được trường cho đi thi mà ko đi , có cái cách gì lập đc bảng bàng mấy dấu gạch đó , cách đấy nhanh lắm
