bài 1: viết chương trình tính tổng sau
S=1+2+3...+N
bài 2: viết chương trình pascal sử dụng biến mảng để tính tổng của dãy số, dãy số gồm n số nguyên nhập từ bàn phím.
bài 3: viết chương trình pascal nhập vào số báo danh của 5 bạn học sinh ( tên học sinh cho trước) số báo danh nhập từ bàn phím sau đó in số báo danh kèm tên ra ngoài màn hình
Bài 1: mình làm theo free pascal nhé
Uses crt;
Var i,n,tong:integer;
Begin
CLRSCR;
Writeln('Moi nhap n de tinh tong') Readln(n);
For i:=1 to n do
tong:=tong+i;
Writeln('Tong cua day tren la',tong);
Readln;
End.
Câu 2: mình làm theo Free pascal nhé
Bài Làm:
Uses crt;
Var n,i,tong:integer;
a ARRAY [1..100] of integer;
Begin
CLRSCR;
Writeln('Moi nhap do dai cua mang'); Readln(n);
For i:=1 to n do
Begin
Writeln('a[',i,']');
Readln(a[i]);
End;
tong:=0;
For i:=1 to n do
tong:=tong+a[i];
Writeln('Tong cua day tren la ',tong);
Readln;
End.
chỗ bài 1 dưới phần readln(n) bạn thêm vào dòng ''tong:=0;'' nhé
còn câu 3 thì mình chưa nghĩ ra
var n,i,s:integer;
begin
read(n);
s:=0;
for i:=1 to n do s:=s+i;
write(s);
end.
2.
var a:array[1..100] of integer;
n,i,s:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
s:=0;
for i:=1 to n do s:=s+ a[i];
write(s);
end.
Lời giải :
Bài 3 :
program hotrotinhoc ;
var a,b,c,d,e : integer ;
begin
write('Ten hoc sinh : Nguyen Van A ; So bao danh :');
readln(a);
write('Ten hoc sinh : Nguyen Van B ; So bao danh :');
readln(b);
write('Ten hoc sinh : Nguyen Van C ; So bao danh :');
readln(c);
write('Ten hoc sinh : Nguyen Van D ; So bao danh :');
readln(d);
write('Ten hoc sinh : Nguyen Van E ; So bao danh :');
readln(e);
readln
end.
Lưu ý : Mình sẽ lấy tên ví dụ thôi nhé
Bài 3: Bài này mình có thể thực hiện in số báo danh và tên với n thí sinh chứ không phải chỉ 5 thí sinh nhé! Tên bạn có thể nhập theo danh sách có sẵn hoặc tự sáng tác cũng được. Số báo danh cũng vậy nhé!