gán a = b = 15.5
Tinh bieuthuc_kq(tong.tich).py
nhập vào hai giá trị thực c, d khác nhau
bieuthuc_kq = ((c-a) + (d-b))*5^2
xuất ra màn hình kết quả cần tìm
Cho 4 số a, b, c, d. Viết chương trình tìm giá trị lớn nhất và đưa ra màn hình kết quả
program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;
Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);
Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;
Writeln('So lon nhat trong 4 so do la: ',Max);
readln;
End.
Tìm GTLN : =SUM(XA:YB) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.
program gia_tri_lon_nhat;
uses crt;
var a,b,c,d :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
write('nhap vao so d'); Readln(d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('gia tri lon nhat cua bon so a,b,c,d la:',max);
readln;
END.
Thanks
Tạo mảng một chiều gồm n phần tử n nguyên dương được nhập vào bàn phím a in ra màn hình và nhập trên một hàng mỗi phần tử cách nhau 5 ô trống b tìm và in ra màn hình các phân tử có giá trị lớn hơn 5 c tính tổng các phần tử là số lẻ và in kết quả ra màn hình d tìm phần tử có giá trị nhỏ nhất trong dãy
viết chương trình scratch điều khiển nhân vật thầy giáo thực hiện chương trình sau yêu cầu học sinh"hãy nhập một số nguyên"(kết quả được lưu vào biến answer) gán giá trị answer cho biến a thông báo lên màn hình"a là số chẵn" hoặc "a là số lẻ có một chữ số"
Cho 2 số nguyên a,b viết chương trình lấy a chia b lấy phần nguyên rồi gán cho c. Kết quả in ra màn hình.
program tom;
uses crt;
var a,b,c: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
c:=a div b;
write(c);
readln;
end.
Viết chương trình tính giá trị biểu thức A= (b+c)/d. Với ba số b, c, d là ba số được nhập từ bàn phím. In kết quả tính toán được ra màn hình.
program tin_hoc;
uses crt;
var b,c,d,A:realn;
begin
clrscr;
write('nhap so b');readln(b);
write('nhap so c');readln(c);
write('nhap so d');readln(d);
A:=(b+c)/d;
writeln('A=');
end.
Viết chương trình tính giá trị biểu thức A= (b+c)/d. Với ba số b, c, d là ba số được nhập từ bàn phím. In kết quả tính toán được ra màn hình.
giúp mk!!
Câu 1. Lệnh read(tên biến); /readln(tên biến); dùng để:
A. in ra màn hình B. gán giá trị cho biến
C. nhập dữ liệu vào từ bàn phím D. gán giá trị cho hằng
Câu 2. Trong Pascal, lệnh write/writeln dùng để:
A. nhập dữ liệu vào từ bàn phím B. gán giá trị cho hằng
C. gán giá trị cho biến D. in, thông báo ra màn hình
giúp em với 2 câu thôi ạ :
viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt
viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con
1:
uses crt;
const fi='ketqua.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(f1,st);
close(f1);
end.
2:
uses crt;
var a,b,c,d:integer;
{----------chuong-trinh-con-----------------------}
function min(x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
{---------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(min(a,min(b,min(c,d))));
readln;
end.
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.