Bài 3. Chương trình máy tính và dữ liệu
Các câu hỏi tương tự
tại sao viết uses crt; lại bị báo lỗi 'indentifier CRT'?
viết chương trình pascal tính diện tích và chu vi
a,hình vuông
b,hình chữ nhật
c,hình tam giác
d,hình tròn
e,hình thang
giúp mìk nha!
Tìm và sửa tất cả các lỗi sai trong chương trình sau :
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Bài1. Để tính thương 2 số a,b nguyên: t=a/b, hãy lựa kiểu dữ liệu thích hợp cho t,a,b? về biểu thức toán học: Bài 2. Viết các biểu thức sau dưới dạng trong Pascal a. a*x*x*x+b*x*x+c*x+d b. 1/(1+x)*(1+x)-2/(x*x+1) Bài3: Viết 1 chương trình tính và in ra màn hình kết quả của 2 phép tính sau: a) 18 div 5; b) 20 mod 7;
Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.
Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất.
Bài 3: khai báo biến mảng trong pascal với mô tả sau:
Biến mảng có tên theo quy tắc đặt tên, gồm 15 phần tử, mỗi phần tử là biến có kiểu số thực, chỉ số phần tử cuối là 100.
Đọc tiếp
Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.
Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất.
Bài 3: khai báo biến mảng trong pascal với mô tả sau:
Biến mảng có tên theo quy tắc đặt tên, gồm 15 phần tử, mỗi phần tử là biến có kiểu số thực, chỉ số phần tử cuối là 100.
Chuyển các biểu thức được viết trong Pascal sau đây thành các biểu thức toán:
a. (a+b)*(a+b)-x/y
b. b/(a*a+c)
c. a*a/(2*b+c)*(2*b+c)
d. 1+1/2+1/2*3+1/3*4+1/4*5
Tìm và sửa lỗi cho đoạn chương trình sau trong Pascal:Program tim_loi Var a,b: interger;Begin a:5;b 10 Write(‘Tong cua a va b la:, a+b); Readln End.
Đọc tiếp
Tìm và sửa lỗi cho đoạn chương trình sau trong Pascal:
Program tim_loi
Var a,b: interger;
Begin
a:=5;
b= 10
Write(‘Tong cua a va b la:, a+b);
Readln
End.
Hãy nêu các bước thực hiện một chương trình trong ngôn ngữ lập trình PASCAL?
Tìm lỗi sai và chữa đúng :
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 do la :TB');
Readln
End