1樓：網友
var q,w,n,m,nn,mm:longint;
beginreadln(q,w,n,m);
readln(nn,mm);
if (mmw)or(nnn) then
beginwriteln('out');
halt;end;
if (nn=n)and(mm=m)or(nn=q)and(mm=w)or(nn=n)and(mm=w)or(nn=q)and(mm=m)then
beginwriteln('vertex');
halt;end;
if (nn=q)or(nn=n)or(mm=w)or(mm=m) then
beginwriteln('edge');
halt;end;
writeln('in');
end.如果要加檔案操作的話，在每個halt前面都要寫close
pascal問題：點的位置
2樓：網友
按照程式設計思路來說，輸入的兩個數中任何乙個的絕對值大於2，則為f，否則為t
pascal 中 函式（全）
3樓：熊熊長
我來滿足一下lz的好奇心啊，順便提公升我的英語水平，這些詞的詞性不統一啊，你就將就著看吧。一般能用到的就有這些：
abs(x) f absolute valuechr(x) f char
dec(x) p decrease
eof(f) f end of file
eoln(f) f end of lineexp(x) f exponent
frac(x) f fraction
int(x) f integer
inc(x) p increase
ln(x) f logarithms
ord(c) f order
pos(s/c,s) f positionsqr(x) f square
sqrt(x) f square rootstr(x,s) f string
succ(x) f succeeding
trunc(x) f truncate
val(s,r,p) p value
4樓：營遠
insert
注意：source 是字串型別的表示式。 s 是任意長度字串型別變數。
index 是整型表示式。insert 把 source插在s中index處。如果結果字串的長度大於255，那麼255之後的字元將被刪。
注意：s 是字串型別變數。 index和countare是整型表示式。
delete 刪除s中從index開始的count個字元。如果index大於s的長度，則不刪除任何字元；如果count大於s中從index開始的實際字元數，則刪除實際的字元數。
pascal轉圈遊戲 簡單一點的
5樓：虛谷天
noip2013 提高組試題。
program circle;var mi,y,m,x:int64; n,k:longint; fi:
text;begin assign(fi,'');reset(fi); read(fi,n,m,k,x); close(fi); y:=10;mi:=1; while k>鬧碧0do begin if(k and 1=1)then mi:
mi*y mod n; y:=sqr(y)mod n; k:=k shr 1; end; mi:
mi*m mod n; mi:=(mi+x)mod n; assign(fi,'液念舉'高巖);rewrite(fi); write(fi,mi); close(fi);end.
6樓：匿名使用者
眼睛看著乙個點就行了。
pascal實型輸出小數點後幾位是怎麼寫的啊
7樓：網友
1、pascal中的輸出語句為writeln和write，格式如下：
write(輸出向量表);
writeln(輸出向量表);
2、要限定輸出時乙個數值常量、變數的位數，需要通過場寬來進行。實型場寬的使用方法為： writeln(s:num1:num2);
其中s為實型變數或常量，num1為整個陣列所佔的位寬，即整數部分+小數部分+小數點佔用的位寬，若指定的num1小於輸出所需的最小位寬，則將s左對齊完整輸出。而num2就是要指定的小數位數。
若需瞭解更多write和writeln的用法， 可參考官方文件rtl部分，system單元中對於write和writeln的描述。
8樓：網友
writeln(a:5:3);
可以保留三位小數。
9樓：最萌_天使
var a:real;
begina:=;
writeln(a:0:4);
end.輸出為：
其中4就是後4位。
pascal 求兩點間距離
10樓：網友
program xx;
varx1,x2,y1,y2,dis,x,y:real;
beginreadln(x1,y1);
readln(x2,y2);
x:=abs(x1-x2);
y:=abs(y1-y2);
dis:=sqrt(sqr(x)+sqr(y));
writeln(dis);
end.手寫的，語法錯誤無法避免，自己用tp檢測訂正。
pascal 階乘問題，pascal乘積最大問題
請樓上注意題目描述，只求一位，根本不用高精度。另外，請同志們尊重提問者，認真作答，不要以一兩句話敷衍了事！ps 我是一樓。pascal乘積最大問題 我們一起來分析一下 設字串長度為n，乘號數為k，如果n ,k 時，有 n 種不同的乘法，當k 時，有c ， 種乘法，既c k,n 種乘法，當n k稍微...
pascal中如何讀入一行資料，Pascal怎麼實現一行輸入N個數？
while not eoln do begin read a i end var a array 1.1000 of integer i integer begin while not eoln do begin i i 1 read a i end end.望採納 readln就是讀一行 直到 1...
pascal程式設計 回朔，pascal 回朔的方法
pascal 回朔的方法 遞迴回溯法演算法框架。procedure search k integer k表示路徑的深度。beginif k n 1 then 1 路徑深度達n 1begin 輸出解 exit 2 end for i 1 to 孩子結點的個數 3 begin 記錄結點資訊。end 注釋 ...