Khi thực hiện chương trình trên , ứng với mỗi giá trị a đưa vào . Hãy cho biết giá trị của biến b in ra màn hình :
Trường hợp | a | Giá trị biến b |
1 | 10 | |
2 | 120 | |
3 | 1023 | |
4 | 35000 |
hãy viết chương trình pascal thực hiện nhập 3 giá trị cho ba biến a,b,c nếu ba giá trị nhập vào thỏa mãn là chiều dài 3 cạnh của 1 tam giác thì in ra màn hình là true nếu 3 giá trị nhập vào không thỏa mãn là chiều dài 3 cạnh của một tam giác thì in ra màn hình fales
Cho hai biến a,b, có kiểu dữ liệu số nguyên.
Em hãy viết chương trình Pascal thực hiện các yêu cầu sau:
a) Khai báo hai biến a,b.
b) Nhập giá trị của hai biến a,b từ bàn phím.
c) In kết quả tổng của a,b ra màn hình.
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Tạo chương trình Scratch để nhập hai số m, n từ bàn phím, thực hiện hoán đổi giá trị của hai biến và thông báo giá trị của biến m, n sau khi đã hoán đổi.
Ví dụ, sau khi nhập m = 23, n = 45, chương trình đưa ra kết quả ra màn hình như ở Hình 6.
Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Em hãy viết chương trình thực hiện yêu cầu sau Nhập giá trị n từ bàn phím. Tính và in ra màn hình tổng các chữ số của n(biến T) VD: n có giá trị là 30546 --> T có giá trị là 18(3+0+5+4+6)
Uses crt;
Var
n,t:longint;
BEGIN
Read(n);
While n<>0 do
Begin
t:=t+n mod 10;
n:=n div 10;
End;
Write(t);
Readln;
END.
Refer:
Program baitap;
Uses crt;
Var n,x,T:integer;
Begin
Clrscr;
T:=0;
Write('n='); Readln(n);
While ( N <> 0 ) do
Begin
x := n mod 10;
n := n div 10;
T := T + x;
End;
Writeln('T=',T);
Readln
End.
viết chương trình nhận vào từ bàn phím 1 số thực a,b. Hãy tính và đưa ra màn hình giá trị tổng a^3+b^3+ab
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a*a*a+b*b*b+a*b);
readln;
end,
viết chương trình nhận vào từ bàn phím 1 số thực a,b. Hãy tính và đưa ra màn hình giá trị tổng a^3+b^3+ab
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a*a*a+b*b*b+a*b);
readln;
end,
Em hãy viết chương trình sủ dụng ngôn ngữ lập trình pascal để in ra màn hình nội dung sau:
Nhập giá trị hai biến a,b
Tính tổng hai biến đó (c:=a+b)
Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính tổng các phần tử lẻ của dãy. i. Sắp xếp các phần của dãy theo thứ tự giảm dần. k. Sắp xếp các phần của dãy theo thứ tự tăng dần.