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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 06.05.2017, 18:19   #1
kukobch
Пользователь
 
Регистрация: 14.10.2016
Сообщений: 18
Радость Перевести из Паскаля в Си

Код:
const
  nmax=20;
  k=3;
type
  curort=record
    name: string[20];
    kolv: array[1..k] of integer;
    cena: integer;
  end;
var
  a: array[1..nmax] of curort;
  n,i,j,m: byte;
  sum,max: integer;
begin
  write('Сколько курортов в списке? ');
  readln(n);
  for i:=1 to n do
    with a[i] do
    begin
      write(i,'-е место отдыха: ');
      readln(name);
      writeln('  Сколько продано путевок?');
      for j:=1 to k do
      begin
        write(j,'-й месяц: ');
        readln(kolv[j]);
      end;
      write('  Цена путевки? ');
      readln(cena);
      writeln;
    end;
  sum:=0; max:=0;
  for i:=1 to n do
    max:=max+a[i].kolv[1];
  m:=1;
  writeln('В 1-м месяце продано в среднем ',max/n:0:2,' путевок');
  for j:=2 to k do
  begin
    sum:=0;
    for i:=1 to n do
      sum:=sum+a[i].kolv[j];
    if sum>max then
    begin
      max:=sum;
      m:=j;
    end;
    writeln('В ',j,'-м месяце продано в среднем ',sum/n:0:2,' путевок');
  end;
  writeln('Максимальная сумма продаж была в ',m,'-м месяце');
  sum:=0;
  for i:=1 to n do
    with a[i] do
      sum:=sum+kolv[m]*cena;
  writeln('И составила в среднем по курортам ',sum/n:0:2,' рублей.');
end.
Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 06.05.2017 в 19:30.
kukobch вне форума
Старый 06.05.2017, 18:40   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Тут не бесплатное бюро переводов.

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевести с Паскаля на си magic666 Помощь студентам 2 28.09.2014 15:57
Перевести из паскаля в Си AirC Общие вопросы C/C++ 8 19.05.2014 18:42
Перевести с Паскаля на Си lyubov17 Помощь студентам 0 10.12.2013 21:11
перевести из паскаля на с++ екатерина новикова Общие вопросы C/C++ 1 19.12.2011 19:21
перевести из паскаля в си++ екатерина новикова Помощь студентам 0 19.12.2011 19:02