Основы алгоритмизации и программирования. Часть третья. Структурированные типы данных. Асламова В.С - 44 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

87
for i:=1 to 1000 do
with M[i] do begin
writeln (′ввод фамилий′);
readln (fam);
writeln(′улица′); readln(ul );
writeln (′Ввод вида транспорта 1- пешком, 2- велосипед, 3-
автомобиль, 4- мотоцикл, 5- грузовик′);
readln (P);
case P of
1: vidtr:= foot;
2: vidtr:= bicycle;
3: vidtr:= car;
4: vidtr:= motor;
5: vidtr:= Grus
else writeln(′неверно выбран вид транспорта′); exit
end;{для case}
case vidtr of
foot, bicycle:() ; {пустой оператор}
motor: begin
repeat
writeln (′1- коляска есть, 2- нет′);
readln (P);
until (P=1) or (P=2)
if P=1 then kol:=3
else kol:=2;
writeln (′размер бака′);
readln(cor);
end;
Car, Grus: begin
writeln(′ввод размера бака и число мест′
);
readln (cor,kol);
end;
end; {для case}
end; {для with}
for i:=1 to 1000 do
case M[i].vidtr of
Car, Motor, Grus: begin
S:=S +M[i].kol;
SG:= SG + M[i].cor end;
bicikle: S:=S+1;
end; {для case}
writeln (′Необходимо горючего ′,SG,′ литров′);
writeln (′можно вывезти ′,S,′ человек′); end.
88
Задания к ЛОС №3
1.
Напишите сортировку массива записей по убыванию среднего балла.
2. Напишите программу вывода фамилий студентов мужского пола,
освобожденных от воинской службы (для которых в поле military стоит
TRUE).
3. Может ли запись состоять только из вариантной части?
4. Напишите программу вывода фамилии:
a.
самой высокой студентки из группы
b.
самой маленькой студентки с зелеными глазами. 
  for i:=1 to 1000 do                                                        Задания к ЛОС №3
  with M[i] do begin
  writeln (′ввод фамилий′);                                           1.   Напишите сортировку массива записей по убыванию среднего балла.
  readln (fam);
  writeln(′улица′); readln(ul );                                      2.  Напишите программу вывода фамилий студентов мужского пола,
         writeln (′Ввод вида транспорта 1- пешком, 2- велосипед, 3-   освобожденных от воинской службы (для которых в поле military стоит
                 автомобиль, 4- мотоцикл, 5- грузовик′);              TRUE).
  readln (P);
  case P of                                                           3.   Может ли запись состоять только из вариантной части?
  1: vidtr:= foot;
                                                                      4.   Напишите программу вывода фамилии:
  2: vidtr:= bicycle;
  3: vidtr:= car;                                                          a. самой высокой студентки из группы
  4: vidtr:= motor;                                                        b. самой маленькой студентки с зелеными глазами.
   5: vidtr:= Grus
               else writeln(′неверно выбран вид транспорта′); exit
                 end;{для case}
  case vidtr of
  foot, bicycle:() ;        {пустой оператор}
 motor: begin
repeat
       writeln (′1- коляска есть, 2- нет′);
       readln (P);
until (P=1) or (P=2)
       if P=1 then kol:=3
              else kol:=2;
       writeln (′размер бака′);
        readln(cor);
end;
Car, Grus: begin
              writeln(′ввод размера бака и число мест′);
                  readln (cor,kol);
            end;
       end;                 {для case}
end;                        {для with}
for i:=1 to 1000 do
  case M[i].vidtr of
   Car, Motor, Grus: begin
     S:=S +M[i].kol;
     SG:= SG + M[i].cor end;
bicikle: S:=S+1;
 end;             {для case}
writeln (′Необходимо горючего ′,SG,′ литров′);
writeln (′можно вывезти ′,S,′ человек′); end.

                         87                                                                               88

Страницы