Tìm và sửa các lỗi có trong chương trình pascal sau và sửa lại cho đúng : Program Tinh_tien Var soluong:=integer; Dongia, thanhtien = real; Const phi
Câu hỏi :
Tìm và sửa các lỗi có trong chương trình pascal sau và sửa lại cho đúng : Program Tinh_tien Var soluong:=integer; Dongia, thanhtien = real; Const phi : 10000; Begin Writeln ('Don gia:'); readln ('Dongia'); Writeln ('So luong : ' ); readln (soluong); thanhtien = soluong*Dongia + phi; Writeln ('So tien khach hang phai tra la:',thanhtien); End;
Lời giải 1 :
uses crt;
var a:array[1..20]of integer;
i,max:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=2 to 20 do
if max<a[i] then max:=a[i];
write(max);
readln;
end.
Thảo luận
Lời giải 2 :
Do mình dùng ipad nên ko xuống hàng đượcc bạn thông cảmm
Có thể bạn quan tâm
Tin Học
Lớp 8
Câu 11: Viết chương trình thực hiên nhập hai số nguyên x và y ra màn hình. Kết quả so sánh hai số đó ?
Câu 12: Viết chương trình nhập 1 số nguyên a. Kiểm tra s ...
Tin Học
Lớp 8
Viết THUẬT TOÁN của các ct sau
1_ viết thuật toán tìm ước hai số bất kì
2 viết thuật toán tìm ƯCLN(evclid)
3 viết thuật toán tìm BC VÀ BCNN
4_viet thuật toán ...
Tin Học
Lớp 8
HĐTNST:CHỦ ĐỀ 7
HỌC MÀ CHƠI, CHƠI MÀ HỌC THUẬT TOÁN
làm kiểu gì vậy ạ ? câu hỏi 4364830 - hoctapsgk.com ...
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247