Ðề tài: Cứu em với chiều nay thi rùi ! Pascal ??

Viết chương trình nhu sau, khi chay phải ra được:
vd: nhap n = 3
- số thứ 1: 2
-sô thứ 2: 5
-số thứ 3: 3
-Vậy tổng la: 3+5+2 =10
"làm cách nao in ra dước 3+5+2 =10 với mọi so được nhập từ bàn phím đây ???"

View more random threads:

• Hỏi về đổi đuôi file
• Các bác xem hộ em cái IDM cái
• Cho hỏi về cái yahoo của e:(
• có ai biết trang web nào dành cho người thuận tay trái...
• Ai có tài liệu an toàn bảo mật máy tính không? Giúp...
• Hỏi về word 2010
• Giúp mình lập chương trình pascal nhé
• Giúp em về lệnh gõ regedit trên máy tính!
• Tin học 10 giúp em
• BitDefender

Nguồn: http://diendankienthuc.net.

Theo Bút Thép thì viết như sau:

Code:

Var n,i,j,e,S: integer;
Begin
   S:=0
   write('Nhap gia tri n');
   Read(n);
   For i:=1 to n do 
       Begin 
           write('nhap gia tri thu',i);
           read(j);
           S:=S+j;
       End;
   write('Vay tong la:')
   For i:=1 to n do
       write(j,'+');
   write('=',S);
   readln
End.

Thấy không ổn lắm, nếu có thể thì bạn chờ tí chỉnh sửa xem, còn không thì hi vọng bạn sẽ nghĩ ra ý tưởng gì.
Bài này công nhận :beat_brick: Nguồn: http://diendankienthuc.net.

Nguyên văn bởi Bút Thép

Theo Bút Thép thì viết như sau:

Code:

Var n,i,j,e,S: integer;
Begin
   S:=0
   write('Nhap gia tri n');
   Read(n);
   For i:=1 to n do 
       Begin 
           write('nhap gia tri thu',i);
           read(j);
           S:=S+j;
       End;
   write('Vay tong la:')
   For i:=1 to n do
       write(j,'+');
   write('=',S);
   readln
End.

Thấy không ổn lắm, nếu có thể thì bạn chờ tí chỉnh sửa xem, còn không thì hi vọng bạn sẽ nghĩ ra ý tưởng gì.
Bài này công nhận :beat_brick:

Đoạn code này có vấn đề. vì bạn không lưu lại các giá trị của j. Làm sao có thể in ra hết được. Để in ra vậy bạn dùng mảng 1 chiều đi. Nhập các số vào mảng/ Nguồn: http://diendankienthuc.net.

program tong;
ues crt;
var a, b, c, s:real;
begin
clrscr;
write (' nhap gia tri a');
write ('nhap gia tri b');
write ('nhap gia tri c');
readln (a,b,c);
S:=a+b+c;
writeln ('vay tong la a+b+c=');
readln
end. Nguồn: http://diendankienthuc.net.

Nguyên văn bởi dailuong

Đoạn code này có vấn đề. vì bạn không lưu lại các giá trị của j. Làm sao có thể in ra hết được. Để in ra vậy bạn dùng mảng 1 chiều đi. Nhập các số vào mảng/

Mảng một chiều là gì vậy ạ?
Bút Thép chưa nghe bao giờ :D Nguồn: http://diendankienthuc.net.

Nguyên văn bởi Bút Thép

Mảng một chiều là gì vậy ạ?
Bút Thép chưa nghe bao giờ :D

Chưa học mảng 1 chiều thì chỉ còn cách nhập số nào in số đó. ý tưởng.

nhập n;
tổng s = 0;
1 vòng lặp gồm n lần
{
Nhập 1 số i;
Xuất i;
s := s + i;
}
Xuất tổng s. Nguồn: http://diendankienthuc.net.

nhập số n lần đễ xảy ra lỗi , tìm cái lệnh nào đó thay liệu có ổn không? Nguồn: http://diendankienthuc.net.

Nguyên văn bởi tongthieugia86

nhập số n lần đễ xảy ra lỗi , tìm cái lệnh nào đó thay liệu có ổn không?

Mình không hiểu ý bạn. :D Nguồn: http://diendankienthuc.net.

Nguyên văn bởi dailuong

Chưa học mảng 1 chiều thì chỉ còn cách nhập số nào in số đó. ý tưởng.

nhập n;
tổng s = 0;
1 vòng lặp gồm n lần
{
Nhập 1 số i;
Xuất i;
s := s + i;
}
Xuất tổng s.

Sao vừa nhập lại xuất thế ạ :D Nguồn: http://diendankienthuc.net.

Vì em chưa học mảng 1 chiều vì vậy không thể lưu số đó lại để sau này có thể xuất ra được nên đành phải xuất liền thôi. Nếu không làm cách đó thì làm sao em có thể xuất lại số đó. Mình đâu biết trước được n. :D Nguồn: http://diendankienthuc.net.