Задание№6 Строка.
Условие: даны две фамилии определить какая из них длиннее.
+
-
+
-
Код
программы
: var
s,t:string;
i,j:integer; begin
write('введите
первую
фамилию-->');
readln(s); write('введите
вторую
фамилию-->');
readln(t); i:=length(s);
j:=length(t); if
i>j
then
writeln
('первая
фамилия
длиннее'); if
i<j
then
writeln
('вторая
фамилия
длиннее'); if
i=j then
writeln ('количество
букв в обеих фамилиях одинаково');
end.
Результат: введите
первую фамилию-->летягин введите
вторую фамилию-->харахордин вторая
фамилия длиннее
введите
первую фамилию-->игнатьев введите
вторую фамилию-->болгов первая
фамилия длиннее введите
первую фамилию-->шин введите
вторую фамилию-->ким количество
букв в обеих фамилиях одинаково
Задание№7. Множества.
Условие: Придумать список некоторых объектов, например, названия товаров в магазинах; виды полезных ископаемых , которые добывают в различных станах; фамилии студентов, которые могут принимать участие в работе определённых кружков и т.п. построить пять множеств (язык слов англ.), которые складываются из различных комбинаций элементов этого списка. Вывести на экран названия объектов, которые находятся во всех множествах одновременно. Определить, какие объекты не входят ни в одно множество.
m1:=[clk500..slsamg];m2:=[e240,Vito114,SLK320R170];m3:=[slr600,e240];mr1:=m1*m2*m3;mr2:=[clk500..SLK320R170]-m1-m2-m3;
+
-
-
+
Код программы:
type
mersedes=(clk500,e240,slr600,slsamg,amg500,Vito114,
V230TD,SLK320); mn=set
of clk500..SLK320;
var
m1,m2,m3,mr1,mr2:mn; i:clk500..SLK320R170;
begin
m1:=[clk500..slsamg]; m2:=[e240,Vito114,SLK320]; m3:=[slr600,e240];
mr1:=m1*m2*m3; mr2:=[clk500..SLK320]-m1-m2-m3; write('
во всех множествах=>'); for
i:=clk500
to
SLK320
do
if
i
in
mr1
then
case ord(i)
of 0:write('clk500
'); 1:write('e240 '); 2:write('slr600 ');
3:write('slsamg');
4:write('amg500 '); 5:write('Vito114 ');
6:write('
V230TD '); 7:write('SLK320 ');
end;
writeln; write('
ни в одном множестве=>'); for
i:=clk500
to
SLK320
do
if
i
in
mr2
then
case ord(i)of 0:write('clk500
'); 1:write('e240 '); 2:write('slr600 ');
3:write('slsamg');
4:write('amg500 '); 5:write('Vito114 ');
6:write('
V230TD '); 7:write('SLK320 '); end; end.
Результат:
во
всех множествах=>e240
ни
в одном множестве=>amg500 V230TD
Задание№8. Записи
Имеется информация о количестве осадков, выпавших за день месяца и температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое в виде дождя. (Считать, что идёт дождь, если температура воздуха выше 0.)
const n=5; type
predmet=record TEMP:integer;OSAD:REAL;end; var
MAS:array[1..n]of predmet; i:integer;
SNEG,DOZD:real; begin
for i:=1 to n do begin writeln('ВВЕДИТЕ
ТЕМПЕРАТУРУ ',I,'
ЧИСЛА-->'); readln(MAS[i].TEMP); writeln('СКОЛЬКО
ОСАДКОВ ВЫПАЛО В ЭТОТ ДЕНЬ?-->'); readln(MAS[i].OSAD);
end; SNEG:=0;
DOZD:=0; for
i:=1 to n do begin IF MAS[I].TEMP>0 THEN DOZD:=DOZD+MAS[I].OSAD
ELSE SNEG:=SNEG+MAS[I].OSAD end; writeln
('ЗА ЭТОТ МЕСЯЦ ВЫПАЛО ОСАДКОВ В ВИДЕ'); writeln
('ДОЖДЯ-->',DOZD); writeln ('СНЕГА-->',SNEG);end.
Результат:
ВВЕДИТЕ
ТЕМПЕРАТУРУ 1 ЧИСЛА--> 10 СКОЛЬКО
ОСАДКОВ ВЫПАЛО В ЭТОТ ДЕНЬ?--> 0.8 ВВЕДИТЕ
ТЕМПЕРАТУРУ 2 ЧИСЛА--> 15 СКОЛЬКО
ОСАДКОВ ВЫПАЛО В ЭТОТ ДЕНЬ?--> 1.01 ВВЕДИТЕ
ТЕМПЕРАТУРУ 3 ЧИСЛА--> 14 СКОЛЬКО
ОСАДКОВ ВЫПАЛО В ЭТОТ ДЕНЬ?--> 1.2 ВВЕДИТЕ
ТЕМПЕРАТУРУ 4 ЧИСЛА--> 8 СКОЛЬКО
ОСАДКОВ ВЫПАЛО В ЭТОТ ДЕНЬ?--> 1.3 ВВЕДИТЕ
ТЕМПЕРАТУРУ 5 ЧИСЛА--> -5 СКОЛЬКО
ОСАДКОВ ВЫПАЛО В ЭТОТ ДЕНЬ?--> 1.1 ЗА
ЭТОТ МЕСЯЦ ВЫПАЛО ОСАДКОВ В ВИДЕ ДОЖДЯ-->4.31 СНЕГА-->1.1