Ai giúp mk giải bài nay được không
Đề: Tính tổng 5 số tự nhiên a,b,c,d,e với ạ,b,c,d,e đc nhập từ bàng phím
Phần mềm Free pascal
Program :Bt1
Var
Begin
Writeln(); readln ();
S:=a+b+c+d+e
Writeln;
End.
Ai làm giúp mk, mk cảm ơn
program bt1;
uses crt;
var a,b:integer;
begin
clrscr;
writeln(‘Họ tên: ……………., lớp:….’);
writeln ('Mời bạn nhập vào 2 số nguyên:');
readln(a,b);
Writeln('Bạn vừa nhập vào 2 số:',a,' - ',b);
Writeln('Tổng 2 số nguyên là:', a+b);
Write('Số lớn nhất trong 2 số là:');
if a>b then Writeln(a) else Writeln(b);
readln;
end.
Mọi người xem có sai chỗ nào ko :>
bài tập :
1. a, viết cấu trúc khai báo biến ,hằng . cho ví dụ minh họa
b, so sánh biến và hằng
2. giải sử khai báo hằng pi có giá trị bằng 3.14 . có thể gán giá trị 3.1416 cho pi trong phần thân chương trình ko ? vì sao ?
b, trong pascal khai báo nào sau đây đúng ?
A . var tb : real ;
B , var 4bs : integer ;
C,, const x : real ;
D , var R = 30;
3 . viết chương trình pascal cho bài toán tính tổng của một số bằng 3 và số còn lại được nhập từ bàn phím
ai giúp dc mik tick nhé , giúp nhaaaaa!
Bài 1 :
- Giống nhau:
+Biến và hằng điều là đại lượng lưu trữ dữ liệu.
+Hai đại lượng này phải khai báo mới sử dụng được.
Khác nhau:
- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.
- Cách khai báo biến:
Var<tên biến>:<kiểu dữ liệu>;
VD: Var a,b:integer;
C:string;
-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.
_ Cách khai báo hằng:
const <tên hằng>=<giá trị của hằng>;
VD: Const pi=3.14;
Bài2. Giả sử ta đã khai báo một hằng Pi với giá trị 3.14. Có thể gán lại giá trị 3.1416 cho Pi trong phần thân chương trình được không, tại sao?
Trả lời
Không thể gán được, vì một tên hằng không thể nhận một lúc hai giá trị.
Bài 3 .Trong Pascal, khai báo nào sau đây là đúng?
a. Var tb : real ;
b. Var 4hs: integer ;
c. Const x : real ;
d. Var R = 30 ;
Lời giải :
Đáp án đúng là đáp án a. Var tb : real ; vì cách khai báo biến: Var<tên biến>:<kiểu dữ liệu>;
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
tự làm là nhanh nhất
ai đòng ý xin 1 ý kiến
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
viết chương trình nhập từ bàn phím 2 số nguyên a và b. tính và viết ra kết quả của biểu thức 1 phần a^2 cộng 1 phần b^2 trên chương trìn pascal . ai giúp e với ah e đang cần gấp
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(1/sqr(a)+1/sqr(b):4:2);
readln;
end.
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
viết chương trình pascal tính tổng 10 số tự nhiên đầu tiên nhập từ bàn phím ( viết bằng thuật toán bài 6)
giúp mik lẹ vs ạ mai mik thi
tính tổng các bội số của x trong khoảng từ a đến b, với a b là các số nguyên được nhập vào từ bàn phím.
pascal ạ, giúp mình với nhé
uses crt;
var a,b,x,t,i:integer;
begin
clrscr;
readln(a,b,x);
t:=0;
for i:=a to b do
if i mod x=0 then t:=t+i;
writeln(t);
readln;
end.
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
(0.5 Points)
A. Var a , b, tong : real;
B. Var a, b, tong : integer;
C. Var a, b, tong : char;
D. Var a, b, tong : string;