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

M

marik

À sorry, quên ko bảo em cách sửa :d
Em tải cái patch này về rồi giải nén nó vào folder Bin rồi chạy patch.exe là sẽ được. Nhớ tắt Pascal trước khi làm nhé ^^
 
M

marik

Sorry nhé, anh tìm mãi ko thấy cái patch nào ngon cả, em down tạm bản pascal này về rồi cài đặt, sau đó chạy patch nhé^^( anh vẫn chưa cài thử đâu, nghe nó quảng cáo thế :D)
 
P

phamhoangsonqn

lỗi 200 do thư viện crt của bạn cũ rồi. chỉ cần tìm thư viện mới là okie thôi
 
T

th1104

cho em hỏi cái nè nha
cái màn hình pascal của em nó to quá
ko tiện sử dụng
làm thế nào để cho nó nhỏ lại ạ
 
T

th1104

giật gì cơ
thế thì sợ lắm
anh nói rõ xem nào
thế để quay lại màn hình to thì làm thế nào?
ơ nhưng mà em làm có bị làm sao đâu chứ
nó ko bị làm sao cả
anh ợ
 
Last edited by a moderator:
M

marik

Muốn màn hình to thì cứ nhấn Alt + Enter thôi :d
Anh bảo bị giật nghĩ là khi gõ nó sẽ ko trơn như để màn hình to thôi, em ko thấy sao thì càng tốt ^^
 
T

th1104

viết chương trình nhập một số tự nhiên nhỏ hơn 1000 hãy in ra số đó có mấy chữ só và tính tổng các chữ số của nó , in ra số đứng đầu và số đứng cuối
hộ em bài nè
 
M

man_united

mọi người làm hộ bài này với:
nhập số nguyên dương N tù bàn phím. tìm số nguyên k nhỏ nhất thoả mãn 3^k>N. đưa ra màn hình giá trị k và 3k
 
M

marik

man_united said:
mọi người làm hộ bài này với:
nhập số nguyên dương N tù bàn phím. tìm số nguyên k nhỏ nhất thoả mãn 3^k>N. đưa ra màn hình giá trị k và 3k
Bấm để xem đầy đủ nội dung ...
Bài này thì làm thủ công là đơn giản nhất

var k,n:integer;
begin
write('Nhap N: ');readln(n);
k:=-1;
repeat
inc(i)
until (3^(k+1))>N;
writeln('k: ',k);
writeln('3k: ',3*k);
readln;
end.
 
K

kimvuong993

Giup em voi

viết trương trình pascal tính và hiển thị ra màng hình giá trị của Z
với:
a)Z= x 2+ y2 nếu x2 + y2 \leq 1
x +y nếu x2 + y2 > 1 và y \geqx
0.5 nếu x2 + y2 >1 và y <x
b) Z= [X] +[Y] nếu điểm ( x,y) thuộc hình tròn bán kính r(r>0) , tâm (a,b)
X+y trong trường hợp còn lai
X và y được nhập bàn phím

Bài 2 lập trình tính
a) y=\sum_{i=1}^k a_i^n k=50 và n trên n+1
cho này n=1
b) e(n)=1 + 1 tren 1! + 1 trên 2! +...+1 trên n! cho đến khi 1 trên n! <2x10mu~-6
 
N

naiden

Sửa lỗi dùng mình nhé:
Chương trình ktra 3 biến a,b,c phải là 3 cạnh của tam giác ko? Tam giác cân, tam giác vuông, tam giác đều?

var a,b,c:integer;
begin
writeln ('Nhap a vao');readln (a);
writeln ('Nhap b vao');readln (b);
writeln ('Nhap c vao');readln (c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln ('Day la 3 canh cua tam giac');
if (a=b) and (b=c) then writeln ('Day la tam giac deu');
if (a=b) or (b=c) or (a=c) then writeln ('Day la tam giac can');
end;
else writeln ('Ko phai la 3 canh cua tam giac');
end.

mà FP báo lỗi
 
Last edited by a moderator:
M

marik

naiden said:
Sửa lỗi dùng mình nhé:
Chương trình ktra 3 biến a,b,c phải là 3 cạnh của tam giác ko? Tam giác cân, tam giác vuông, tam giác đều?

var a,b,c:integer;
begin
writeln ('Nhap a vao');readln (a);
writeln ('Nhap b vao');readln (b);
writeln ('Nhap c vao');readln (c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln ('Day la 3 canh cua tam giac');
if (a=b) and (b=c) then writeln ('Day la tam giac deu');
if (a=b) or (b=c) or (a=c) then writeln ('Day la tam giac can');
end;
else writeln ('Ko phai la 3 canh cua tam giac');
readln
end.

mà FP báo lỗi
Bấm để xem đầy đủ nội dung ...

Thứ nhất, trước else không có dấu ";"
Thứ 2, thêm readln vào để tạo trễ xem kết quả :)
 
M

mua_lanh_0000

HER vui quá khi có box Tin hcọ ở đây vì cứ tìm ở chỗ mấy môn học:D có bài này hay lắm mình post lên cho bà con nếu ko jải dc thì khoảng tuần nữa mình post baìo jải :)
Đề bài ( cực ngắn ): viết chương trình và lời jải cho bài toán a có là có là số ng tố ko??
 
M

marik

mua_lanh_0000 said:
HER vui quá khi có box Tin hcọ ở đây vì cứ tìm ở chỗ mấy môn học:D có bài này hay lắm mình post lên cho bà con nếu ko jải dc thì khoảng tuần nữa mình post baìo jải :)
Đề bài ( cực ngắn ): viết chương trình và lời jải cho bài toán a có là có là số ng tố ko??
Bấm để xem đầy đủ nội dung ...
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" ^^
 
M

mua_lanh_0000

uhm bài quen rùi hả anh?? chắc em ko để ý rùi vif đây là 1 bài mà ngay khi học em đã rất thích và tâm đắc :D bài của anh thì em nghĩ ( mới nghĩ thôi ) là làm tương tự bài của em, nhưng thêm bước so sánh các số ngtố khi tìm dc :) và ban đầu thì các số lấy ra trong phạm vi mấy số đầu?? hèm em ngại bắt tay vô làm thế nhỉ :(
 
You must log in or register to reply here.
Top Bottom