SASHEKA
29.07.2020 11:48

Составить таблицу, позволяющую автоматизировано рассчитывать квартплату квартиросъемщиков. расчет квартплаты p осуществляется по формуле: p = k b s, где s - жилая или общая площадь,b - базовая стоимость одного квадратного метра,k -повышающийкоэффициент за качество жилья. квартплата начисляется за каждый квадратный метр общей площади, если квартира отдельная, и за каждый квадратный метр (1м2) жилой площади, если квартира коммунальная. повышающий коэффициент - k равен: •5 - для домов дореволюционной постройки после капитального ремонта, •3,5 - для домов “сталинской” постройки, •2,8 - для кирпичных домов современной постройки, •2 - для домов дореволюционной постройки, не ремонтировавшихся, •1- для современных блочных домов. базовая стоимость одного квадратного метра b общей площади в отдельной квартире равна 240 р., а жилой площади в коммунальной квартире - 320 р. базовая стоимость 1м2 и коэффициенты могут меняться. требования к решению: каждая строка должна содержать следующую информацию: -фио жильца; -адрес; -категорию дома (которая определяет величину повышающего коэффициента k ); -тип квартиры (коммунальная или отдельная); -начисленную квартплату; -возможно какую-либодополнительную информацию. для расчетов в таблице данные задать самостоятельно. предусмотреть в списке данных все категории домов и типы квартир. вычислить: • общую сумму квартплаты в данном списке; •сумму квартплаты по категориям домов; •общую сумму квартплаты в данном списке. построить круговую диаграмму, показывающую распределение квартплаты по категориям. рекомендации: •базовые стоимости 1м2 b хранить в отдельных ячейках; •величину повышающего коэффициента k для домов разных категорий задать в таблицесправочнике.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
pchehov77
18.05.2020 17:44
Var mas:array[1..100,1..100] of integer; 
           N,M,D,N2,i,C,j,M2,k:integer; 
begin
N:=0;D:=0;k:=0;
write('Введите N = ');Readln(N);
write('Введите M = ');Readln(M);  
For i:= 1 to M do begin         
     M2:=1;        
        For N2:=i downto 1 do begin                 
                 if M2<=N then begin         
                       mas[M2,N2]:=k;                   
                       k:=k+1;                 
                       M2:=M2+1;          
                  end;            
               end;   
        end;          
 //после побочной диагонали    
For D:=2 to N do begin   
      M2:=D;         
              For N2:=M downto 1 do begin                  
                    IF (M2<=N) and (N2<=M) then begin           
                              mas[M2,N2]:=k;                   
                              k:=k+1;                   
                            M2:=M2+1;                
                     end;         
           end;         
end;       
    For i:=1 to N do begin Writeln();         
           for j:=1 to M do                
          write(mas[i,j],'    ');    
       end;  
end.
0,0(0 оценок)
Ответ:
дюха4004
21.04.2023 09:42
//Dev C++ 4.9.9.2
//Знаю, что старьё

//1
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main(){
 srand ( time(NULL) );
  int ar[10];
 int k;
 k=0;
 for(int i=0;i<10;i++){
         ar[i]=rand()%10-3;
         cout<<ar[i]<<endl;
         if((ar[i]%2==0) && (ar[i]>0))
          k++;
          }
 cout<<"Result:"<<k;
 cin.get();
 cin.get();
 return 0;
   }

//2
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main(){
 srand ( time(NULL) );
  int ar[10];
 int k1,k2;
 double r1,r2;
 k1=0;
 k2=0;
 r1=0;
 r2=0;
 for(int i=0;i<10;i++){
         ar[i]=rand()%100;
         cout<<ar[i]<<endl;
         if(ar[i]<10){
          k1++;
          r1=r1+ar[i];} else {
          k2++;
          r2=r2+ar[i];
          }
          }
 r1=r1/k1;
 r2=r2/k2;
 cout<<"<10: "<<r1<<endl;
 cout<<">=10: "<<r2<<endl;
 cin.get(); 
 cin.get();
 return 0;
   }
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота