Câu 1: Viết cú pháp câu lệnh lặp với số lần chưa biết trước.Nêu hoạt động của câu lệnh . Câu 2: Viết phương trình pascal tính chu vi và diện tích của hình chữ nhật với hai cạnh đc nhập vào từ bàn phím Câu 3: Viết phương trình pascal tính tổng các số tự nhiên từ 1 đến 30 Câu 4: Cho bài toán: tìm số tự nhiên n<100 để n^2 +2018 là 1 số chính phương. Em hãy viết phương trình giải bài toán trên.
2 câu trả lời
Câu 1:for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Câu 2:program Hinh_Chu_Nhat;
uses crt;
var r,d: integer; CV,DT:longint;
begin
clrscr;
repeat
write('Nhap chieu dai: ');
readln(d);
write('Nhap chieu rong: ');
readln(r);
until (d<100) and (d>0) and (b>0) and (b<100);
DT:=r*d;
CV:=(r+d)*2;
writeln('Chu vi hcn la: ',CV);
write('Dien tich hcn la: ',DT);
readln
end.
Câu 3:
program Bai_1_FoToDo;
uses crt;
var n,i :longint; S :qword;
begin
clrscr;
write('Nhap n: ');readln(n);
S:=0;
Bai 4:For i:=1 to 30 do S:=S+i
write('Tong cac so tu 1->30 la : ',S);
readln;
end.
Câu 1 :
- Cú pháp lệnh lặp với số lần chưa biết trước : while <điều kiện> do <câu lệnh>;
- Hoạt động :
+ Điều kiện sẽ được tính và kiểm tra
+ Nếu điều kiện đúng thì câu lệnh sẽ được thực hiện
+ Nếu điều kiện sai thì vòng lặp sẽ dừng lại
Câu 2 :
uses crt;
var a, b : integer;
begin
clrscr;
write('nhap chieu dai : '); readln(a);
write('nhap chieu rong : '); readln(b);
writeln('chu vi = ', (a + b) * 2);
writeln('dien tich = ', a * b);
readln
end.
Câu 3 :
uses crt;
var i, s : integer;
begin
clrscr;
s := 0;
for i := 1 to 30 do s := s + i;
write('s = ', s);
readln
end.
Câu 4 :
uses crt;
var n : integer; k : real;
begin
clrscr;
write('n = ');
for n := 1 to 100 do
begin
k := sqrt(n + n + 2018);
if trunc(k) = k then write(n : 4);
end;
readln
end.