Запись (record) — это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:
type schools = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10) students = record name, surname : string; age : byte; school : schools; end;
Для обращения к полям записи из главной программы необходимо разделять имя переменной типа Запись и поля, которое оно содержит, символом "." (точка). Например:
var student : students;
begin student.name := 'Иван'; student.surname := 'Пупкин'; end.
Если необходимо получить или изменить значения нескольких полей записи, то удобнее использовать конструкцию with:
begin with student do begin name := 'Вася'; surname := 'Пупкин'; age := 12; school := 5; end; end.
#Код программы на Ruby22 t=[] primes = NumberHelpers::getPrimeNumbers(6288, nil) primes.each do |pr| t << pr if pr >= 5232 and NumberHelpers::GetNumbersSum(pr) % 2 == 0 end p t p t.size
def getPrimeNumbers(max, primes) primes = [2] if primes == nil
for i in (primes.last+1)..max f = false primes.each do |pn| f = (f or (i % pn==0)) end primes<<i if not f end p primes.last return primes end
def GetNumbersSum(n) n = n.to_s.chars sum = 0 n.each do |c| sum += c.to_i() end
import math
x1 = int(input("Введите координату x1: "))
x2 = int(input("Введите координату x2: "))
y1 = int(input("Введите координату y1: "))
y2 = int(input("Введите координату y2: "))
x3 = int(input("Введите координату x3: "))
y3 = int(input("Введите координату y3: "))
a = math.sqrt((x1-x2)**2 + (y1+y2)**2)
b = math.sqrt((x2-x3)**2 + (y2+y3)**2)
c = math.sqrt((x1-x3)**2 + (y1+y3)**2)
P = (a+b+c) / 2
S = math.sqrt(P*(P-a)*(P-b)*(P-c))
print (P, "- периметр треуголника")
print (S, "- площадь треугольника")
Объяснение: