Запись (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
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.
54
#Код программы на 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
return sum
end