Nhập vào số nguyên dương n và n số nguyên từ bàn phím, in ra số lớn thứ nhì trong n số nguyên do
|
Hay nhất
Program So_lon_nhi; Var n,i,so, nhi,max,tam:integer; Procedure swap(var x,y:real); var tam:real; begin tam:=x; x:=y; y:=tam; end; Begin Write(‘Nhap n: ‘);Readln(n); Write(‘nhap so:’);Readln(max); Write(‘nhap so: ‘);Readln(nhi); if nhi > Max then swap(Max,nhi) For i:= 3 to n do Begin Write(‘Nhap so: ‘);Readln(so); if (so>nhi) and (so if so>max then Begin nhi:=max; Max:=so; End; End; Write(‘So thu nhi la: ‘,nhi); Readln End.
Viết chương trình cho phép nhập từ bàn phím số nguyên dương của n rồi thực hiện a) in ra số x b) in ra số nguyên dương y bé hơn hơn hoặc bằng n sao cho tổng các ước ước nguyên dương nhiều nhất. Nếu có nhiều số cug thoả mãn điều kiện thì in số có giá trị bé nhất C) in ra số nguyên dương z<= n sao cho z có số lượng các ước nguyên dương nhiêù nhất. Nếu có nhiều số cùng thoả mãn điền điênj thì in số có giá trị bé nhất Các câu hỏi tương tự
I/Trắc nghiệm 1.Với x là kiểu số nguyên,phép gán nào sau đây đúng? A.x:=5/2 B.x:=x*(3/2) C.x:=x*0.1 D.x:=x*5 2.Ý nghĩa của lệnh clrscr. A.Khai báo sử dụng thư viện chuẩn trong chương trình B.Xóa chương trình C.Dừng chương trình 3.Muốn tạm dừng chương trình để xem kết quả bài lập trình ta dùng lệnh nào sau đây? A.End. B.Writeln; C.Uses crt; D.Readln; 4.Tên nào sau đây do người lập trình đặt? A.Var B.Real C.End D.Ctdt 5.Lệnh khai báo tên chương trình trong ngôn ngữ lập trình là? A.Begin B.Uses C.Var Program 6.Trong Pascal,lệnh clrscr dùng để: A.In thông tin ra màn hình B.Xóa màn hình C.Nhập dữ liệu từ bàn phím D.Tạm dừng ctrình 7.Đặt tên ntn là hợp lệ? A.Tam giac; B.Tamgiac; C.1Lơp8A; D.Lop.8A; 8.Để nhập dữ liệu ta dùng lệnh A.Readln(x); B.X:='dulieu' C.Write('Nhap du lieu'); 9.Trong Pascal,khai báo nào sau đây là đúng? A.Var tb:real; B.Var X:=100; C.Conts X:integer; D.Var R=15; 10.Để lưu tệp chương trình trong Pascal ta nhấn phím A.F2 B.F3 C.F5 D.F9 11.Để thoát khỏi ctrinh Pascal ta dùng tổ hợp phím A.Ctrl+X B.Ctrl+F9 C.Alt+F9 D.Alt+X 12.Giả sử A được khai báo là biến với kiểu số nguyên,X là biến được khai báo với kiểu dữ liệu xâu.Khoanh vào các phép gán đúng: A.A:=9; B.X:=234; C A:=1.5; X:='Lao Cai' 13.Phép gán nào đúng A.Var n: integer; B.Var R=30; C.Const n: real; D.Var 6:=integer; II/Tự luận 1.Tìm lỗi sai và sửa lại Program bai - tap; Var a,b,c, TB = Integer; Const n:= 3 Begin Writeln('nhap vao ba so a,b,c); Readln(a,b,c) TB : = (a+b+c)/n ; Writeln('Trung binh cong cua 3 so da cho la;TB'); Readln End 2.Viết ctrinh nhập vào từ bàn phím độ dài cạnh a của 1 hình vuông bất kì,in ra màn hình chu vi,diện tích của hình vuông đó 3.Viết ctrinh đưa ra tb trên màn hình.Mỗi tb nằm trên 1 dòng PHONG GIAO DUC VA DAO TAO TX QUANG TRI TRUONG THCS THANH CO TEN EM LA:.................... 4.Viết chương trình Pascal nhập vào từ bàn phím độ dài 2 cạnh hình chữ nhật bất kỳ,in ra màn hình chu vi,diện tích hình chữ nhật đó. |
