Нужно написать программу в Pascal.Нужно будет считать информацию с двух файлов и объединить их в один файл. В первом файле есть
Нужно написать программу в Pascal. Нужно будет считать информацию с двух файлов и объединить их в один файл. В первом файле есть 3 столбца: 1. Четырехзначный номер 2. Рост 3. Вес Во втором файле также 3 столбца: 1. Четырехзначный номер 2. Время бега на 1 км 3. Колличество подтягиваний Нужно написать программу которая будет считывать данные с двух файлов и будет создавать 3ий файл, в котором программа объединит все данные в соответствии с номером. PascalABC.NET 3.1
<em>ВАЖНО!</em> Прикрепленные файлы на самом деле не текстовые, а двоичные, но таковые данная система не позволяет прикрепить. Поэтому не стоит пытаться эти файлы читать.
<u>Для работы программы следует переименовать файлы в file1.bin и file2.bin</u>
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.
Задание напиши полностью, как понимать натуральные числа N и M? Может множество чисел? Они должны рандомно задаваться или они уже даны?
Что бы проверить кратность числа:
if (N % 4 == 0) { cout>>"год высокосный! "; } else cout>>"год не высокосный";
В случае если у тебя есть множество чисел N и M создаешь массив и перед проверкой условия пихаешь цикл по этим массивам. А вообще напиши полностью задание.
1. Отметим, что оба получающихся числа независимы друг от друга, поскольку первое строится из нечетных цифр исходного пятизначного числа, а правое - из четных. 2. Первое число - сумма трех цифр, следовательно его величина может быть в пределах от 0+0+0=0 до 9+9+9=27. Второе число - сумма двух цифр, поэтому его величина может быть в пределах от 0+0=0 до 9+9=18. На этом основании бракуем все числа, у которых вторая цифра больше 27 и/или первая цифра больше 18. Таким образом вычеркиваем 1030, 2019, 1920, 3010. 3. 40 - не подходит (4,0), нарушен порядок неубывания, 130 - не подходит (13,0), 1320 - (13,20) - подходит, нарушен порядок неубывания, 2013 - не подходит (20,13), нарушен порядок неубывания, 213 - подходит (2,13). Ответ: 2 числа.