Cho đoạn chương trình sau:
a:=3; b:=5;
if a > b then c:=a+b;
Sau khi thực hiện đoạn chương trình trên, giá trị của c là bao nhiêu?
a. c=3
b. c=5
c. c=8
d. c ko xác định
program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln('KIEM TRA TAM GIAC'); writeln('nhap 3 canh a,b,c:'); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a)then begin writeln('day la 3 canh cua tam giac'); if(a*a=b*b+c*c) or(b*b=a*a+c*c)or(c*c=a*a+b*b)then writeln('TAM GIAC VUONG')else if(a=b)and(b=c)then writeln('TAM GIAC DEU') else if(a=b)or(a=c)or(b=c)then writeln('TAM GIAC CAN')else writeln('TAM GIAC THUONG'); end else writeln('khong phai ba canh tam giac'); readln; end.
Câu 1: Khởi động chương trinh Free Pascal thực hiện các yêu cầu sau:
a, Khai báo một mảng các phân tử gồm 100 số nguyên
b, Nhập các phần tử của mảng từ bản phim
c. Hiển thị phần tử lớn nhất trong mảng
d. In ra màn hình các phần tử là số lẻ trong mảng
e, sắp xếp mảng theo thứ tự giảm dần
Câu 35: Một chương trình có các khai báo sau:
Var a,b : real;
Const c = 3.14;
Câu lệnh nào trong các câu lệnh sau là không hợp lệ?
A. readln(a,b);
B. a:=b*c;
C. c:= a;
D. b:= c;
Bài 2
c + h + a + s + u =
c + h + a + f + o =
c + h + u + s =
Em hãy thực hiện các yêu cầu sau:
a. Khai báo một biến mảng DTB có số phần tử bằng sĩ số lớp em, các phần tử có kiểu dữ liệu số thực. (Lớp:30hs)
b. Viết lệnh nhập dữ liệu cho mảng DTB từ bàn phím.
C, Tìm giá trị lớn nhất trong mảng DTB
giúp mình ý b và c với nha
viết chương trình nhập vào 3 số a, b, c. In ra màn hình kết quả kiểm tra a, b, ccos là 3 cạnh của tam giác không ? gợi ý: điều kiện để a, b, c là 3 cạnh tam giác là: (a+b>c) và (b+c>a) và (a+c>b)
Một chương trình có các khai báo sau:
Var a,b : real;
Const c = 16.8;
Câu lệnh nào trong các câu lệnh sau là không hợp lệ?
a.readln(a,b);
b.a:=b*c;
c:=a;
b;=c;
Viết phương trình Pascal nhập vào các số a và b,c Hãy tính S=(a+b)*c+a*(b+c)
Nhập 1 mảng số nguyên có tối đa 30 phần tử
Xuất ra các phần tử chia hết cho 5
Cho biết mảng vừa nhập có bao nhiêu phần tử