Ai chỉ cho mình cách khai báo và sử dụng hàm Function, thủ tục produce trên tệp
K
Khách
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.
Những câu hỏi liên quan
TH
2
30 tháng 1 2020
*Cách khai báo
-Thủ tục: procedure <tên thủ tục>(các tham số);
-Hàm: function <tên hàm>(các tham số):<kiểu dữ liệu của hàm>;
*Sử dụng:
-Thủ tục: Dùng để thực hiện một hay nhiều nhiệm vụ nào đó.
-Hàm: Trả về một giá trị nào đó (có kiểu vô hướng, kiểu string). Hàm có thể sử dụng trong các biểu thức.
*Ngoài ra, trong Pascal còn cho phép các CTC lồng vào nhau.
10 tháng 2 2020
➤Cách khai báo
-Thủ tục: procedure <tên thủ tục>(các tham số);
-Hàm: function <tên hàm>(các tham số):<kiểu dữ liệu của hàm>;
➤Sử dụng:
-Thủ tục: Dùng để thực hiện một hay nhiều nhiệm vụ nào đó.
-Hàm: Trả về một giá trị nào đó (có kiểu vô hướng, kiểu string). Hàm có thể sử dụng trong các biểu thức.
➤Ngoài ra, trong Pascal còn cho phép các CTC lồng vào nhau.
13 tháng 4 2021
program Angus;
uses crt;
var
x1,x2,x3,y1,y2,y3,s,p,n,a,b,c :real;
begin
clrscr;
write('Nhập tọa độ điểm A(x1,y1)= '); readln(x1,y1);
write('Nhập tọa độ điểm B(x2,y2)= '); readln(x2,y2);
write('Nhập tọa độ điểm C(x3,y3)= '); readln(x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if (a+b>c) and (b+c>a) and (c+a>b) then
begin
p:=a+b+c;
n:=p/2;
s:=sqrt(n*(n-a)*(n-b)*(n-c));
writeln('Chu vi = ', p:0:2);
writeln('Diện tích = ',s:0:2);
end
else writeln('các điểm bạn vừa nhập không tạo thành 1 tam giác :> ');
readln
4 tháng 4 2021
const fi='tamgiac.dat';
fo='tamgiac.out';
var f1,f2:text;
a,b,c,d,e,f:array[1..100]of integer;
i,n,dem1,dem2,dem3:integer;
ab,bc,ac:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
readln(f1,a[i],b[i],c[i],d[i],e[i],f[i]);
dem1:=0;
dem2:=0;
dem3:=0;
for i:=1 to n do
begin
ab:=sqrt(sqr(a[i]-c[i])+sqr(b[i]-d[i]));
ac:=sqrt(sqr(a[i]-e[i])+sqr(b[i]-f[i]));
bc:=sqrt(sqr(c[i]-e[i])+sqr(d[i]-f[i]));
if (ab>0) and (ac>0) and (bc>0) and (ab+ac>bc) and (ab+bc>ac) and
(ac+bc>ab) then
begin
if (ab=ac) or (ac=bc) then inc(dem1);
if ((ab=ac) and (ab<>bc) and (ac<>bc)) then inc(dem2);
if ((ac=bc) and (bc<>ab) and (ac<>ab)) then inc(dem2);
if ((ac=bc) and (ac<>ab) and (bc<>ab)) then inc(dem2);
if sqr(ab)=sqr(ac)+sqr(bc) then inc(dem3);
if sqr(ac)=sqr(bc)+sqr(ab) then inc(dem3);
if sqr(bc)=sqr(ab)+sqr(ac) then inc(dem3);
end;
end;
writeln(f2,dem1);
writeln(f2,dem2);
writeln(f2,dem3);
close(f1);
close(f2);
end.
28 tháng 10 2017
Hướng dẫn: Ngoài thủ tục trên, em cần xây dựng thủ tục chumbong như sau:
To chumbong
Setpencolor 1 htron fd 50 rt 72
Setpencolor 2 htron fd 50 rt 72
Setpencolor 3 htron fd 50 rt 72
Setpencolor 4 htron fd 50 rt 72
Setpencolor 5 htron fd 50 rt 72
Setpencolor 10
Pu bk 100 lt 20
Pd repeat 5 [fd 60 bk 60 rt 8]
End
*Cách khai báo
-Thủ tục: procedure <tên thủ tục>(các tham số);
-Hàm: function <tên hàm>(các tham số):<kiểu dữ liệu của hàm>;
*Sử dụng:
-Thủ tục: Dùng để thực hiện một hay nhiều nhiệm vụ nào đó.
-Hàm: Trả về một giá trị nào đó (có kiểu vô hướng, kiểu string). Hàm có thể sử dụng trong các biểu thức.
*Ngoài ra, trong Pascal còn cho phép các CTC lồng vào nhau.