<em>ВАЖНО!</em> Прикрепленные файлы на самом деле не текстовые, а двоичные, но таковые данная система не позволяет прикрепить. Поэтому не стоит пытаться эти файлы читать.
<u>Для работы программы следует переименовать файлы в file1.bin и file2.bin</u>
<u>Содержимое файла f1</u>
7696 163 67
9195 183 71
1922 174 77
4586 173 68
4611 164 64
4204 164 60
8914 178 62
1102 162 63
4947 184 63
6185 174 79
<u>Содержимое файла f2</u>
4611 287 4
1102 312 3
9195 220 12
3142 251 7
8914 229 9
7696 252 7
1922 245 5
4204 273 6
4586 241 10
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
st1=record
номер:integer;
рост:integer;
вес:integer
end;
st2=record
номер:integer;
время_бега:integer;
кол_подтягиваний:integer
end;
st3=record
номер:integer;
рост:integer;
вес:integer;
время_бега:integer;
кол_подтягиваний:integer
end;
begin
// считываем файл f1 в массив типа st1
var f1:file of st1;
Assign(f1,'file1.bin'); Reset(f1);
var n1:=FileSize(f1);
var m1:=new st1[n1];
for var i:=0 to n1-1 do Read(f1,m1[i]);
f1.Close;
// читаем файл f2 и для каждой записи ищем элемент массива
// с таким же номером. Если найден - делаем слияние в файл f3
var f2:file of st2;
Assign(f2,'file2.bin'); Reset(f2);
var buf2:st2; // буфер для чтения f2
var f3:file of st3;
Assign(f3,'file3.bin'); Rewrite(f3);
var buf3:st3; // буфер для записи f3
while not Eof(f2) do begin
Read(f2,buf2);
var j:=m1.FindIndex(t->t.номер=buf2.номер);
if j<>-1 then begin
buf3.номер:=buf2.номер;
buf3.рост:=m1[j].рост;
buf3.вес:=m1[j].вес;
buf3.время_бега:=buf2.время_бега;
buf3.кол_подтягиваний:=buf2.кол_подтягиваний;
Write(f3,buf3)
end
end;
f2.Close;
// посмотрим, что получилось в f3
Seek(f3,0);
while not Eof(f3) do begin
Read(f3,buf3); Print(buf3)
end;
f3.Close
end.
<u>Пример работы программы</u>
(4611,164,64,287,4) (1102,162,63,312,3) (9195,183,71,220,12) (8914,178,62,229,9) (7696,163,67,252,7) (1922,174,77,245,5) (4204,164,60,273,6) (4586,173,68,241,10)
Смотри хороший сайт_pascal.helpov.net
Ответ:
Объяснение:
Формула считает, принадлежит ли число к диапазону чисел от 5 до 10 включительно.
B1 - принадлежит.
В2 - Принадлежит.
В3 - Нет
В4 - нет
В5 - нет
В6 - нет
В7 - принадлежит
В8 (считает, сколько в столбце В слова "приналдежит") - 3
В9 (считает, сколько в столбце В слова "нет") - 4
#!/bin/bash
FILE=$1
if [ ! -f "$FILE" ]
then
echo "$FILE не существует"
echo "" > $FILE
echo "$FILE создан"
else
echo "$FILE существует"
fi
Если не нужно выводить сообщение о том, что файл не существует или файл создан, убери строчки echo "$FILE не существует" и echo "$FILE создан