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: Viết câu lệnh khai báo biến x có kiểu dữ liệu số thực và hằng pk có giá trị 20.
Câu 3: Viết chương trình Pascal tính tổng S của hai số nguyên a và b được nhập từ bàn phím
Kíu!! Mai thi mất r!!!
Câu 3:
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Câu 1: Viết câu lệnh khai báo biến x có kiểu xâu và biến y không có kiểu số thực bằng ngôn ngữ lập trình Pascal
Câu 2: Em hãy viết chương trình tính TỔNG của 2 số nguyên a,b được nhập từ bàn phím?
#Tin_Học_8
#Giúp em đi :((
----> Cần gấp... Trưa mai nộp rồi <----
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
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.
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 2. Trong ngôn ngữ lập trình Pascal giả sử ở phần thân chương trình có 2 phép gán như sau:
A:=10;
B:= 5,5;
a. Em hãy viết lệnh khai báo biến cho 2 biến nói trên?
b. Viết lệnh thông báo giá trị của 2 biến A, B ra màn hình?
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Bài toán một chương trình nhập vào yêu cầu số lượng hs, địa chỉ, họ và tên, chiều cao của các hs trong lớp học hãy cho biết : bài toán gồm những biến nào? chọn kiểu dữ liệu cho các biến sao cho phù hợp? viết câu lệnh bằng ngôn ngữ lập trình pascal để khai báo trên biến.
Giúp mik với ak
Viết chương trình nhập vào 2 số nguyên a,b
yêu cầu
a Tính tích 2 số nguyên a,b hiển thị kết quả trên màn hình
b Kiểm tra a là số nguyên âm hay nguyên dương
Xác định input và output cho bài toán trên
Dùng ngôn ngữ pascal để viết chương trình trên
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a*b);
if (a>0) then writeln('a la so nguyen duong')
else writeln('a la so nguyen am');
readln;
end.
Mn giúp em hai bài này với ạ. E cảm ơn ạ Câu 2. Cho ba biển a, b, c có giá trị nguyên năm trong khoảng -20000...20000 và các biển x, y z nhận các giá trị 45.2, 5.6; 9.8 Trong ngôn ngữ lập trình Pascal, hãy viết khai báo cho các biến trên sao cho tôn ít bộ nhớ nhất? Câu 3. Hãy viết các câu lệnh tương ứng thực hiện các yêu cầu sau a.Khai báo hằng số pi b.Khai báo biến X,y kiểu thực
Câu 3:
const pi=3.14
var x,y:real;