Pascal khó và hay, cần giúp đỡ

S

socola01

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

Các anh( chị) giúp em viết thuật toán cho bài tập này với, em đang cần gấp lắm rồi, nếu ai có thể giúp được thì làm ơn giúp ngay, em xin cảm ơn trước

bài tập: Áp dụng câu lệnh lặp để giải phương trình:

[TEX]S= 1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4}+.... + \frac{1}{N}[/TEX]
 
O

o0_zz_0o

anh gì ơi, trong 3 cái trên cái nào mới là đúng ak, hay cả 3 cái đều đúng
Bấm để xem đầy đủ nội dung ...
Hix hix Cả 3 em ạ. Mà em không chịu chạy thử đi hoặc viết lại chương trình đi xem nó thế nào

Đừng ỷ lại em nhé
Bấm để xem đầy đủ nội dung ...

@-)@-)@-)
Để mình giúp bạn làm cách đơn giản nhất và đầy đủ nhất nha
Mã: 
program hihi;
uses crt;
var
   i,n:longint;
   s:real;
begin
     clrscr;
     write('n=');readln(n);
     for i:= 1 to n do
     s:=s+1/i;
     write('s = ',s);
     readln;
end.
 
H

haiphongit.cntt

Bài giải

Bạn có thể tham khảo thêm bài làm của mình đây. hj
Mã: 
program baigiai;
uses crt;
var 	n,i: integer;
	S: real;
        tc : char;
begin
	clrscr;
        repeat
	writeln('Nhap so nguyen n!');
	readln(n);
	S:=0;
	for i:=1 to n do S:= S+1/i;
	writeln('Tong cua day so la: ', S:8:2);
	readln;
        writeln('Ban co muon thuc hien lai chuong trinh hay ko? (C/K)');
        readln(tc);
        until (tc='k') or (tc='K')
end.
 
N

nguyenhungtu9x

bài này có ai biết làm theo đệ quy không! mình chưa hiểu đệ quy là như thế nào! có bạn nào giảng cụ thể cho mình hiểu và đưa vài ví dụ được không
 
P

p_trk

Thủ tục đệ quy: một thủ tục gọi là đệ quy nếu trong quá trình thực hiện nó phải gọi đến chính nó nhưng với kích thước nhỏ hơn của tham số

VD:
Procedure Giaithua(n:word):integer;
begin
if n=0 then giaithua:=1
else giaithua:=n*giaithua(n-1);
end;
 
You must log in or register to reply here.
Top Bottom