Tin học Lập trình Pascal !

H

hoangtu_faithful

Choy Choy box tin ít hoạt động nhỉ các Pro tin đâu oài thử xem nào .
Làm bài này nữa nák
CT PT trùng phương
a [TEX]x^4 [/TEX]+ b [TEX]x^2[/TEX]+ c = 0
 
S

silvery21

giúp minh` với

lập trình đưa ra màn hình
tính tổng

[TEX]S=\frac{1}{a+1}+\frac{1}{a+2}+\frac{1}{a+4}+\frac{1}{a+6}+..........+\frac{1}{a+2010}[/TEX]

a nhập từ bàn phím
 
M

mua_lanh_0000

her her nếu nhờ có thể làm júp còn đố thì ko :))
Mã:
Nếu nhờ làm thì anh có thể làm giúp chứ nếu đố làm bài này thì chả ai có hứng đâu!
ah bài lần trước anh ra cho em :)
Mã:
Anh thấy đây là một bài cơ bản mà nhiều bạn hỏi rồi nhỉ?
Có lẽ không cần viết lại code đâu nhỉ :d
Anh có một bài như thế này em thử giải xem sao: Cho số abcde nhập từ bàn phím, hãy sắp xếp lại các chữ số của số đó sao cho ta được số nguyên tố lớn nhất xếp được từ số đó. Nếu không xếp đc số nguyên tố nào thì xuất ra màn hình " No" ^^
uhm em tưởng Ok mà hóa ra "bí rùi" hjjj nên quyeté didnhj ai jải rùm em bài nbày em sẽ thank :)
 
M

mua_lanh_0000

giúp minh` với

lập trình đưa ra màn hình
tính tổng

latex.php


a nhập từ bàn phím
Bạn dùng lệnh : for........to......do đi :)
program tinh_tong;
uses crt;
var S,a: real;
begin
clrscr;
writeln('nhap a');
readln(a);
S:=1/(a+1)
for i:=0 to 2008 do
ìf (i mod 2 =0) then S:= S+1/(a+i+2);

writelan('kq=');
readln
end.

đây là suy nghĩ của mình nhưng ko biết có đúng ko :( anh Marik júp em xem có dc ko ?
 
Last edited by a moderator:
M

marik

Bạn dùng lệnh : for........to......do đi :)
program tinh_tong;
uses crt;
var S,a: real;
begin
clrscr;
writeln('nhap a');
readln(a);
S:=1/(a+1)
for i:=0 to 2008 do
ìf (i mod 2 =0) then S:= S+1/(a+i+2);
else S:= S+1/(a+i-1);
writelan('kq=');
readln
end.

đây là suy nghĩ của mình nhưng ko biết có đúng ko :( anh Marik júp em xem có dc ko ?
Anh nghĩ bỏ cái đỏ đi em ạ, nếu em để thế thì mỗi thừa sổ sẽ tính 2 lần!

VD: i=2 ---> s:=s+ 1/(a+4)
i=5----> s:=s+1/(a+4)

Còn bài kia thì chắc chỉ khó ở thuật toán sinh hoán vị để kiểm tra thôi nhỉ? Tối mai anh sẽ trình bày :D
 
M

mua_lanh_0000

hjhjj em cũng băn khoăn chỗ đó nhưng anh nói thì em thấy sai rùi :) em sẽ sửa lại :) còn bài đó đúng là bsi chỗ đó :) tưởng dễ ai dè pó tay :D
P/s: @anh marik: nhưng em nghĩ lại rùi thấy ko sai mà chỉ thừa thôi ? ẻm nghĩ máy chỉ làm 1 lần thôi ?
 
Last edited by a moderator:
M

man_united

mấy bác giúp em làm mấy bài này với:
1. nhập 1 dãy số thực a gồm n phần tử, hãy kiểm tra xem dãy có là dãy giảm hay ko?
2.viết chương trình nhập n phần tử là các số nguyên cho mảng 1 chiều và thực hiện công việc sau:
a) đếm xem có bao nhiêu số chẵn, bao nhiêu số lẻ và hiển thị dãy số chẵn, số lẻ nói trên
b) đếm xem có bao nhiêu số nguyên dương, số nguyên âm và hiển thị dãy số trên.
 
S

silvery21

júp nhanh nhanh nhaz'-----------t5 t cần

lập trình tính ( n thuộc N*)

[TEX]A= \frac{1}{2}+ \frac{2}{3}+ \frac{3}{4}+ .........+\frac{n-1}{n}[/TEX]
 
G

gacon_lonton_timban

Hô hô, làm bừa thôy, sai thì để người khác sửa nữa là vừa :D

Lập trình tính ( n thuộc N*)

[TEX]A= \frac{1}{2}+ \frac{2}{3}+ \frac{3}{4}+ .........+\frac{n-1}{n}=\sum_{n=2}^n{\frac{n-1}{n}} [/TEX]

program tinh_tong;
uses crt;
var S : real;
n : integer;
begin
clrscr;
write (' Nhap n');
readln(n);
S:= 0; n:= 1;
while 1< n do
n:= n+1;
S:= S+(n-1)/n;
writeln(' Tong S la: ');
readln
end.


Em cũng không bít lắm, làm bừa thôi, sai chỗ nào mọi người sửa luôn em cái ^^!. Sửa lắm, kiểu j cũng đúng :D
 
S

silvery21

nhìn wa la` sai oy`--------------------??ai bik chỉ t

bài 2 : lập trình tính

[TEX]B=n^{n+1} (n \leq 8)[/TEX]

lam` sao down đc ctr pascal vậy
 
M

mua_lanh_0000

program tinh_tong;
uses crt;
var S : real;
n : integer;
begin
clrscr;
write (' Nhap n');
readln(n);
S:= 0; n:= 1;
while 1< n do
n:= n+1;
S:= S+(n-1)/n;
writeln(' Tong S la: ');
readln
end.


Em cũng không bít lắm, làm bừa thôi, sai chỗ nào mọi người sửa luôn em cái ^^!. Sửa lắm, kiểu j cũng đúng :D
uhm sai hả ?? mình ko rõ lệnh WHile ......do lắm nên mình chỉ dùng for .........do thôi :D
program tinh_tong;
uses crt;
var S : real;
n ,i: integer;
begin
clrscr;
write (' Nhap n');
readln(n);
S:=o
for i :=2 to n do S:=S+(i-1)/i;
writeln(' Tong S la: ');
readln
end.
 
M

mua_lanh_0000

C

conech123

down cái này về nhá
`````````````````````````````
 

Attachments

  • pascal_7.0_5690_26772066.zip
    1.7 MB · Đọc: 0
Z

zzwindzz.

xin lỗi vì đã làm phiền các bác
không hiểu sao máy em không dùng được lệnh xóa màn hinh
cứ mỗi lần chạy là lại tràn màn hình ra , rối lắm
bác nào biết cách khắc phục thì giúp em với , cám ơn các bác nhiều
 
Last edited by a moderator:
M

mua_lanh_0000

uhm bài 2 :
program tinh _p;
uses crt;
var n,i: integer;
p:real;
begin
clrscr;
writeln('nhap n');
readln(n);
if n>8 then writeln(' ko thoa man dieu kien cua n') else

begin
P:=1
for i:=1 to n+1 do P:= P*n;
end;
writelan('kq P=');
readln
end.

uhm đó là ý kiến của mình ko biết thế nbào??:D
 
S

silvery21

bạn ơy có pascal thì thử lun cho t xem nó có chạy ko-bài trên có lỗi hay ko thì bik...................sắp ktra oy`
 
M

mua_lanh_0000

uhm bài P*N chỗ gần cuối writeln('kq p=', P:2:2)
bạn sửa lại vỵa nhé :D
mình chỉ kiểm tra bài đó trong Pass thôi thì
n=2 ~~>P=8
3~~>81
4~~> 1024
bạn tự tính lại xem dúng ko nhé :D mà nếu sai thì nhắn tin cho mình chứ đừng post ở đây vì mình ko để ý là quên lãng bài bạn thì khổ :D
P/s : cả bài tính tổng cũng vậy nhé :D
 
Last edited by a moderator:
L

lan_anh_a

huuu, mình học pascal chả biết cái j` :(

các bạn cho mình hỏi khi thông báo lỗi là "division by zero" thì phải làm j` :-??
 
Top Bottom