Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2017, 17:47   #11
kris14
Пользователь
 
Регистрация: 25.10.2017
Сообщений: 29
По умолчанию

Ого, спасибо огромное!!
kris14 вне форума Ответить с цитированием
Старый 16.11.2017, 00:16   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

пожалуйста.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.11.2017, 17:52   #13
Yakup
Пользователь
 
Регистрация: 13.11.2017
Сообщений: 13
По умолчанию

Код:
program labka10;

type
  info = record
    name:string[10];
    value:integer;
    weight:real;
  end;

var
a:array[1..10] of info;
fileText:text;
fileType:file of info;
averageWeight,averageValue:real;
ValuePas1,ValuePas2,k,i,j,x:integer;

begin
assign(fileText,'fileText.txt');
reset(fileText);
i:=0;
while not eof(fileText) do
  begin
    inc(i);
    readln(fileText,a[i].name);
    readln(fileText,a[i].value);
    readln(fileText,a[i].weight);
  end;
close(fileText);
assign(fileType,'fileType.typ');
rewrite(fileType);
for j:=1 to i do
  write(fileType,a[j]);
close(fileType);
reset(fileType);
averageValue:=0;
averageWeight:=0;
for j:=1 to i do
  begin
    read(fileType,a[j]);
    averageValue:=averageValue+a[j].value;
    averageWeight:=averageWeight+a[j].weight;
  end;
averageValue:=averageValue/i;
averageWeight:=averageWeight/i;
writeln('Выберите действие');
writeln('1. Багаж, вес которого отличается не более чем на 0.3 от среднего');
writeln('2. Число пасажиров, имеющих более двух вещей, и число пасажиров, кол-во вещей которых превосходит среднее кол-во');
writeln('3. Имеется ли пасажир, у которого багаж весит менее 30кг, а кол-во вещей равно одному');
readln(x);
case x of
1:
for j:=1 to i do
  if (a[j].weight<=(averageWeight+0.3)) and (a[j].weight>=(averageWeight-0.3))
    then  writeln(a[j]);
2:
begin
  ValuePas1:=0;
  ValuePas2:=0;
  for j:=1 to i do
    begin
      if a[j].value>2 then ValuePas1:=ValuePas1+1;
      if a[j].value>averageValue then ValuePas2:=ValuePas2+1;
    end;
  writeln('Число пасажиров, которые имеют больше двух вещей - ',ValuePas1);
  writeln('Число пасажиров, кол-во вещей которых, превосходит среднеее кол-во - ',ValuePas2);
end;
3:
begin
  k:=0;
  for j:=1 to i do
    if (a[j].weight<30) and (a[j].value=1)
      then k:=1;
  if k=0 
    then writeln('Такой пасажир отсутствует')
    else writeln('Такой пасажир есть');
end;
end;
end.
Yakup вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Лабораторная работа(очень простая) Структуры, работа с файлами yurda Фриланс 2 11.06.2016 08:44
Работа с файлами: запись, добавление, чтение (найти ошибку в коде) / C для начинающих Надо создать программу для работы с файлами Konlor Общие вопросы C/C++ 2 18.05.2014 12:37
работа с файлами Diana528 Общие вопросы C/C++ 11 04.11.2013 11:07
Работа с файлами Jalced Паскаль, Turbo Pascal, PascalABC.NET 5 30.11.2011 21:52
Работа с файлами. Pascaler Помощь студентам 6 13.05.2010 10:23