Ôn tập cuối năm
Các câu hỏi tương tự
Các bạn ơi giúp mình phần tự luận với ạ mình sắp kiểm tra rồi. Cảm ơn các bạn
TA
30 tháng 12 2021 lúc 23:57
Có thể đề xuất ý tưởng giải bài này giúp mình được không ạ. Mình học python ạ.
Nhập vào N số nguyên, tìm và in ra số nguyên lớn nhất trong N số nguyên nhập vào. Ví dụ: Input: 5 1 2 3 4 5 Output: 5
Giúp e với ạ
giúp mình với, mình cảm ơn.1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!0), in tổng, hiệu, tích, thương phần nguyên a/b.2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.5.Viết chương trình giải phương trình: ax^2+...
Đọc tiếp
giúp mình với, mình cảm ơn.
1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!=0), in tổng, hiệu, tích, thương phần nguyên a/b.
2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.
3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.
4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.
5.Viết chương trình giải phương trình: ax^2+bx+c=0 với các hệ số a, b, c được nhập vào từ bàn phím.
Câu 48: Hãy cho biết kết quả a,b,c của chương trình sau bằng bao nhiêu trong các phương án cho dưới đây?
Var a,b,c:integer;
Procedure tt( a:integer; var b,c:integer);
Begin
a:=a+1; b:=b+1; c:=a+b;
End;
Begin
a:=1;b:=1;
tt(a,b,c);
Write(‘a=’,a,’b=’,b,’c=’,c);
Readln;
End.
a. a=2 b=2 c=4.
b. a=1 b=1 c=2.
c. a=1 b= 2c=4.
d. a=1 b=2 c=0.
Trình bày giải thuật sắp xếp phân đoạn (Quick Sort) để sắp xếp dãy số nguyên a1, a2, ..., an thành dãy không tăng.
số tự chọn ạ
tất cả dùng hàm
Dev C++, ôn tập thi cuối kỳ
1^3 + 2^3 + 3^3 + … + n^3
x + x^2 + x^3 + … + x^n
liệt kê tất cả các số nguyên tố nhỏ hơn n với n nhập vào từ bàn phím
liệt kê tất cả các số chính phương nhỏ hơn n với n nhập vào từ bàn phím
Ngân hàng bi Bina chỉ cho phép khách hàng gửi và rút một lần duy nhất với cách trả lãi rấtđặc biệt: Với số lượng bi được gửi bất kì thì trong m tháng đầu tiên, mỗi tháng được cộng thêmđược a viên bi, tháng thứ m + 1 số bi được cộng thêm vào là b (b a). Chu kì này được lặp lạicho những tháng tiếp theo.Nam hiện có d viên bi và mong muốn có được số bi không ít hơn X. Hãy xác định số tháng ítnhất Nam cần phải gửi số bi đó vào ngân hàng Bina.Dữ liệu vào: Cho trong file GUIBI.INP có cấu trúc như sau:...
Đọc tiếp
Ngân hàng bi Bina chỉ cho phép khách hàng gửi và rút một lần duy nhất với cách trả lãi rất
đặc biệt: Với số lượng bi được gửi bất kì thì trong m tháng đầu tiên, mỗi tháng được cộng thêm
được a viên bi, tháng thứ m + 1 số bi được cộng thêm vào là b (b < a). Chu kì này được lặp lại
cho những tháng tiếp theo.
Nam hiện có d viên bi và mong muốn có được số bi không ít hơn X. Hãy xác định số tháng ít
nhất Nam cần phải gửi số bi đó vào ngân hàng Bina.
Dữ liệu vào: Cho trong file GUIBI.INP có cấu trúc như sau: dòng thứ nhất chứa một số nguyên
dương T(1 ≤ T ≤ 100) là số lượng trường hợp cần tính, trong T dòng tiếp theo; mỗi dòng ghi
lần lượt 5 số nguyên dương d, a, m, b và X cách nhau một dấu cách. Các số trong file có giá trị
không quá 109
.
Dữ liệu ra: Ghi ra file GUIBI.OUT gồm T dòng, mỗi dòng ghi kết quả tương ứng của từng
trường hợp đã cho.
Ví dụ: GUIBI.INP GUIBI.OUT
in
2
2 5 4 3 51
2 5 4 3 46
out
11
10
Ghi chú:
- Có 70% số test có X ≤ 106
tương ứng 70% số điểm;
- Có 30% số test có 106 < T ≤ 109
tương ứng 30% số điểm.
Câu 40: Hãy cho biết các khai báo được đánh số sau đây , khai báo nào là sai ?1. Const a1;2. Const MaxData 1024 * 64 - 16;3. Const NumChars Ord(Z) - Ord(A) + 1;4. Const Message Hello Pascal; a. 1.b. 2.c. 3.d. 4.Câu 41: Cho biết chương trình sau in ra gì trong các phương án cho dưới đây?Var st : string; i, dd : integer;Beginst :So Buu chinh Vien thong dd:Length(st); For i : 1 to dd doif (st[i] a) and (st[i] z) then st[i]: Upcase (st[i]); Write (st);End. a. SO BUU CHINH VIEN TH...
Đọc tiếp
Câu 40: Hãy cho biết các khai báo được đánh số sau đây , khai báo nào là sai ?
1. Const a=1;
2. Const MaxData = 1024 * 64 - 16;
3. Const NumChars = Ord('Z') - Ord('A') + 1;
4. Const Message = Hello Pascal;
a. 1.
b. 2.
c. 3.
d. 4.
Câu 41: Cho biết chương trình sau in ra gì trong các phương án cho dưới đây?
Var st : string; i, dd : integer;
Begin
st :='So Buu chinh Vien thong' dd:=Length(st);
For i := 1 to dd do
if (st[i] >= 'a') and (st[i] <= 'z') then st[i]:= Upcase (st[i]);
Write (st);
End.
a. SO BUU CHINH VIEN THONG.
b. so buu chinh vien thong.
c. So Buu Chinh Vien Thong.
d. So buu chinh VIEN THONG.
Câu 42: Cho biết khi thực hiện đoạn lệnh sau ‘’songay’’ bằng bao nhiêu(biết nam=2002 thang=2) trong các phương án cho dưới đây?
begin
Write(nhap thang:’);Readln(thang);
Write('Cho biet nam : '); Readln(nam);
Case thang Of
1,3,5,7,8,10,12: songay:=31;
4,6,9,11 : songay:=30;
2 :Case nam Mod 4 Of
1,2,3 :songay:=28;
0 :songay:=29;
End;
End.
a. 28.
b. 29.
c. 2.
d. 0.
Câu 43: Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?
Var n, i , s:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua n :'); Readln(n);
s:=2;
For i:=1 to n do s:=s+1;
End;
a. 6.
b. 8.
c. 10.
d. 12.
Câu 44: Kết quả khi thực hiện đoạn mã sau bằng bao nhiêu trong các phương cho dưới đây ?
s:=0
For i:=1 To 2 Do
For j:=1 to 3 Do
Begin
s:=s*i*j;
Writeln('s=',s);
End
a. 120.
b. 625.
c. 0.
d. 112.
Câu 45: Hãy cho biết kết quả đoạn mã sau bằng bao nhiêu trong các phương án cho dưới đây ?
Var
a,b,s:Real;
Begin
a:=9;
b:=34;
s:= sqrt(b-a);
Writeln ('s = ', s);
End.
a. 3.
b. 0.
c. 5.
d. 100.
Câu 46: Hãy cho biết chương trình đệ quy sau khi n=3 thì factorial bằng bao nhiêu trong các phương án sau đây?
Function Factorial(N:integer):Longint;
Begin
If N=0 Then Factorial:=1
Else Factorial:=N* Factorial(N-1);
End;
a. 3.
b. 0.
c. 6.
d. 10.
Câu 47: Hãy cho biết kết quả của đoạn mã sau bằng bao nhiêu trong các phương án dưới đây ?
s:=0;
For i=1 To 2 Do
For j =1 to 2 Do
s:=s+i*0;
Writeln('S=',s);
a. 12.
b. 0.
c. 15.
d.10.
Câu 48: Hãy cho biết kết quả a,b,c của chương trình sau bằng bao nhiêu trong các phương án cho dưới đây?
Var a,b,c:integer;
Procedure tt( a:integer; var b,c:integer);
Begin
a:=a+1; b:=b+1; c:=a+b;
End;
Begin
a:=1;b:=1;
tt(a,b,c);
Write(‘a=’,a,’b=’,b,’c=’,c);
Readln;
End.
a. a=2 b=2 c=4.
b. a=1 b=1 c=2.
c. a=1 b= 2c=4.
d. a=1 b=2 c=0.
Câu 49: Muốn xoá tệp có tên ‘LyLich.Dat’ trên đĩa (được đặc trưng qua biến F ) ta viết như thế nào trong các cách viết cho dưới đây ?
a. Assign(F, 'LyLich.dat');remove(F);
b. Assign(F, 'LyLich.dat');del(F);
c. Assign(F, 'LyLich.dat');delete(F);
d. Assign(F, 'LyLich.dat');erase(F);
Câu 50: Hãy cho biết đoạn chương trình sau khi n=4 thì s bằng bao nhiêu trong các phương án dưới đây?
Var n,i, s:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua n :'); Readln(n);
S:=0;
For i:=1 to n do s:=s*i;
End;
a. 10.
b. 0.
c. 11.
d. 12.
Câu 51:Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?
M:=A[1];
For i:=2 To N Do
If M>A[i] Then M:=A[i];
a. Tìm phần tử lớn nhất của mảng N phần tử.
b. Sắp xếp N phần tử của mảng giảm dần.
c. Sắp xếp N phần tử của mảng tăng dần.
d. Tìm phần tử nhỏ nhất của mảng N phần tử.
Câu 52: Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?
M:=A[1];
For i:=2 To N Do
If M<A[i] Then M:=A[i];
a. Tìm phần tử lớn nhất của mảng N phần tử.
b. Sắp xếp N phần tử của mảng giảm dần.
c. Sắp xếp N phần tử của mảng tăng dần.
d. Tìm phần tử nhỏ nhất của mảng N phần tử.
Khai báo và nhập giá trị cho mảng A gồm 15 phần tử. Đếm và in ra số phần tử là số nguyên tố của mảng A, số phần tử là số hoàn hảo của mảng A. Yêu cầu viết hàm kiểm tra số nguyên tố và hàm kiểm tra số hoàn hảo.
C++
include <iostream>