yanaqwe
06.06.2022 18:06

решить задание по информатике за ❤️​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ильдар1234567890п
09.07.2022 13:16

его можно загрузить с 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);

}

}

 

Объяснение:

0,0(0 оценок)
Ответ:
shikunovnikitkp00sz1
17.02.2020 05:01
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366
Составьте алгоритм определения числа дней между двумя датами и нарисуйте блок-схему. , кто разбирает
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота