[パスカル – TUT] 投稿 9: レコードのタイプ – 記録
1. 宣言する:
ザ·. 間接宣言
構文:
Type <Tên kiểu> = RECORD <Tên trường 1> :<Kiểu trường> <Tên trường 2>:<Kiểu trường> ... END;
例:
Type date=RECORD ngay,thang:byte; nam:word; End; HOCSINH = RECORD MaSV:string[15]; Hoten:string[30]; Ngaysinh:date; Diachi: String; End;
注意: 次のようにテストすることなく、以前の日付を直接記述することができます:
Type HOCSINH = RECORD MaSV:string[15]; Hoten:string[30]; Ngaysinh:record {sử dụng khai báo trực tiếp} ngay:1..31; thang:1..12; nam:word; End; Diachi: String; End; Var HSA,HSB: HOCSINH; Lop12A: Array[1..50] of HOCSINH;
B. 直接宣言
構文:
<pre>var <tên kiểu>: RECORD <Tên trường 1> :<Kiểu trường> <Tên trường 2>:<Kiểu trường> ... END;
2. レコード変数を取得
変数にアクセスするには、次の構文で変数のフィールドでレコードを取得する必要があります:
<Tên biến record>.<tên trường>
注目:
– 変数は、レコードの同じタイプは、このレコードから全体変数情報が別のレコード変数に割り当てられる同じで割り当てることができ.
たとえば、私たちは割り当て: HSA:= HSB代わりに、私たちは、このような学校として、各変数を割り当てるために実行する必要があります
HSA.hoten:= HSB.hoten;
HSA.ngaysinh:= HSB.ngaysinh;
…
– 比較を使用することができます=, <> 与える 2 可変レコードが、比較を使用することはできません <,<=,>,>=.
例えば、我々は比較することができます:
HSA = HSBであれば、その後のwriteln(「提供する学生);
HOAC HSA.hoten = HSB.hoten、その後のwriteln場合(「二つの学校の生徒10」);
しかし、比較することはできません:
HSAの場合>HSB、その後のwriteln(「HS A LON本町HS B」);
– 読んで手順を使用しないでください, readln, 書く, 可変レコードのためのwriteln
たとえば、使用できません:
writeln(HSA);
– 可変レコードを持つすべての算術論理演算を使用しないでください。.
3. Withステートメント
我々は正しい名前とドットを通じてタイプレコード・フィールドの変数を取得見ることができるように, 複雑なプログラム, やや、この複雑さを落ち着きます, パスカルは声明を出し ... DO
構文:
WITH <biến kiểu record> Do <câu lệnh>;
注目:
私たちは一緒によると巣文は、レコードの文字列内の学校を訪問することができます.
Ví dụ với HOCSINH và Ngaysinh đều là biến record nhưng ngaysinh là một trường của HOCSINH ta có thể viết như sau:
WITH HOCSINH DO WITH ngaysinh DO <lệnh>;
または
WITH HOCSINH, ngaysinh DO <lệnh>;
原著 : vietsource.net
順序が少し混乱している必要があり投稿することにより、 投稿 10: ファイルタイプ - パスカルファイルで 以前に書かれました, あなたが参照してください。 ここに NHE.
cảm ơn bạn nhiều lắm 😀
Chúc bạn học tốt. 😀
頻繁にオフラインでのブログをご覧ください.
Anh ơi sao không có phần 2 サー….
E 1 số bài muốn hỏi anh Quân và e có thể hỏi qua email của A được không ạ!!
一部 2 quên không làm 😀
ok có gì bạn cứ mail cho mình
Anh ơi anh có bài tập về bản ghi ko ah, anh up cho em xin với
あなたはネット上で見つける多くの. “宿題ログパスカル”
私はこの記事ではないに役立つ誰? “正の整数nはA1のシーケンスを考えます, A2, ..., AN. 発見したシーケンスを統合し、すべての素数を探し、見つからシーケンスの昇順に並べ. 見つからない場合は、「ゼロの条件の日」のメッセージが表示されます。”
そのプログラムがソートされていません, ちょうど退職のための他のいくつかの要件を行います
PROGRAMハッカー;
CRTを使用しています;
VAR nを,J,から :^整数;
ザ·,B :アレイ[1..500] 整数の;
テスト :タンク;
で,インクルード :整数;
tich :倍長;
ベギン
リピート
リピート
clrscr;
書く(「配列の要素数があります」);
新しい(N);
読む(^);
までのn ^ > 0;
書く(「コードを入力します。」);
readkey;
clrscr;
私のために:= 1 nに^行います
スタート
書く(「だから、木「,で,’ ");
readln(ザ·[で]);
より;
新しい(J);
新しい(から);
J ^:= 0;
インクルード:= 0;
私のために:= 1 nに^行います
スタート
Z ^:= 2;
Aしばらく[で] モッズZ ^ 0 ^ Zを行います:= Z ^ + 1;
もし[で] = Z ^次いで
スタート
J ^:= J ^ + 1;
B[J ^]:= A[で];
インクルード:= + 1;
より;
より;
IF = 0 それから
スタート
clrscr;
書く(「不十分な条件コードよりもデー」。);
より
ほかに
スタート
tich:= 1;
私のために:= 1 DEMするtichを行います:= tich * B[で];
書く(「Tichはラ・プライム」,tich,」。」);
readkey;
より;
clrscr;
writeln(「あなたが戻って続行しますか ?');
writeln(「1. コ」);
writeln(「2. Khongの ");
テスト:= readkey;
テストまで=「2」;
終わり.
Em thật sự cảm.ơn anh rất nhiều em đi ôn hsg tin 11 thầy giảng kiểu bản gi e không hiểu xem anh giảng cũng như cho ví dụ em cảm thấy mình hiểu ra nhiều mong anh tiếp tục cho ra các bài viết hay thế này ạ…Thân gửi anh :).
ありがとうNHE. 🙂
Kiểu Pointtype có phải là bản gi ko anh
[はい.
kiểu PointType được định nghĩa sẵn bởi unit Graph như sau:
PointType = Record X, アンド : Integer End;