Що таке величина та які властивості вона має реферат з інформатики

1. Программа, создающая файл

var
  f:file of integer;
  i,k:integer;
begin
  Randomize;
  Assign(f,'in.dat'); Rewrite(f);
  for i:=1 to 20 do begin
    k:=Random(99)+1;
    Write(f,k)
    end;
  Close(f)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13

2. Основная программа

uses Crt;
const
  nn=100;
var
  i,j,k,n:integer;
  fin,fout:file of integer;
  a:array[1..nn] of integer;
  dub:boolean;
begin
  ClrScr;
  Assign(fin,'in.dat'); Reset(fin);
  Read(fin,k);
  if not eof(fin) then begin
    n:=1; Write(k,' '); a[n]:=k
    end
  else n:=0;
  while (not eof(fin)) and (n<=nn) do begin
    Read(fin,k); Write(k,' ');
    j:=1; dub:=false;
    while (j<=n) and (not dub) do begin
      dub:=(a[j]=k); Inc(j);
      end;
    if not dub then begin Inc(n); a[n]:=k; Inc(j) end
    end;
  Writeln;
  Close(fin);
  for i:=1 to n do Write(a[i],' ');
  Writeln; Writeln('n=',n);
  Assign(fout,'out.dat'); Rewrite(fout);
  Write(fout,n); Close(fout);
  ReadKey
end.

Тестовое решение:
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fin,fout:file of integer;
  Reset(fin,'in.dat');
  var k:integer;
  var a:=new integer[fin.FileSize];
  var n:=0;
  while not eof(fin) do begin
    Read(fin,k); a[n]:=k; Inc(n)
    end;
  Close(fin);
  a.Println;
  var b:=a.ToHashSet;
  b.Println; Writeln('n=',b.Count)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?

его можно загрузить с http://ardx.org/CODE06

(скопируйте текст и вставьте его в новое окно Arduino Sketch)

/* Мелодия

*(cleft) 2005 D. Cuartielles for K3

*В этом примере мы проигрываем мелодию с пьезоэлемента. Он посылает ШИМ-сигнал соответствующей

*частоты, в результате генерируется музыкальный тон.

*Вычисление требуемой задержки осуществляется с следующей формулы:

*

*timeHigh = period / 2 = 1 / (2 * toneFrequency)

*задержки задаются следующей таблицей:

*

 

 

 

 

* нота

частота (period)

timeHigh

 

* c

261

Hz

3830

1915

* d

294

Hz

3400

1700

* e

329

Hz

3038

1519

* f

349

Hz

2864

1432

* g

392

Hz

2550

1275

* a

440

Hz

2272

1136

* b

493

Hz

2028

1014

* C

523

Hz

1912

956

*

 

 

 

 

* http://www.arduino.cc/en/Tutorial/Melody */

int speakerPin = 9;

int length = 15; // число нот

char notes[] = "ccggaagffeeddc "; // пробел представляет паузу int beats[] = { 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 4 }; int tempo = 300;

void playTone(int tone, int duration) {

for (long i = 0; i < duration * 1000L; i += tone * 2) { digitalWrite(speakerPin, HIGH); delayMicroseconds(tone);

digitalWrite(speakerPin,

LOW);

delayMicroseconds(tone);

}

}

void playNote(char note, int duration) {

char names[] = { 'c', 'd', 'e', 'f', 'g', 'a', 'b', 'C' }; int tones[] = { 1915, 1700, 1519, 1432, 1275, 1136, 1014, 956

};

// проигрывать тональность соответствующую названию ноты for (int i = 0; i < 8; i++) {

if (names[i] == note) { playTone(tones[i], duration);

}

}

}

void setup() { pinMode(speakerPin, OUTPUT);

}

void loop() {

 

for

(int i = 0; i < length; i++) {

if (notes[i] == ' ') {

 

delay(beats[i] * tempo); // пауза

}

else {

 

 

playNote(notes[i], beats[i] * tempo);

}

 

 

 

// пауза между нотами

delay(tempo / 2);

}

}

 

Объяснение: