Viết các lệnh in ra màn hình thông tin như sau:
a) 1 × 3 × 5 × 7 = 105
b) Bạn Hoa năm nay 16 tuổi.
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 ạ .
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
string st;
int a;
cin>>st;
cin>>a;
cout<<"Xin chao "<<st<<endl;
cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";
return 0;
}
Hãy viết các câu lệnh Pascal sau :
A) Nhập cân nặng của một bạn thông qua biến cannang
B) Xuất (in) ra màn hình phép tính tổng ba số x,y,z
C) xuất (in) rq màn hình dòng thông báo : chuc cac ban thi tot
A) read(cannang);
B) write(x+y+z);
C) write('chu ban thi tot');
a) read(canang)
b) write(x + y + z)
c) write("chuc cac ban thi tot")
Câu 2. Trong ngôn ngữ lập trình Pascal giả sử ở phần thân chương trình có 2 phép gán như sau:
A:=10;
B:= 5,5;
a. Em hãy viết lệnh khai báo biến cho 2 biến nói trên?
b. Viết lệnh thông báo giá trị của 2 biến A, B ra màn hình?
Viết chương trình sử dụng biến mảng lưu điểm Tin học của học sinh trong lớp 8A, số lượng 35 học sinh thực hiện những yêu cầu sau:
a)Nhập vào điểm của 35 bạn học sinh
b)In ra màn hình tất cả điểm
c) In ra màn hình những học sinh có điểm dưới 5 hoặc điểm >9
Var a:array[1..35] of real;
i:integer;
Begin
For i:=1 to 35 do
Begin
Write('Nhap diem thu ',i);readln(a[i]);
End;
write('Diem vua nhap la ');
For i:=1 to 35 do write(a[i]:10:2);
Writeln;
write('Cac diem duoi 5 hoac > la ');
For i:=1 to 35 do
If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)
Readln
End.
Viết chương trình nhập vào một dãy só và xuất ra màn hình các thông tin sau:
a) Phần tử lớn nhất của dãy.
b) Phần tử nhở nhất của dãy.
c) Tổng các phần tử của dãy.
giải hộ vs ạ
Program HOC24;
Uses crt;
var a: array[1..1000] of integer;
min,max,i,n: integer;
t: longint;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
if a[i] > max then max:=a[i];
if a[i]<min then min:=a[i];
t:=t+a[i];
end;
writeln('Phan tu lon nhat cua day la: ',max);
writeln('Phan tu be nhat cua day la: ',min);
write('Tong cac phan tu cua day la: ',t);
Readln;
End.
Viết chương trình pascal in ra màn hình kết quả thông tin cá nhân của học sinh. Mỗi thông trên một dòng Gợi ý: sử writeln() để in ra màn hình
C©u 2: Lệnh Clrscr dùng để làm gì? A. In thông tin ra màn hình. B. Tạm ngưng chương trình. C. Xoá màn hình kết quả. D. Khai báo thư viện. Câu 3: Trong Pascal khai báo hằng bằng từ khóa: A. Const B. Var C. Type D. Uses Câu 4: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x? A. Writeln(‘Nhap x = ’); B. Write(x); C. Writeln(x); D. Readln(x); C©u 5: Trong Pascal, khai b¸o nµo sau ®©y lµ ®óng cho khai b¸o biÕn? A. Var tb: real B. Var R = 30; C. Const x: real; D. Var y: integer; Câu 6: Biểu thức toán học (a+1)2 – được viết dưới dạng biểu thức trong Pascal là: A. (a+1)*a+1 – 7*a/2 B. (a+1)*(a+1) – 7*a/2 C. a+1 * a+1 – 7*a/2 D. (a+1)(a+1) – 7a/2 Câu 7: Cách gán giá trị a + b vào biến Tong là: A. Tong:a+b; B. Tong(a+b); C. Tong=a+b; D. Tong:=a+b; Câu 8: Kết quả của phép chia, phép chia lấy phần nguyên và lấy phần dư của hai số nguyên 47 và 5 là: A. 47/5 =9; 47 div 5 = 9 ; 27 mod 5 = 2 B. 47/5 =9; 47 div 5 = 9 ; 27 mod 5 = 9 C. 47/5 =9.4; 47 div 5 = 9 ; 27 mod 5 = 2 D. 47/5 =9.4; 47 div 5 = 2 ; 27 mod 5 = 9 Câu 9: Câu lệnh nào sau đây có kết quả là 3? A. 25 div 6 B. 25 div 7 C. 25 div 8 D. 25 div 9 Câu 10: Cú pháp của câu lệnh For…do là A. For = to do ; B. For := to do ; C. For := to do D. For := to do ; Câu 11: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? j:=0; For i:=0 to 5 do j:=j+2; A. 20 B. 12 C. 7 D. 5 Câu 12: Câu lệnh lặp For i:=3 to 10 do Begin end; vòng lặp thực hiện bao nhiêu lần a) Không lần nào; b) 7 lần; c) 8 lần; d) 10 lần. Câu 13: Câu lệnh nào sau đây được viết đúng cú pháp? A. While <điều kiện> to ; B. While < câu lệnh > do < điều kiện >; C. While <điều kiện> to do ; D. While <điều kiện> do ; Câu 14: Xác định số lần lặp trong đoạn chương trình sau: A:=5; While A<20 do A:=A+5; A. 1 B. 4 C. 5 D. vô hạn lần Câu 15: Cho đoạn chương trình: X:=10; Repeat X:=X*2; until X>25; X có giá trị là: A. 10 B. 20 C. 26 D. 40 Câu 16: Đoạn chương trình pascal sau: x:= 3 ; While x > 10 do x:=x+3; giá trị của x là: A. 3 B. 6 C. 12 D. 13 Câu 17: Hãy cho biết kết quả của đoạn chương trình A:=10; while A>=10 do write (a); A. Trên màng hình xuất hiện 1 chữ a. C. Trên màng hình xuất hiện số 10. B. Trên màng hình xuất hiện 10 chữ a. D. Chương trình lặp vô hạn lần. Câu 18: Trong các cánh khai báo biến mảng sau đây, cách khai báo nào là hợp lệ: A. Var A: array[1,100] of integer; B. Var A: array[1..100] of integer; C. Var A: array(1..100) of integer; D. Var A: array[1,,100] of integer; Câu 19: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây sai: A. Chỉ số cuối phải nhỏ hơn hoặc bằng 100 C. Kiểu dữ liệu có thể là integer hoặc real B. Chỉ số đầu và chỉ số cuối là hai số nguyên D. Chỉ số đầu chỉ số cuối Câu 20: Xuất dữ liệu từ mảng A có 30 phần tử từ 5 đến 15 thì ta viết lệnh như sau: A. For i:=5 to 15 do Writeln(A); C. Writeln(A[5..15]); B. For i:=5 to 15 do Writeln(A[i]); D. Writeln(A[i]); Câu 21: Biểu tượng của phần mềm Anatomy: A. B. C. D. Câu 22: Trong phần mềm Anatomy, đâu là biểu tượng của hệ thần kinh A. B. C. D. Câu 23: Hệ cơ có chức năng là: A. Giúp lưu thông máu đi khắp cơ thể để nuôi từng tế bào. B. Co, dãn để làm cho xương chuyển động C. Thải các chất độc ra bên ngoài cơ thể. D. Tiếp quản thức ăn từ miệng và tiêu hoá, hấp thụ, biến thức ăn thành năng lượng nuôi cơ thể Câu 24: Trong phần mềm Anatomy, đâu là biểu tượng của hệ tuần hoàn A. B. C. D. Câu 25: Hệ tiêu hóa có chức năng là: A. Giúp lưu thông máu đi khắp cơ thể để nuôi từng tế bào. B. Co, dãn để làm cho xương chuyển động C. Thải các chất độc ra bên ngoài cơ thể. D. Tiếp quản thức ăn từ miệng và tiêu hoá, hấp thụ, biến thức ăn thành năng lượng nuôi cơ thể
Dài quá bạn nên đăng mỗi lần 5-> 10 câu cho dễ đọc
Viết đoạn chương trình sử dụng câu lệnh lặp để thực hiện a)In ra màn hình 50 dấu* b)Tính tổng 1+3+5+7+...+99
uses crt;
var i,s:integer;
begin
for i:=1 to 50 do writeln(*);
s:=0;
For i:=1 to 99 do while i mod 2 = 1 do s:=s+i;
writeln('tong cua phep tinh la',s); readln;
end.
uses crt;
var i,t:integer;
begin
clrscr;
for i:=1 to 50 do
write('*');
writeln;
t:=0;
for i:=1 to 100 do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
Câu 1: Để ngăn cách giữa câu lệnh trong lập trình pascal: chấm phẩy (;), chấm (.), 2 chấm (:), phẩy (,)
Câu 2: Viết câu lệnh đưa ra màn hình thông báo: Khong duoc dot Phao!
Câu 3: Viết câu lệnh đưa ra kết quả chu vi c của hình thang
1: ;
2: write('Khong duoc dot Phao!');
3: write(c);
Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hãy giúp hai bạn viết chương trình Pascal hoàn thiện thực hiện:
- Khai báo mảng 1 chiều gồm 10 phần tử chứa các số nguyên.
- Nhập giá trị bất kì cho 10 phần tử đó.
- Kiểm tra xem những phần tử nào thỏa mãn là số chẵn thì tính tổng.
- Thông báo tổng đó ra màn hình.
Cảm ơn ạ
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.