Viết chương trình tính tìm 2 số a và b khi biết tổng và hiệu của chúng
viết bằng ngôn ngữ lập trình pascal
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Viết chương trình bằng ngôn ngữ tự nhiên và bằng ngôn ngữ lập trình Pascal ứng cho các bài toán sau. Tính và đưa ra màn hình tổng z=|x|+|y| với điểm (x>y) thuộc đường tròn bán kính r(r>0) tâm (a;b)
b, y=1+2+3+....+100
c, y=1+2+3+...+n cho đến khi y>3200
mk cần trong vòng 1 tiếng nữa . mong mọi người giúp mk , Cảm ơn nhiều ạ
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
Viết chương trình bằng ngôn ngữ lập trình Pascal tính tổng các số từ 1 đến n, biết n là số tự nhiên được nhập từ bàn phím
Var i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
Phần II. Tự luận. Sử dụng ngôn ngữ lập trình Pascal, viết chương trình giải các bài toán: 1. Cấu trúc rẽ nhánh. Bài 1. Tính tổng, hiệu, tích, thương của hai số bất kì được nhập từ bàn phím. Bài 2. Tính chu vi và diện tích của hình chữ nhật, biết chiều dài và chiều rộng được nhập vào từ bàn phím. Bài 3. Tính chu vi và diện tích của hình tròn biết độ dài bán kính được nhập vào từ bàn phím. 2. Cấu trúc rẽ nhánh. Bài 4. Nhập vào hai số bất kì. So sánh và in ra màn hình số lớn, số nhỏ của hai số. Ví dụ: Nhập vào hai số: 56 45 Số lớn là 56, số nhỏ là 45 Bài 5. Nhập vào một số nguyên bất kì. Kiểm tra và in ra màn hình thông báo số đó là số chẵn hay số lẻ. Ví dụ: Nhập vào một số cần kiểm tra: 45 Số vừa nhập là số lẻ. Bài 6. Nhập vào 3 số bất kì. Kiểm tra và in ra màn hình thông báo xem 3 số đó có tạo thành 3 cạnh của một tam giác không? Ví dụ: Nhập vào 3 số cần kiểm tra: 3 4 5 Ba số vừa nhập thỏa mãn là 3 cạnh của một tam giác. Hay: Nhập vào 3 số cần kiểm tra: 8 2 5 Ba số vừa nhập không thỏa mãn là 3 cạnh của một tam giác. 3. Cấu trúc lặp. Bài 7. Tính tổng dãy số: S=1+2+3+…+n (Với n là một số tự nhiên được nhập vào từ bàn phím) (Với n là một số tự nhiên được nhập vào từ bàn phím) 4. Dãy số và biến mảng. Bài 8. Nhập vào họ và tên và điểm trung bình của 36 học sinh lớp 8B. Bài 9. Nhập vào họ và tên, điểm toán, điểm văn của 38 học sinh lớp 8A.
viết chương trình tính diện tích của tam giác bằng ngôn ngữ lập trình pascal
Câu 2: Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập ba số a, b, c nguyên dương từ bàn
phím và kiểm tra ba số a, b, c có phải là độ dài ba cạnh của một tam giác không?
a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
print(a,b,c,"la ba canh cua tam giac")
else:
print(a,b,c,"khong la ba canh cua tam giac")
Câu 1:Sử dụng ngôn ngữ lập trình Pascal để viết chương trình theo thuật toán dưới đây:
B1:T←8;n←1;
B2:Nếu T>=99 thì chuyển tới B4
B3:n←n+3;T←T*n và quay lại B2
B4:In giá trị của T,n và kết thúc
Câu 2:Sử dụng ngôn ngữ lập trình Pascal để viết chương trình nhập vào từ bàn phím(ĐTB)của n học sinh trong một lớp (1<=n<=70).In ra màn hình số lượng và tỉ lệ học sinh đạt điểm trung bình trở lên(ĐTB>=5.0)
câu 1:
program AlgorithmExample;
var
T, n: integer;
begin
// Bước 1
T := 8;
n := 1;
// Bước 2
while T < 99 do
begin
// Bước 3
n := n + 3;
T := T * n;
end;
// Bước 4
writeln('Gia tri cua T: ', T);
writeln('Gia tri cua n: ', n);
readln;
end.
câu 2:
program StudentAverage;
var
n, countAboveAverage: integer;
sum, average, score: real;
begin
// Nhập số lượng học sinh
write('Nhap so luong hoc sinh (1-70): ');
readln(n);
// Kiểm tra điều kiện
if (n < 1) or (n > 70) then
begin
writeln('So luong hoc sinh khong hop le.');
readln;
halt;
end;
// Khởi tạo biến
countAboveAverage := 0;
sum := 0;
// Nhập và tính điểm trung bình
for var i := 1 to n do
begin
write('Nhap diem cua hoc sinh ', i, ': ');
readln(score);
sum := sum + score;
// Kiểm tra điều kiện điểm trung bình
if score >= 5.0 then
countAboveAverage := countAboveAverage + 1;
end;
// Tính điểm trung bình
average := sum / n;
// In ra kết quả
writeln('So luong hoc sinh dat diem trung binh tro len: ', countAboveAverage);
writeln('Ti le hoc sinh dat diem trung binh tro len: ', countAboveAverage / n * 100:0:2, '%');
readln;
end.
Lưu ý rằng trong chương trình của câu 2, điểm trung bình được tính và sau đó kiểm tra xem học sinh có đạt điểm
trung bình trở lên hay không.
#TK
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
write(s);
readln;
end.
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
writeln(s);
readln;
end.
b1;tim ssh cua day so cach deu tren cong thuc lop 5:(97-3):khoang canh +1; :))
b2;tinh tong bang cong thuc lop 5 sau : tong=(so dau + so cuoi)*ssh/2;
b3; xuat ra :)))