Type Route = record station: string[30]; arrival: string[5]; stop: string[5]; cost: real end;
{ Программа для заполнения данными файла } { var F: file of Route; r: Route;
begin writeln('Вводите данные'); writeln(''); Assign(F, 'Route.dat'); Rewrite(F); with r do repeat write('Населенный пункт (*-завершить): '); readln(station); if (station <> '*') then begin write('Время прибытия чч:мм '); readln(arrival); write('Стоянка чч:мм: '); readln(stop); write('Стоимость проезда, руб.коп: '); readln(cost); write(F, r); end until station = '*'; Close(F) end. }
{ Программа для работы с заполненным файлом }
function hhmm2Int(s: string): integer; {переводит время чч:мм в челое число минут} var i, j, ierr: integer;
begin Val(Copy(s, 1, 2), j, ierr); if ierr = 0 then i := 60 * j else i := 0; Val(Copy(s, 4, 2), j, ierr); if ierr = 0 then i := i + j; Result := i end;
var F: file of Route; F2:Text; r: Route; i, ierr, istop, n: integer; s: string; cstop: real;
begin Assign(F, 'Route.dat'); Reset(F); n := 0; cstop:=0; while not Eof(F) do begin read(F, r); istop := hhmm2Int(r.stop); if istop > 0 then begin cstop:=cstop+istop; n := n + 1 end end; cstop := cstop / n; Reset(F); Assign(F2,'screen.dat'); Rewrite(F2); writeln('Населенные пункты, в которых стоянка дольше средней'); writeln(F2,'Населенные пункты, в которых стоянка дольше средней'); writeln('Населенный пункт Прибытие Стоянка,мин Стоимость'); writeln(F2,'Населенный пункт Прибытие Стоянка,мин Стоимость'); with r do while not Eof(F) do begin read(F, r); istop := hhmm2Int(stop); if istop > cstop then begin writeln(station:18, ' ', arrival, ' ', stop, ' ', cost:7:2); writeln(F2,station:18, ' ', arrival, ' ', stop, ' ', cost:7:2); end; end; Close(F); Close(F2) end.
ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.
его можно загрузить с 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);
}
}
Объяснение:
Route = record
station: string[30];
arrival: string[5];
stop: string[5];
cost: real
end;
{ Программа для заполнения данными файла }
{
var
F: file of Route;
r: Route;
begin
writeln('Вводите данные');
writeln('');
Assign(F, 'Route.dat');
Rewrite(F);
with r do
repeat
write('Населенный пункт (*-завершить): ');
readln(station);
if (station <> '*') then
begin
write('Время прибытия чч:мм ');
readln(arrival);
write('Стоянка чч:мм: ');
readln(stop);
write('Стоимость проезда, руб.коп: ');
readln(cost);
write(F, r);
end
until station = '*';
Close(F)
end.
}
{ Программа для работы с заполненным файлом }
function hhmm2Int(s: string): integer;
{переводит время чч:мм в челое число минут}
var
i, j, ierr: integer;
begin
Val(Copy(s, 1, 2), j, ierr);
if ierr = 0 then i := 60 * j else i := 0;
Val(Copy(s, 4, 2), j, ierr);
if ierr = 0 then i := i + j;
Result := i
end;
var
F: file of Route;
F2:Text;
r: Route;
i, ierr, istop, n: integer;
s: string;
cstop: real;
begin
Assign(F, 'Route.dat');
Reset(F);
n := 0;
cstop:=0;
while not Eof(F) do
begin
read(F, r);
istop := hhmm2Int(r.stop);
if istop > 0 then
begin
cstop:=cstop+istop;
n := n + 1
end
end;
cstop := cstop / n;
Reset(F);
Assign(F2,'screen.dat');
Rewrite(F2);
writeln('Населенные пункты, в которых стоянка дольше средней');
writeln(F2,'Населенные пункты, в которых стоянка дольше средней');
writeln('Населенный пункт Прибытие Стоянка,мин Стоимость');
writeln(F2,'Населенный пункт Прибытие Стоянка,мин Стоимость');
with r do
while not Eof(F) do
begin
read(F, r);
istop := hhmm2Int(stop);
if istop > cstop then
begin
writeln(station:18, ' ', arrival, ' ', stop, ' ', cost:7:2);
writeln(F2,station:18, ' ', arrival, ' ', stop, ' ', cost:7:2);
end;
end;
Close(F);
Close(F2)
end.
ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.