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 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 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ử.
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.
Nhập từ bàn phím 2 số nguyên dương a,b (1<a<b<1000)
a) In ra UCLN của 2 số a,b
b) In ra BCNN của 2 số a,b
1. Viết chương trình nhập vào 2 số nguyên a, b (kiểu char). Tính và in kết quả ra màn hình các biểu thức sau:
a+b
a/b
a&b
a|b
a<<2
b>>1
2. Viết chương trình nhập vào họ tên và năm sinh của một người, in ra màn hình lời chào và số tuổi của người đó.
mn giúp mình với mình cảm ơn nhiều ạ .
Viết chươngtrình nhập vào hai số nguyên dương a và b.Cho biết kết quả các phép toán:cộng,trừ,nhân,chia,chia lấy phần dư của a cho b.
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 1. Tổng chẵn lẻ
Viết chương trình nhập vào một số nguyên n, sau đó in ra tổng các số lẻ và các số
chẵn tương ứng từ 1 đến n và hiệu tuyệt đối giữa 2 tổng vừa tính.
Ví dụ:
• Nhap vao n: 1000
• Kết quả in ra:
– Tong cac so le la 250000
– Tong cac so chan la 250500
– Hieu tuyet doi la 500
C++
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>
