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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.09.2015, 22:59   #1
surof1n
 
Регистрация: 01.12.2014
Сообщений: 4
По умолчанию Перевести с Pascal на C++

Добрый день. Буду благдарен, если кто-нибудь сможет помочь с заданием.
Задание: Распечатать фамилии тех учеников класса, которые являются хорошистами и отличниками по итогам года. Также указать, насколько их средний бал отличается от среднего балла класса.
Паскаль
PHP код:
Uses crt;
Type student=record
            name
:string[20];
            
sred:real;
            
end;
Var 
oc:array[1..30,1..8]of integer;
      
st:array[1..30]of student;      
      
i,j,n,k:integer;
      
kolvoHsredK,sredH,raznica:real;
Begin
ClrScr
;
  
write('Количество учеников: ');
  
readln(n);
  
writeln('Введите оценки');
  for 
i:=1 to n do
  
begin
        writeln 
(i,'-го ученика:');
        
write ('ФИО: ');         readln(st[i].name);
        
write ('Русский яз.: '); readln(oc[i,1]);
        
write ('Литература: ');  readln(oc[i,2]);
        
write ('Математика: ');  readln(oc[i,3]);
        
write ('Физика: ');      readln(oc[i,4]);
        
write ('Химия: ');       readln(oc[i,5]);
        
write ('ИЗО: ');         readln(oc[i,6]);
        
write ('ИНО: ');         readln(oc[i,7]);
        
write ('Физ-ра: ');      readln(oc[i,8]);
        
writeln;
  
end;
  
  
sredK:=0;   {средний балл класса изначально 0}
  
sredH:=0;   {средний балл хорошистов изначально 0}
  
kolvoH:=0;  {кол-во хорошистов}
  
  for 
i:=1 to n do
    
with st[i] do
    
begin
    sred
:=0;
      
begin
        
for j:=1 to 8 do 
           
sred:=sred+oc[i,j]; {находим сумму оценок каждого ученика}
      
end;
    
sred:=sred/8; {находим среднюю оценку каждого ученика}
    
sredK:=sredK+sred; {находим сумму средних оценок всех учеников}
    
end;   
    
  
writeln (' Отличники:');
  for 
i:=1 to n do
    
begin
      
if st[i].sred=5 then  {если средняя оценка 5то это отличник}
      
writeln (' ',st[i].name);
    
end;
    
  
writeln;  
  
writeln (' Хорошисты:');
  for 
i:=1 to n do
    
begin
      k
:=0; {у каждого ученика k вначале =0}
        
begin
        
for j:=1 to 8 do 
          if 
oc[i,j]>=4 then {если оценка 4 и выше то}
          if 
oc[i,j]=4 then  {если оценка 4 то}
          
k:=k+1;    {увеличив k мы даем понять что у ученика из всех оценок есть хотябы 1 четверка}
        
end;
        if 
k>0 then  {если есть 4ки то}
          
begin
          writeln 
(' ',st[i].name);
          
kolvoH:=kolvoH+1;    {считаем хорошистов}
          
sredH:=sredH+st[i].sred; {находим сумму средних оценок хорошистов}
          
end;
    
end
      
  
sredK:=sredK/n;      {средняя оценка класса}
  
sredH:=(5+(sredH/kolvoH))/2; {средня оценка хорошистов}
  
  
raznica:=sredH-sredK;  {находим разницу}
  
  
writeln;
  
writeln ('Средний балл хорошистов и отличников: ',sredH:0:1);
  
writeln ('Средний балл класса: ',sredK:0:1);
  
writeln ('Разница: ',raznica:0:1);
Readln
End 
surof1n вне форума Ответить с цитированием
Старый 24.09.2015, 23:12   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

перевод – неблагодарное занятие, проще и быстрее написать всё с нуля.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевести с Pascal в C++ Евгений Баранников Паскаль, Turbo Pascal, PascalABC.NET 6 16.05.2013 09:28
перевести с Pascal на СИ Vladis1av Помощь студентам 0 08.04.2013 18:37
Перевести на С++ (Pascal) spinogryz_ua Помощь студентам 4 23.11.2012 12:04
перевести с++ в pascal ApXaHreL Помощь студентам 1 19.06.2011 17:41
Перевести с Turbo C в Pascal Andrey770 Паскаль, Turbo Pascal, PascalABC.NET 0 04.04.2011 20:39