Các câu hỏi tương tự
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ Tìm và sửa lỗi trong chương trình pascal sau: var T, So, D: longint; begin T: 0; D: 0; repeat write(Nhap so: ); readln(So); if T + So 15000 then begin T: T + So; D: Dem + 1; end; until T 15000; write...
Đọc tiếp
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ
Tìm và sửa lỗi trong chương trình pascal sau:
var T, So, D: longint;
begin
T:= 0;
D:= 0;
repeat
write('Nhap so: ');
readln(So);
if T + So <= 15000 then
begin
T:= T + So;
D:= Dem + 1;
end;
until T >= 15000;
writeln('Tong cac so la: ', Tong);
writeln('Tong so da nhap: ', Dem);
readln;
end.
cách xoá bài mà đã lưu trong free pascal
nhập số nguyên a in ra số lớn gấp đôi số A
Input là số nguyên A ,
output in ra kết quả bài toán.
bài tập thi bồi dưỡng trong free pascal .
Xem chi tiết
Tìm và sửa lỗi trong ct pascal sau: var i: integer; diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan, diemTrungBinhAnh: real; begin diemTrungBinhToan : 0; diemTrungBinhVan : 0; diemTrungBinhAnh : 0; for i : 1 to 100 do begin writeln(Nhap diem cua hoc sinh thu , i, : ); write(Diem Toan: ); readln(diemToan); ...
Đọc tiếp
Tìm và sửa lỗi trong ct pascal sau:
var
i: integer;
diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan, diemTrungBinhAnh: real;
begin
diemTrungBinhToan := 0;
diemTrungBinhVan := 0;
diemTrungBinhAnh := 0;
for i := 1 to 100 do
begin
writeln('Nhap diem cua hoc sinh thu ', i, ' : ');
write('Diem Toan: ');
readln(diemToan);
diemTrungBinhToan := diemTrungBinhToan + diemToan;
write('Diem Van: ');
readln(diemVan);
diemTrungBinhVan := diemTrungBinhVan + diemVan;
write('Diem Anh: ');
readln(diemAnh);
diemTrungBinhAnh := diemTrungBinhAnh + diemAnh;
end;
diemTrungBinhToan := diemTrungBinhToan / 100;
diemTrungBinhVan := diemTrungBinhVan / 100;
diemTrungBinhAnh := diemTrungBinhAnh / 100;
writeln('Diem trung binh mon Toan la: ', diemTrungBinhToan:0:2);
writeln('Diem trung binh mon Van la ', diemTrungBinhVan:0:2);
writeln('Diem trung binh mon Anh la: ', diemTrungBinhAnh:0:2);
Readln;
End.
Câu 2 : Thông thường, có thể xảy ra hai loại lỗi khác nhau khi dịch và thực hiện chương trình: lỗi do viết sai quy tắc ( còn gọi là lỗi cú pháp) và những lỗi phát hiện trong khi chương trình thực hiện hoặc sau khi chương trình đã thực hiện (Còn gọi là lỗi ngữ nghĩa). Ví dụ , một số lỗi ngữ nghĩa là : chia cho số 0, số vượt quá phạm vi bộ nhớ đã khai báo, thuật toán sai,…Hãy điền các từ (Cú pháp, ngữ nghĩa) thích hợp vào chỗ trống (…) trong các câu sau :a)Lỗi gặp phải khi chương trình không đượ...
Đọc tiếp
Câu 2 : Thông thường, có thể xảy ra hai loại lỗi khác nhau khi dịch và thực hiện chương trình: lỗi do viết sai quy tắc ( còn gọi là lỗi cú pháp) và những lỗi phát hiện trong khi chương trình thực hiện hoặc sau khi chương trình đã thực hiện (Còn gọi là lỗi ngữ nghĩa). Ví dụ , một số lỗi ngữ nghĩa là : chia cho số 0, số vượt quá phạm vi bộ nhớ đã khai báo, thuật toán sai,…
Hãy điền các từ (Cú pháp, ngữ nghĩa) thích hợp vào chỗ trống (…) trong các câu sau :
a)Lỗi gặp phải khi chương trình không được viết theo các quy tắc của ngôn ngữ lập trình là lỗi ……………
b)Lỗi xảy ra trong khi thực hiện chương trình là lỗi ………………..
c)Chương trình dịch phát hiện được các lỗi………………..nhưng không phát hiện được các lỗi….
sử dụng free pascal viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy N số tự nhiên và viết ra màn hình? độ dài của dãy cũng được nhập từ bàn phím
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)Brogram Bai 1;Uses crt ;Var x, y integerBeginWrite(‘nhap vao gia tri cua x : ‘, ‘x’) ;Readln(x);Write(‘nhap vao gia tri cua y : ‘, ‘y’) ;Readln();Write(‘tong cua hai so x va y la:’, x+y) ; Readlnend
Đọc tiếp
Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Đọc và sửa sai các lỗi trong chương trình Pascal sauBrogram Bai 1;Uses crt ;Var x, y integerBeginWrite(‘nhap vao gia tri cua x : ‘, ‘x’) ;Readln(x);Write(‘nhap vao gia tri cua y : ‘, ‘y’) ;Readln();Write(‘tong cua hai so x va y la:’, x+y) ; Readlnend
Đọc tiếp
Đọc và sửa sai các lỗi trong chương trình Pascal sau
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end