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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2021, 20:05   #1
qwe1233
Новичок
Джуниор
 
Регистрация: 23.01.2021
Сообщений: 2
По умолчанию Добрый вечер. Написал программу, но не могу понять где ошибка, может кто нибудь помочь.

условие: Сформировать список студентов группы со следующими сведения¬ми: фамилия, имя, отчество, знает ли языки программирования Pascal ABC, Cи (если да, где обучался и сколько лет). Подсчитать, сколько студентов знают язык Си, сколько – Pascal ABC, сколько – оба языка.
Код:
Type	
student = record	
fam: string[20];
name: string[20];
ot4: string[20];
Pac: string[5];
Ci:string[5];
end;
Var
  z:array[1..20]of student;
  i,n:byte;
  e,q,w:string;
  k,p,o:integer;
begin
  write('Введите количестов студентов: ');
  readln(n);
  for i:=1 to n do begin
    write('Ввдите фамилию: ');
    readln(z[i].fam);
    write('Ввдите имя: ');
    readln(z[i].name);
    write('Ввдите отчество: ');
    readln(z[i].ot4);
    write('знает ли вы язык программирования Pascal ABC?: ');
    readln(z[i].Pac);
    write('знает ли вы язык программирования C++?: ');
    readln(z[i].Ci);
  end;
  k:=0;
  p:=0;
  o:=0;
  for i:=1 to n do begin
   if z[i].Pac='Да' then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(q);
      k:=k+1;
    end 
    else
   if z[i].Ci='Да' then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(w);
      p:=p+1;
    end
    else
      if (z[i].Pac='Да') and (z[i].Ci='Да') then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(e);
      o:=o+1;
      end;
      end;
    for i:=1 to n do 
      writeln('Кол-во студентов знающих язык программирования Pascal ABC: ',k);
      writeln('Кол-во студентов знающих язык программирования C++: ',p);
      writeln('Кол-во студентов знающих оба языка программирования: ',o);
end.

Последний раз редактировалось qwe1233; 25.01.2021 в 14:37. Причина: не вставил условие
qwe1233 вне форума Ответить с цитированием
Старый 24.01.2021, 22:05   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Во-первых, используйте кнопочку [CODE] для оформления кода. Во-вторых, сначала считайте тех, кто знает оба языка, а только потом тех, кто знает один из языков. В-третьих, сейчас информация об обучении языку не сохраняется (возможно, нужно сохранять).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 25.01.2021, 15:09   #3
qwe1233
Новичок
Джуниор
 
Регистрация: 23.01.2021
Сообщений: 2
По умолчанию

BDA, Спасибо за помощь, прога работает
qwe1233 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добрый день! Кто может помочь пожалуйста с Архиватором THi4F Помощь студентам 7 19.05.2016 18:23
А может кто-нибудь помочь с 1С? Наталья Баева Помощь студентам 1 02.11.2013 21:19
Где и как скачать программу Delphi. Может кто нибудь может помочь мне - без скачивания из интернета. IZOPGRAM Общие вопросы Delphi 4 16.06.2012 18:12
ребят я не могу понять как решать эти задачи!может кто помочь в решении представленной задачи? Andrusha07 Помощь студентам 0 09.03.2012 23:08