Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1: ngôn ngữ lập trình pascal có những môi trường làm việc là: free pascal, turbo pascal, olala pascal, pretty pascal,...
2: Các kiểu dữ liệu thường dùng trong pascal là
-kiểu số nguyên: integer
-kiểu số thực: real
-kiểu xâu(chuỗi): string
-kiểu ký tự: char
3:
-các từ khóa mà em hay sử dụng là: begin, end, write, gotoxy, textcolor,...
-Từ khóa khai báo biến: var
-Từ khóa khai báo hằng: const
4:
vd: tam:=9;
5:
-Cú pháp: <biến>:=<biểu thức>;
-Để khai báo biến cho bài tính diện tích hình chữ nhật , tôi sẽ viết:
dt:=cd*cr;
câu 1
program hinh_chu_nhat;
uses crt;
var a,b,CV,S:real;
begin
writeln('nhap chieu dai va chieu rong hinh chu nhat');
readln(a,b);
CV:=(a+b)*2;
S:=a*b;
writeln('dien tich hinh chu nhat la',S:4:2);
writeln('chu vi hinh chu nhat la',CV:4:2);
readln;
end.
câu 2
program cau_2;
uses crt;
var a,b:real;
begin
writeln('trung binh cong cua a va b la',(a+b)/2:4:2);
readln;
end.
câu 3
program hinh_vuong;
uses crt;
var a,CV,S:real;
begin
writeln('nhap do dai canh hinh vuong');
readln(a);
CV:=a*4;
S:=a*a;
writeln('chu vi hinh vuong la',CV);
writeln('dien tich hinh vuong la',S);
readln;
end.
Lời giải :
Bài 1 :
program hotrotinhoc ;
var a : array[1..9999] of in teger ;
i,N,tong : integer ;
begin
write('Nhap gia tri cua cac phan tu');
write('Nhap do dai cua mang :'); readln(N);
for i:= 1 to N do
begin
write('a[',i,'])='); readln(a[i]);
end;
tong:=0;
for i:= 1 to N do
tong := tong + a[i] ;
write('Tong cac phan tu la :',tong);
readln
end.
Bài 2 :
program hotrotinhoc ;
var a : array[1..9999] of in teger ;
i,N,SLN : integer ;
begin
write('Nhap gia tri cua cac phan tu');
write('Nhap do dai cua mang :'); readln(N);
for i:= 1 to N do
begin
write('a[',i,'])='); readln(a[i]);
end;
SLN:= a[1] ;
if SLN < a[i] then write('Phan tu lon nhat la',SLN);
readln
end.
Câu 3 :
Đoạn khai báo : var a : array[1..15] of real ;
Chỉ số phần tử cuối thì cần viết cả chương trình thì mới có thể là nhập phần tử cuối là 100 bạn nhé.
Bài 1:
program andanh;
uses crt;
var n,i,tong: integer;
a: array [1..100] of integer;
begin
clrscr;
tong:= 0;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('So thu ',i,': ');
readln(a[i]);
end;
for i:= 1 to n do
tong:= tong + a[i];
write('Tong cac phan tu la: ',tong);
readln
end.
Bài 2:
program andanh;
uses crt;
var n,i,max:integer;
a: array[1..100] of integer;
begin
clrscr;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
max:= a[1];
for i:= 2 to n do
if max < a[i] then max:= a[i];
write('Vi tri cua phan tu lon nhat: ');
for i:= 1 to n do
if a[i] = max then write(i);
readln
end.
Bài 3:
a: array[86..100] of real;
Giả sử A được khai báo là biến với kiểu dữ liệu là số thực,phép gán nào đúng:
a)A:= ' 38.59 b) A:=35.59; c) A:=3559 d) cả b và c đều đúng
Câu 6:Trong Pascal,khai báo đúng là:
a) Var chieudai:real ( đúng )
b) Var 40HS: integer ( sai do tên biến không bắt đầu bằng chữ số )
c) Var R=50 ( sai cú pháp )
Giá trị của biến a sau khi thực hiện chương trình: "a:=5 ; a:=a–4" là:
a) 1 b) 2 c) 3 d) 4
Câu 1: D
Câu 2: A hoặc C
Câu 3: C
Câu 4: C
Câu 5: Sai hết
Cú pháp khai báo biến :
Var <tên biến> : <kiểu dữ kiệu của biến>;
Cú pháp khai báo hằng :
Const <tên hằng> = <giá trị của hằng>;
Lệnh Write và Writeln : để in kết quả ra màn hình
- cú pháp khai báo thư viện: Uses <tên thư viện>;
- cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;
- cú pháp khai báo hằng: Const <tên hằng>=<giá trị>;
- cú pháp writeln, write: Write(ND1,ND2,ND3,...);
Writeln(ND1,ND2,ND3,...);
ờ nhưng tại sao kêu t tag vậy Hùng, m tag ko đc ak ?
@Nguyễn Trần Thành Đạt
Tú Nguyễn B (Erik) Trương Quang Dũng hành động đi các bạn, đây là sân chơi của các bạn, cộng đồng đang chờ bạn, gia đình chờ bạn, bạn bè chờ bạn ><