Giúp mình bài cơ bản 1

[tmb12]

[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.

a) Đếm số lần xuất hiện các kí tự trong chuỗi nhập từ bàn phím
b) In ra màn hình bảng mã ASCII
c) Tính giai thừa của số tự nhiên N nhập từ bàn phím
Em còn gà quá mong được giúp đỡ

 

[hthtb22]

Ý a
program bai_tap_a;
uses crt;
const DAU = ' .,';
var
s: string;
i, d: integer;
begin
clrscr;
write(' Nhap xau: ');
readln(s);
s:= ' '+ s;
d:=0;
for i:=1 to length(s) - 1 do
if (pos(s,DAU) > 0) and (pos(s[i+1],DAU) = 0) then d:=d+1;
writeln(' So luong tu trong cau la: ',d);
readln;
end.

Ý b(tóm tắt)

for i:=0 to 255 do
begin
write(chr(i),' ',i);
readln;
end;

 

[11thanhkhoeo]

c,

var i,n:integer;

s:int64;

begin 
   readln(n);
   for i:=1 to n do s:=s*i;
           Write(s);
readln end.

 

[mikelhpdatke]

c>

readln(n);
s:=1;
For i:=2 to n do s:=s*i;
writeln('N!' = ,s);

P/s: Post chậm hơn anh Thành mấy giây :-s

 

[tmb12]

c,

var i,n:integer;
 
s:int64;
 
begin 
   readln(n);
   for i:=1 to n do s:=s*i;
           Write(s);
readln end.

Code của anh Thành và Mike khác nhau quá, của ai đúng đây?

 

[mikelhpdatke]

Về vòng for thì ko có j` khác nhau, vẫn là 1. Còn code của a Thành sai. Phải gán s:=1;

 

[cuong276]

Tóm lại là cả 2 người đều sai
Bài của anh Thành thì thiếu gán
Còn bài của Đạt thì thiếu rất nhiều: Khai báo biến, Thiếu begin...end, thiếu readln (không có thì phải ấn alt+F5 để xem lại kết quả thì mất công)
Tóm lại, câu c đầy đủ phải thế này:

var i,n:integer;
      s:longint;
BEGIN
      write('n=');readln(n);
      s:=1;
      for i:=2 to n do s:=s*i;
      write('n!=',s);
      readln;
END.

Mình cũng xin lưu ý mọi người luôn. Khi trả lời phải post đầy đủ, không thiếu sót như mike
Nếu không mọi người nhìn vào sẽ không hiểu và có lẽ sẽ nghĩ đây là một cách lập trình mới (thực tế là nhầm lẫn tai hại)

 

[mikelhpdatke]

Kêu mình sai là sao. Mình chỉ viết phần xương thôi. Còn code thì tự làm chứ. Thuật toán cũng đơn giản

 

[tmb12]

Kêu mình sai là sao. Mình chỉ viết phần xương thôi. Còn code thì tự làm chứ. Thuật toán cũng đơn giản

Nhưng đối với newbie tụi mình mà đọc code của bạn hổng hiểu gì luôn, những bài dễ bạn có thể chỉ hướng dẫn thuật toán rồi bọn mình tự làm

 

[mikelhpdatke]

Nhưng đối với newbie tụi mình mà đọc code của bạn hổng hiểu gì luôn, những bài dễ bạn có thể chỉ hướng dẫn thuật toán rồi bọn mình tự làm

Mình sẽ rút kinh nghiệm, nhưng không phải cứ hướng dẫn thuật toán là hiểu, bạn cũng phải tìm hiệu, chạy tay ra nháp.