Tin học Thuật toán

[Cầu Vồng]

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

 

[hdiemht]

Câu 2:
B1: Nhập N và N dãy a1;a2;...;an
B2: i<--1; dem<--0;
B3: Nếu $i>N$ thì thông bao dem;
B4: Nếu $a_i<0$ thì dem<-- dem+1;
B5: i<-- i+1, quay lại B3.
#Như vạy chắc ổn nhỉ?

 

[Thiên Thuận]

Câu 2:
B1: Nhập N và N dãy a1;a2;...;an
B2: i<--1; dem<--0;
B3: Nếu $i>N$ thì thông bao dem;
B4: Nếu $a_i<0$ thì dem<-- dem+1;
B5: i<-- i+1, quay lại B3.
#Như vạy chắc ổn nhỉ?

Chỗ quay lại bước 3 có cần tách ra thành 1 bước riêng không nhỉ? Hay để chung ở bước 5? Tại Thuận thấy thuật toán được học trên lớp thì tách riêng.

 

[hdiemht]

Chỗ quay lại bước 3 có cần tách ra thành 1 bước riêng không nhỉ? Hay để chung ở bước 5? Tại Thuận thấy thuật toán được học trên lớp thì tách riêng.

Hì! Trên lớp thì Diễm không cần tách luôn! Diễm cũng hay làm như thế! hehe

 

[ka1412]

View attachment 83054

Bài 1:

uses crt;
var n,i:integer;
s:real;
function giaithua(w:integer):longint;
var q:integer;
begin
    giaithua := 1;
    for q    := 2 to w do giaithua:=giaithua*q;
end;
begin
    clrscr;
    write('Nhap so:');readln(n);
    s := 1;
    for i:=2 to n do
    s := s+1/giaithua(i);
    write('S=',s:6:9);
    readln
end.

A chỉ biết code thoi =))) Có gì không hiểu e cứ hỏi nhé.