Viết chương trình in ra màn hình dòng chữ:
"Hello
Toi la Turbo Pascal"
*Cần khai báo kiểu dữ liệu*
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.
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.
Viết Chương Trình Pascal : a) Khai Báo biến a có kiểu dữ liệu số thực và có giá trị là 20,5 , biến b có kiểu dữ liệu xâu kí tự và được đọc vào tự bàn phím . b) Khai Báo Biến x có kiểu xâu kí tự và được gán là Hà Nội, Một biến y có kiểu dữ liệu là số nguyên và được đọc vào từ bàn phím.
a) var a:real;
b:string;
a:=20.5;
readln(b);
b) var x:string;
y:integer;
x:='Ha Noi'
readln(y);
Dưới đây là một chương trình viết trong Pascal:
program CT_Dau_tien ;
Uses crt ;
begin
writeln ( ‘Toi la Turbo Pascal’ )
end.
Tên chương trình là:
A begin. B. end C. writeln D. crt
1 là bn sửa hình nền
2 là mk gọi admin hoặc giáo viên khác khoá nick bn
Cho biểu thức y = 5 - 2x. Em hãy viết chương trình Pascal tính và in ra màn hình giá trị y. Với x, y là hai biến của chương trình có kiểu dữ liệu là số nguyên, giá trị của x đươc nhập vào từ bàn phím.
giúp em với mng, cảm ơn mng rất nhiều ạ<3
Viết chương trình đọc 2 số thực a, b từ tệp 'DULIEU.DAT' ( Tệp 'DULIEU.DAT' có nhiều dòng dữ liệu mỗi dòng chứa hai số thực). tính chu vi P và diện tích S hình chữ nhật và xuất kết quả ra màn hình. ( yêu cầu viết chương trình đọc một dòng dữ liệu đầu tiên trong tệp 'DULIEU.DAT'
uses crt;
const fi='dulieu.dat'
var f1:text;
a,b,p,s:array[1..100]of real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(a[n],b[n]);
end;
for i:=1 to n do
begin
p[i]:=(a[i]+b[i])/2;
s[i]:=a[i]*b[i];
end;
for i:=1 to n do
writeln(p[i]:4:2,' ',s[i]:4:2);
close(f1);
readln;
end.
CÓ BẠN NÀO GIỎI MÔN NÀY K Ạ GIÚP MIK VỚI MIK CẦN GẤP LẮM Ạ 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.
Program tinh_tong;
uses crt;
var a,b:Integer;
begin
Write('Nhap gia tri a: ');
Readln(a);
Write('Nhap gia tri b: ');
Readln(b);
Writeln('Tong: ',a+b);
Readln();
end.
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
a) Viết chương trình in ra màn hình dòng chữ: Chào mừng ngày 20-11b) Khai báo biến và hằng cho bài toán "Tính số tiền mua bút biết giá mỗi cây bút là 4000 đồng"