bai tap ngon ngu lap trinh turbo pascal

tổng hợp bài tập ngôn ngữ lập trình pascal

8
1,488
7

Bài tập ngôn ngữ lập trình C có giải

... nhac:";cin>>n;for(i=0;i<n;i++){cd[i].nhap();}max=cd[1].soluongbai; cout<<"\nCD co so luong bai lon nhat la:";for(i=0;i<n;i++){if(cd[i].soluongbai>max){max=cd[i].soluongbai; cd[i].xuat();}}getch();Mai ... tendia[25];float giatien;public:int soluongbai;void nhap(){cout<<"Ten dia:";gets(tendia);cout<<"So luong bai& quot;;cin>>soluongbai;cout<<"Gia tien";cin>>giatien;}void ... xuat(){cout<<"\nTen dia:"<<tendia;cout<<"\nSo luong bai: "<<soluongbai;cout<<"\nGia tien:"<<giatien;}};cdcanhac cd[100];main(){int...

13
16,206
127

Hướng dẫn giải bài tập ngôn ngữ lập trình c

Danh mục: Kỹ thuật lập trình

... và yêu cầu nhập lại.Bài 3.16. Số nguyên tố là số chỉ chia hết cho 1 và chính nó. Hãy viết chương trình nhập vào một số nguyên, kiểm tra xem số đó có là số nguyên tố hay không?Bài 3.17. Dãy ... N số nguyên, N nhập từ bàn phím và 0 < N < 50. Đếm các số âm và cho chúng vào. Sắp xếp các số dương tăng dần và ghi chúng vào mảng duong.Bài 4.18. Phát sinh ngẫu nhiên một dãy số nguyên ... cột thì chỉ số đứng sau tăng từ 1 đến 10, trên cùng 1 dòng thì nó giữ nguyên.Áp dụng vòng for lồng nhau.Giảng viên Th.S. Nguyễn Thế Cường - Khoa CNTT-ĐHHH, Email: cuongntit@yahoo.com–cuongntit@gmail.com...

47
16,504
53

Bài tập ngôn ngữ lập trình VB docx

Danh mục: Kỹ thuật lập trình

... nhp n s nguyên vào mt mng nguyên A, sau đó tìm s ln nht trong mng nguyên đó. Bài tp 23: Lit kê các phn t ln nht (nh nht) trong danh sách. Nhp danh sách gm n s nguyên, sau ... As F_Dich '/// Mở (tạo mới) để ghi Do While Not EOF(F_Nguon) Line Input #F_Nguon, S '/// Đọc một dòng trong file ngu n S = Replace(S, "đ", "dd") S = Replace(S, ... C. Ghi chú : các phép chia nguyên và chia d trong VB: ã Phộp chia \ l phộp chia ly phn nguyên: Ví d 10 \ 3 = 3. Phép chia / là phép chia thông thng (ly c phn nguyên và phn d), ví d:...

Bài tập ngôn ngữ lập trình c

Danh mục: Kỹ thuật lập trình

... (float)1 / gt (i); BAI TAP- LOI GIAI NGON NGU LAP TRINH C Cau1: (Viết chơng trình tính và in ra màn hình giá trị biểu thức 2 1! 2! !nx x xFn với x là số thực, n nguyên dơng nhập ... nguyên dơng n, in ra màn hình những số nguyên tố nhỏ hơn n. #include <stdio.h> #include <conio.h> main() { lap: int n,kt,i,j,h; clrscr(); printf ("Nhap so nguyen ... /* Thuc hien lai bai toan */ hoi: printf ("\n\nBan co muon thuc hien lai bai toan 1 lan nua khong? c k"); fflush (stdin); h = getch(); if (h == 99) goto lap; if (h == 107)...

53
4,187
91

Bài tập ngôn ngữ lập trình C/C++ có code

Danh mục: Điện - Điện tử

... node *p=new node(a,b,NULL); if (first==NULL) { first=p; cout<<" Su dung ham thiet lap hai tham so :"<<endl; cout<<" Tao mot doi tuong lop vecto co dia chi ... <iomanip>using namespace std;class complex{ private: double re,im; public: //hàm tao thiet lap tu hai tham so complex(double r=0, double i=0) : re(r), im(i) {} //hàm tao copy tu mot so ... ",3,4,1983,4,3,2004); e.print(); employee1 * e1=new employee1(" Van A ", " Nguyen ",20,4,1988,7,9,2006); cout<<"Ten la:"<<e1->get_firstname()<<endl;...

80
7,980
7

Bài tập ngôn ngữ lập trình C++

Danh mục: Kỹ thuật lập trình

... Liệt kê các chữ số là số nguyên tố của số nguyên dương n. 64. Tính tồng các chữ số là số nguyên tố của số nguyên dương n. 65. Tính tích các chữ số là số nguyên tố của số nguyên dương n. 66. Đếm ... ước số của số nguyên dương n. 60. Tìm ước số lớn nhất của số nguyên dương n. 61. Kiểm tra n có phải là số nguyên tố hay không? 62. Liệt kê các số nguyên tố nhỏ hơn hay bằng số nguyên dương ... lẻ của số nguyên dương n. 56. Liệt kê tất cả các ước số chẵn của số nguyên dương n. 57. Tính tổng tất cả các ước số của số nguyên dương n. 58. Tính tích tất cả các ước số của số nguyên dương...

23
4,692
1

Bài tập ngôn ngữ lập trình CC++ có code

Danh mục: Kỹ thuật lập trình

... 0:cout<<"Phuong trinh vo nghiem!"; break; case 1:cout<<"Phuong trinh co nghiem kep: x1=x2="<<x1;break; default:cout<<"Phuong trinh co 2 nghiem thuc ... cout<<"Phuong trinh vo nghiem."; if(d==0) cout<<"Phuong trinh co nghiem kep:x1=x2="<<b/a; if(d>0) { d=sqrt(d); cout<<"Phuong trinh co 2 nghiem ... NULL) – In s ra màn hình với các chữ cái thường (VD. s = “123ABC” → 123abc) – Đổi s thành số nguyên và gán cho biến a (VD. s = “123abc” →a = 123) Code: a.Duyệt các ký tự bằng mảng ...

17
1,637
5

Tin học đại cương - Phần 2 Ngôn ngữ lập trình TURBO PASCAL - Chương 7 pps

Danh mục: Cao đẳng - Đại học

... xung ñiện với tần số khác nhau. Turbo Pascal ñã có ba thủ tục thiết kế sẵn ñể làm việc này SOUND(n) : tạo ra âm thanh với tần số n , ở ñây n phải là một số nguyên dương DELAY(n) : Kéo dài ... báo gì cho DP, nghĩa là ñể một chuỗi rỗng '' thì Pascal sẽ tự tìm các tệp ñiều khiển ñồ hoạ trong thư mục chủ (là nơi mà Pascal ñược khởi ñộng). 1.3 - Kiểm tra lỗi ñồ hoạ Dòng thứ ... ñến các thông số này do vậy dễ lúng túng khi cần khai báo. ðể khắc phục nhược ñiểm ñó trong Turbo Pascal ñã có sẵn một thủ tục khởi tạo chế ñộ ñồ hoạ là Initgraph(var GD,GM: Integer, DP:string[n]);...

Tin học đại cương - Phần 2 Ngôn ngữ lập trình TURBO PASCAL - Chương 6 ppt

Danh mục: Cao đẳng - Đại học

... ‘songuyen.dat’ ghi các số nguyên dương <200 mà chia hết cho 3. Chương trình Program Tao_tep_so_nguyen; uses crt; var i : integer; f : file of integer ; Begin assign(f, ‘songuyen.dat’); ... tệp ‘songuyen.dat’ ñã tạo ở trên và hiện kết quả trên màn hình. Chương trình program Doc_tep_songuyen; uses crt; var i: integer; f: file of integer; begin clrscr; assign(f, ‘songuyen.dat’); ... thực hiện việc mở tệp ñể ghi. Ví dụ: Mở tệp có tên là ‘songuyen.dat’ gán cho biến tệp f ñể ghi dữ liệu ta viết như sau: Assign(f,’songuyen.dat’); Rewrite(f); Sau khi mở tệp xong thì tệp...

Tin học đại cương - Phần 2 Ngôn ngữ lập trình TURBO PASCAL - Chương 5 doc

Danh mục: Cao đẳng - Đại học

... then USCLN:= x else USCLN := USCLN(y, x mod y) ; end; 4. Một số chương trình con của turbo pascal Pascal ñã xây dựng sẵn một số hàm và thủ thục, Ta có thể gọi tới các hàm, thủ tục ñó theo ... con trỏ(cursor) của màn hình về vị trí có toạ ñộ Xpos và Ypos trên màn hình. Xpos, Ypos kiểu số nguyên. * Procedure ClrScr; Xoá toàn bộ màn hình và ñặt con trỏ vào vị trí phía trên, bên trái. ... (Normal Video). * Procedure Delay(Time); Tạo ra thời gian trễ Time (khoảng ms). Time là một số nguyên. Delay thường ñược dùng ñể làm chậm chương trình lại cho ta quan sát, khảo sát * Procedure...

Tin học đại cương - Phần 2 Ngôn ngữ lập trình TURBO PASCAL - Chương 4 docx

Danh mục: Cao đẳng - Đại học

... 155 155 { Tao tap cac so chia het cho 7 } a:=[]; for i:=7 to 255 do if (i mod 7) = 0 then a:=a+[i]; { In tập } Writeln(' Tap cac so chia het cho 7'); ... witeln('Khong chia het cho 7'); Write(' Co tiep tuc khong (C/K) ? '); readln (lap) ; Until upcase (lap) = 'K'; readln; end. Bài tập chương 4 Hãy viết chương trình cho ... 6. Cho ma trận có m dòng và n cột, các phần tử là nguyên. Tìm phần tử nhỏ nhất của ma trận. 7. Cho ma trận có m dòng và n cột, các phần tử là nguyên. Tính tổng và trung bình cộng các phần tử...

Tin học đại cương - Phần 2 Ngôn ngữ lập trình TURBO PASCAL - Chương 3 pdf

Danh mục: Cao đẳng - Đại học

... hiểu. TURBO PASCAL có các quy ñịnh cho các kiểu dữ liệu như sau *. Viết ra kiểu số nguyên write(i:n); hoặc writeln(i:n); trong ñó I là số nguyên cần ghi ra, n là số chỗ dành ñể viết ra số nguyên ... t='Y' thì writeln(t); writeln(t:3); writeln(&apos ;PASCAL& apos;); writeln(&apos ;PASCAL& apos;:8); sẽ cho Y Y PASCAL PASCAL *- Viết ra kiểu boolean kiểu boolean với 2 giá trị ... 127 127 *- Các thủ tục trình bày màn hình của TURBO PASCAL ðây là những thủ tục có sẵn của TURBO PASCAL phục vụ cho việc trình bày màn hình. Muốn dùng các thủ tục này...