ai pro pascal giúp với

[squall-leonheart]

tớ đang đi học, có môn pascal đầu năm giờ ko nghe giảng nên giờ mí bài dễ thì làm dc gặp mí bài khó là bó tay, ông thầy cho 2 bài tập thế này bácnào giải giúp với, thank...hic
1: viết chương trình nhập vào 3 số thực a,b,c. Xuất ra màng hình số lớn nhất trong 3 số vừa nhập
2:viết chương trình nhập vào 5 số thực a,b,c. Xuất ra màng hình
a:số lớn nhất trong 5 số vừa nhập
b:số nhỏ nhất trong 5 số vừa nhập
c:tổng của 5 số vừa nhập

 

[pmphuong]

Bài này siêu cơ bản, nếu mà bác không biết thì chắc phải học lại thôi! Thiệt đóa! Tôi chẳng nhớ rõ cú pháp Pascal lắm và cũng lười viết code nữa.

Thuật toán tìm số lớn nhất rất đơn giản.
+ Câu 1 thì ta khai báo một biến max (thực ra chả cần) và gán cho nó giá trị của số a.
max:=a;
- sau đó so sánh max với hai số b,c còn lại.
- nếu max < b thì max:=b
- nếu max < c thì max:=c
- cuối cùng in ra số lớn nhất là max.
+ Câu 2 thực chất cũng là câu 1 tuy nhiên có nhiều số hơn, dụng ý của nó là bắt ta phải dùng mảng (tìm max giống hệt tìm min thoai).
- Khai báo một mảng mangso array[1..5] real;
- Khai báo một biến max,min
- Nhập dữ liệu vào cái mảng này
- gán max bằng giá trị đầu tiên của mảng max:=mangso[1];
- so sánh max với các phần tử còn lại, có hai cách một là viết tất cả các câu lệnh ra hai là dùng vòng lặp để thực hiện, phải tự code thôi.
- tìm min y hệt tìm max chỉ là thay đổi một chút (nếu hiểu cách tìm max thì chắc chắn làm được)
- tính tổng các số thì là dễ nhất rồi còn gì
-

 

[squall-leonheart]

tớ đang học lớp 11 mới vào nghề pascal có mí tháng nay à ^^ nên hơi gà bác thum cảm....mình thực hành thử đây thank bạc nhìu cứ sợ ko ai giúp hết ^^ gamevn muôn năm ^^

trài, tớ viết ko dc ùi cậu viết giúp tớ dc ko hú hú tớ dùng If-then so sánh max ko dc giúp tớ bài 1 với

 

[pmphuong]

Tôi ko dùng pascal lâu rồi ko nhớ nổi cú pháp của nó!
Hình như bắt đầu là:
program timmax;
use crt;
var a,b,c,max:integer;
BEGIN
clrscr;
writeln("-----Tim so lon nhat------");
writeln; <--ko biết có đúng ko?
writeln("Nhap vao 3 so!");
write("a=");readln(a);
write("b=");readln(b);
write("c=");readln(c);
max:=a;
if(max<b) then max:=b;
if(max<c) then max:=c;
writeln;
Writeln("So lo nhat trong 3 so la:",max);
END.

 

[jade ninja]

1: viết chương trình nhập vào 3 số thực a,b,c. Xuất ra màng hình số lớn nhất trong 3 số vừa nhập
2:viết chương trình nhập vào 5 số thực a,b,c. Xuất ra màng hình
a:số lớn nhất trong 5 số vừa nhập
b:số nhỏ nhất trong 5 số vừa nhập
c:tổng của 5 số vừa nhập

bài 1 làm đc thì bài hai cũng thế thui >.< mượn tạm cái bài 1 làm thành bài 2 nhé
Nếu số nhì thì dùng mảng, còn chỉ có 5 số thì khai báo cho khỏe
Sai ráng đỡ

program maxmin;
use crt;
var a,b,c,d,e,min,max,tong:real;
BEGIN
clrscr;
writeln("Nhap vao 5 so thuc a, b ,c ,d, e!");
readln(a,b,c,d,e);
max:=a;
if(max<b) then max:=b;
if(max<c) then max:=c;
if(max<d) then max:=d;
if(max<e) then max:=e;
min:=a;
if(min>b) then min:=b;
if(min>c) then min:=c;
if(min>d) then min:=d;
if(min>e) then min:=e;
tong:=a+b+c+d+e;
Writeln("So lon nhat trong 5 so la:",max);
Writeln("So be nhat trong 5 so la:",min);
Writeln("Tong la:",tong);
Readln
END.

 

[pmphuong]

Bài 2 dụng ý là để xài mảng và vòng lặp mà! Làm y hệt bài 1 thì vừa dài lại chả có tác dụng gì mấy!
Ví dụ: tìm hẳn max của 100 số đi! Thì mình khai báo một mảng số với 100 phần tử. mangso array[1..100] real;
Sau khi đã nhập xong dữ liệu có thể dùng vòng lặp để tìm rất đơn giản như sau:
for i=1 to 100 do
if(max<a) then max=mangso;
vậy là xong tìm max. Tìm tổng cũng thế
tong:=0;
for i=1 to 100 do
tong:=tong + mangso;

 

[recca2005]

Sẵn topic này cho tớ xin phần mềm pascal và cái ebook pascal luôn
Thx các bác nhiều ^^!

 

[HieuNM]

Setup của Pascal đây

E book thì không có đâu chỉ có cái Pascal Study thôi
Pascal Study có thể down tại đây
hoặc trên echip

 

[squall-leonheart]

ớ mình làm dc rùi, nhưng ko dùng mảng vì thầy chưa dại tới mảng mới học tới If-then-else thui ^^ sắp thi học kỳ thank các bác nhìu bài đúng rùi
-cáo Pascal Study mình tìm mà toàn bi link die hay quá ^^ thank

 

[jade ninja]

sách dạy tốt nhất là SGK ......... có thể đọc SGK 11, viết dễ học và dễ hiểu

 

[pmphuong]

sách dạy tốt nhất là SGK ......... có thể đọc SGK 11, viết dễ học và dễ hiểu

Chuẩn! Với người chưa học nhiều về một ngôn ngữ nào đó mà đọc ebook hầu như chẳng có tác dụng gì! Cứ SGK mà fang, hoặc một cuốn sách nào đó cơ bản, đừng có chơi vào nâng cao nha. Sau khi học nó kha khá pascal rồi, thì đọc ebook sẽ có hiệu quả hơn về Pascal hoặc về một ngôn ngữ khác!

 

[dung_1804]

Ai giúp em bài này với
Viết chương trình cho máy đưa ra tổng các chữ số của một só nguyên dương N được nhập vào từ bàn phím(dùng hàm DIV và MOD)

 

[pmphuong]

Phần thân chương trình sẽ đại loại thế này!



tong:=0;
while (10<N)
do
Begin
chuso:= N mod 10;
tong:=tong + chuso;
N:=(N-chuso) div 10;
End
tong:=tong+N;
writeln("Tong cac so chu so la:",tong);

 

[Thunder_Sky_High]

tiện giúp mình luôn pascal. đưa ra màn hình a,b,c,x .
giải: ax^3+bx^2+c . cảm ơn trước nhé

 

[dung_1804]

giúp em cả bài này nữa. Cho mảng 2 chiều với các phần tử tự nhập. Viết ra màn hình các số nguyên tố và chỉ ra vị trí của chúng trong bảng. Đếm số lượng các sô nguyên tố.

 

[quainhankid12]

tiện giúp mình luôn pascal. đưa ra màn hình a,b,c,x .
giải: ax^3+bx^2+c . cảm ơn trước nhé

Nghe học sinh lớp 7 giải nè
var
a,b,c,x,d : real;
begin
write('nhap cac so a,b,c,x: ');
readln(a,b,c,x);
d:= a*sqr(x)*x+b*sqr(x)+c;
writeln('ket qua la: ',d);
readln;
end.