Program Project2;
{$APPTYPE CONSOLE}
uses SysUtils,windows;constnMin=1;nMax=20;typemas=array[nMin..Nmax] of integer;
Vara:mas; i:integer;s:real;begin setconsoleCP(1251); setconsoleOutPutCp(1251); randomize;
for i:=1 to nMax doa[i]:=random(1000)-500;writeln ('Ìàññèâ:'); for i:=1 to nMax do beginwrite ('');write (a[i]:2);writeln ('');end;s:=0;for i:=1 to Nmax dobeginIf a[i]<0 thens:=s+a[i];end;writeln ('Ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ìàññèâà = ',s:2:2);readln;end.<span>
</span>
// ConsoleApplication4.cpp: определяет точку входа для консольного приложения.
//
#include "stdafx.h"
#include <iostream>
#include <string>
using namespace std;
class stud {
public:
void setname(string sname)
{
name = sname;
}
string getname()
{
return name;
}
string getsurname()
{
return surname;
}
void setsurname(string ssurname)
{
surname = ssurname;
}
void setscore(int sc[])
{
for (int i = 0; i<10; i++) score[i] = sc[i];
}
float getsr()
{
float sum = 0;
for (int i = 0; i<10; i++) sum += (float)score[i];
return sum / 10;
}
void showmyself()
{
cout << "Студент: " << name << " " << surname << endl;
cout << "Имеет 10 текущих оценок: ";
for (int i = 0; i < 10; i++) cout << score[i] << " ";
cout << "" << endl;
cout << "Его средний балл: " << getsr() << endl;
}
private:
string name;
string surname;
int score[10];
};
int main(int acgc, char* argv[])
{
setlocale(LC_ALL, "rus");
stud student1;
int score[10];
string name, surname;
cout << "Введите имя студента: "<<endl;
getline(cin, name);
cout << "Введите фамилию студента: " << endl;
getline(cin, surname);
cout << "введите 10 текущих оценок через пробел: " << endl;
for (int i = 0; i<10; i++) cin >> score[i];
student1.setname(name);
student1.setsurname(surname);
student1.setscore(score);
student1.showmyself();
system("pause");
}
Кодировка букв А и И нарушает условие Фано, поэтому буквы А/И не должны встречаться в слове, допускающем однозначное декодирование. Только в слове КОТ этих букв нет.
<u><em>Ответ:</em></u> 3) КОТ
1)В случаях когда надо показать отношения чего-то к чему-то
2)Они могут быть построены когда надо сравнить несколько данных и показать это наглядно
Можно через макрос VBA Excel
Sub
zapolnut()
For i = 1
To 100
Cells(i, 1)
= Rnd()
Cells(i, 2)
= 2 * Cells(i, 1)
Next i
End Sub