Hints
Описание файла
Файл "Hints" внутри архива находится в папке "Hints". PDF-файл из архива "Hints", который расположен в категории "". Всё это находится в предмете "языки программирования" из 7 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Просмотр PDF-файла онлайн
Текст из PDF
1s1u2s2u4s4u8s8uarrarr[]!=*TCC++charu. charshortu. shortintu. intlong longu. long longint x[N];int x[];!=*TC#sbytebyteshortushortintuintlongulong??!=-JavabyteshortintlongT[] x;^!=-OberonBYTESHORTINTINTEGERLONGINTARRAY N of T???Modula Pascal(16) Delphishortintshortintbytebyteintegersmallintwordwordlongintinteger?cardinalInt64array[D] of T;array of T;#<><>?^T^T(Ada)function SCAL(X, Y : TARR) return T;beginRES : T;RES := 0;for i in X'RANGE do loopRES := RES+X(i)*Y(i);end loop;return RES;end SCAL;X:T constant:=e;package P is...type T is ...;end P;...P.T...package body P istype T1 is ...;end;(С#)a = new int[3, 5]int [][] a; /*первый уровень представляетa = new(int [10][]);/*Инициализация*/a[0]= new int[10];a[1]= new int[3];ссылки на массивы*/class Y {...}struct B{...}class X {Y y; - указательB b; - экземпляр}public Student this[int i]{get{return (Student)InnerList[i];}set{InnerList[i]=value;}}// keywords_base.cs// Accessing base class membersusing System;public class Person{protected string ssn = "444-55-6666";protected string name = "John L.
Malgraine";public virtual void GetInfo(){Console.WriteLine("Name: {0}", name);Console.WriteLine("SSN: {0}", ssn);}}class Employee : Person{public string id = "ABC567EFG";public override void GetInfo(){// Calling the base class GetInfo method:base.GetInfo();AdaType ARR is array (IndexT range L..R) of T;Type ARR is array (IndexT range <>) of T;/=access TConsole.WriteLine("Employee ID: {0}", id);}}class TestClass{static void Main(){Employee E = new Employee();E.GetInfo();}}// keywords_base2.csusing System;public class BaseClass{int num;public BaseClass(){Console.WriteLine("in BaseClass()");}public BaseClass(int i){num = i;Console.WriteLine("in BaseClass(int i)");}public int GetNum(){return num;}}public class DerivedClass : BaseClass{// This constructor will call BaseClass.BaseClass()public DerivedClass() : base(){}// This constructor will call BaseClass.BaseClass(int i)public DerivedClass(int i) : base(i){}static void Main(){DerivedClass md = new DerivedClass();DerivedClass md1 = new DerivedClass(1);}}(Java)public void open_file() throws IOException {// Statements here that might generate an uncaught java.op.IOException}static int [] a;static {a = new int[10]; for (int i = 0; i < 10; i++) a[i] = 1;}public class Ff{public int method(){// ...}}public class Gg extends Ff{public int method(){super.method();// ...}}String myMethod(){try{return trickyMethod();}catch ( IOException e ){return null;}}try{somethingDangerous();}catch ( IOException e ){System.out.println( "oh oh" );throw new BadDataException();}finally{file.close(); // always executed}class Circle {public Circle(double radius) {this.radius = radius;}public double getArea() {return Math.PI*radius*radius;}}class Cylinder extends Circle {public Cylinder(double radius, double length) {super(radius);this.length = length;}public double getArea() { return 2*super.getArea()+2*Math.PI*radius*length;}}(Oberon)TYPE T* = RECORDY:T1; // приватноZ*:T2; // публичноEND;TYPE T* = RECORDI* : INTEGER;J : INTEGER;ENDTYPE T1* = RECORD(T1)K : INTEGER;ENDPROCEDURE (VAR X:T) P(L:INTEGER);PROCEDURE (VAR X:T1) P(L:INTEGER);(Modula-2)DEFINITION MODULE MTYPE T = ...;TYPE Stack;PROCEDURE Init(VAR S: Stack);PROCEDURE Destroy(VAR S: Stack);...END M.IMPLEMENTATION MODULE M;...END M.(Ada 95)generictype G is private;package STACKS is...
Все, как и ранее, заменяя все вхождения FLOAT на G ...end STACKS;package Accounts istype MONEY is digits 12 delta 0.01;type ACCOUNT is tagged private;procedure deposit (a: in out ACCOUNT; amount: in MONEY);procedure withdraw (a: in out ACCOUNT; amount: in MONEY);function balance (a: in ACCOUNT) return MONEY;type CHECKING_ACCOUNT is new ACCOUNT with private;function balance (a: in CHECKING_ACCOUNT) return MONEY;type SAVINGS_ACCOUNT is new ACCOUNT with private;procedure compound (a: in out SAVINGS_ACCOUNT; period: in Positive);privatetype ACCOUNT is taggedrecordinitial_balance: MONEY := 0.0;owner: String (1..30);end record;type CHECKING_ACCOUNT is new ACCOUNT with null record;type SAVINGS_ACCOUNT is new ACCOUNT withrecordrate: Float;end record;end Accounts;package body REAL_STACKS isprocedure put (x: in FLOAT; s: in out REAL_STACK) isbeginif s.count = s.capacity thenraise Overflowend if;s.count := s.count + 1;s.implementation (count) := x;end put;procedure remove (s: in out STACK) is...
Реализация remove ...end remove;function item (s: STACK) return X is... Реализация item ...end item;function empty (s: STACK) return BOOLEAN is... Реализация empty ...end empty;end REAL_STACKS;procedure print_balance (a: in ACCOUNT'Class) isbeginPut (balance (a));New_Line;end print_balance;package Accounts istype Account is private;procedure Withdraw(An_Account : in out Account; Amount: inprocedure Deposit( An_Account : in out Account; Amount: infunction Create( Initial_Balance : Money) return Account;function Balance( An_Account : inAccount) return Integer;privatetype Account isrecordAccount_No : Positive;Balance: Integer;end record;end Accounts;with Accounts;use Accounts;procedure Demo_Accounts isHome_Account : Account;Mortgage: Account;This_Account : Account;beginMortgage := Accounts.Create(Initial_Balance => 500.00);Withdraw(Home_Account, 50);.
. .This_Account := Mortgage;if This_Account = Home_Account then. . .end Demo_Accounts;package Stacks istype Stack is private;procedure Push(Onto : in out Stack; Item : Integer);procedure Pop(From : in out Stack; Item : out Integer);function Full(Item : Stack) return Boolean;function Empty(Item : Stack) return Boolean;private...end Stacks;package Stacks.More_Stuff isfunction Peek(Item : Stack) return Integer;end Stacks.More_Stuff;Money);Money);.