HIC HIC thứ 7 bà cô mới cho đề thi mà thư hai em phải nộp 5 bài thi pascal học kì rồi có anh em sinh viên nào làm dc mấy bài này giúp em với em xin cảm ơn và hứa sẽ lên lịch topic cho mọi công sức của anh em trong vòng 1 tháng ạ đề 1: in bảng cửu chương 2 đề 2: tìm tất cả chử số có 3 chử số abc sao cho tổng các lập phương của các chữ số đó abc= a ^3 + b^3+ c ^3 ví dụ 153= 13^3 +5^3 + 3^3 đề 3 : * ** *** **** (n dòng , n cột) đề 4 : tìm ước chung lớn nhất của 2 số nguyên dương a , b đề 5: tính S=1^1+2^2+3^3+......+n^n :rap: anh em bit làm dc bài nào thì giúp em với chứ em ngu tin có hạng lun ạ 1 lần nữa thank anh em nhìu
Tất cả những bài này đều là căn bản lập trình pascal. Bạn có thể tham khảo các sách bài tập về pascal (có sẵn ở nhà sách). Bạn nên tự tìm hiểu và làm sẽ rất thú vị. Chúc bạn thành công
pascal mình học từ 11 năm trước mà không dùng đến nên quên gần hết rồi, không giúp bạn được rồi, nhưng cách làm thì các ngôn ngữ như nhau thôi, để mình gợi ý nhé. trước tiên bạn phải hiểu 1 cấu trúc chương trình viết bằng ngôn ngữ bạn dùng ( ở đây là pascal). Mã giả 1/ ham chinh { khai báo biến i kiểu số nguyên vòng lặp for i=1; i tien den 10 ; i++ { xuat("2*i\n") } } 2/ cách 1 Dùng div hoặc mod để tách a,b,c a= abc div 100 b= ( abc - (100*a) ) div 10 c = abc mod 10 rồi tính S thôi, lũy thừa thì khai báo hàm này vì TP không có sẵn hàm pow Function lapphuong(n:integer):longint; Var i:integer; s:longint; Begin s:=1; For i:=1 to 3 do s:=s*n; lapphuong:=s; End; đề 3 : sử dụng 2 vòng lặp for để in // kiểu c nhé void bai3(int n) { for (int i=1;i<=n;i++) { for (int j=1;j<=i;j++) { xuat("*"); } } } bài 4: dùng thuật toán Euclid giải bằng đệ quy hoặc vòng lặp bài 5: dùng lại Function nmun(n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n do kq:=kq*n; lapphuong:=kq; End; rồi sử dung vòng lặp for For i:=1 to n do 1 lần nữa để truyền n cho nmun tăng dần int s=1; int t=1 for(int i=1;i<=b;i++) s=s*nmun(i); t=t+s Nói chung phải tự làm thì mới hiểu được, cố lên, 5 bài đó chủ yếu là về vòng lặp thôi
