Tin học lỗi pascal

[học mãi.vn.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

lỗi này là gì ạ

 

[G I N]

View attachment 53243View attachment 53243 lỗi này là gì ạView attachment 53243

Thừa dấu : ở chỗ nào đấy @@

 

[học mãi.vn.com]

Thừa dấu : ở chỗ nào đấy @@

n:=0 sao lại thừa vậy

 

[Sơn Nguyên 05]

View attachment 53243View attachment 53243 lỗi này là gì ạView attachment 53243

Nếu bạn chạy chương trình đó thì lỗi là đúng rồi, sau lệnh Readln thiếu dấu ";" và chưa có lệnh END. để kết thúc chương trình

 

[G I N]

Nếu bạn chạy chương trình đó thì lỗi là đúng rồi, sau lệnh Readln thiếu dấu ";" và chưa có lệnh END. để kết thúc chương trình

Nhưng nó cx báo lỗi thiếu dấu : mà @@

 

[trà nguyễn hữu nghĩa]

View attachment 53243View attachment 53243 lỗi này là gì ạView attachment 53243

Cho mình xem đoạn ở trên chỗ dem := 0 được không

 

[ka1412]

View attachment 53243View attachment 53243 lỗi này là gì ạView attachment 53243

Ở phần var làm sao bạn gán giá trị biến được? Mà bạn còn chưa end chương trình

 

[Khánh Huyền_22]

Nếu bạn chạy chương trình đó thì lỗi là đúng rồi, sau lệnh Readln thiếu dấu ";" và chưa có lệnh END. để kết thúc chương trình

Sau readln cuối bài không cần ; vẫn được nhá

 

[học mãi.vn.com]

lỗi gì đây mọi người
@ngchau2001, @Hồng Nhật[/USER]

 

[trà nguyễn hữu nghĩa]

lỗi gì đây mọi người
@ngchau2001, @Hồng Nhật[/USER]

Làm sao so sánh số với chuối được bạn

 

[học mãi.vn.com]

Làm sao so sánh số với chuối được bạn

chứ theo bn thì viết sao

 

[trà nguyễn hữu nghĩa]

chứ theo bn thì viết sao

for i := 1 to length(s) do
begin
Val(s[i],c,code);
if code = 0 then n := n + 1;
end;

Khai báo thêm biến Code và c nữa là được

 

[học mãi.vn.com]

for i := 1 to length(s) do
begin
Val(s[i],c,code);
if code = 0 then n := n + 1;
end;

Khai báo thêm biến Code và c nữa là được

mình chưa hc code bn
mình chỉ ms hc kiểu xâu, kiểu mảng,câu lệnh if...then, for....do

 

[ka1412]

mình chưa hc code bn
mình chỉ ms hc kiểu xâu, kiểu mảng,câu lệnh if...then, for....do

Val là hàm của xâu dung để chuyển ký tự số trong xâu thành số ấy bn

 

[học mãi.vn.com]

Val là hàm của xâu dung để chuyển ký tự số trong xâu thành số ấy bn

mà sao mình thêm dấu nháy ở chỗ số 9 cũng k đc hạ

 

[nhokoccun]

View attachment 53243View attachment 53243 lỗi này là gì ạView attachment 53243

thử sửa lại thành dem:=dem+1; xem được không

 

[ka1412]

View attachment 53243View attachment 53243 lỗi này là gì ạView attachment 53243

Mình làm thử bài của bạn luôn. Có j thì bn hỏi mình nha .

uses crt;
var s:string;
i,d:integer;
begin
    clrscr;
    write('Nhap xau:');readln(s);
    for i := 1 to length(s) do if s[i] in ['0'..'9'] then inc(d);
    write('Co ',d,' ki tu so');
    readln
end.