Помогите написать код на Паскаль.

Question

Помогите написать код на Паскаль.

vadim kosurin Профи (770), открыт 2 недели назад

Answer 1

Ярослав Хакимов Мыслитель (6737) 2 недели назад

чат гпт тебе в помощь

Answer 2

program task;

var
f: text;
n, i, sum, count, weight: integer;
name: string;
passengers: array[1..1000] of record
name: string;
count: integer;
weight: integer;
end;

begin
// 1. Считываем данные из файла
assign(f, 'data.txt');
reset(f);
readln(f, n);
sum := 0;
for i := 1 to n do begin
readln(f, i);
if i mod 2 = 1 then
sum := sum + i;
end;
close(f);
writeln('Сумма нечетных чисел: ', sum);

// 2. Считываем типизированный файл данных
assign(f, 'data.txt');
reset(f);
readln(f, n);
for i := 1 to n do begin
readln(f, passengers[i].name, passengers[i].count, passengers[i].weight);
end;
close(f);

// Считаем количество пассажиров с багажом из двух и более вещей
count := 0;
for i := 1 to n do begin
if passengers[i].count >= 2 then
count := count + 1;
end;
writeln('Количество пассажиров с багажом из двух и более вещей: ', count);

// Проверяем, есть ли два пассажира с одинаковым весом багажа
weight := 0;
for i := 1 to n do begin
for j := i + 1 to n do begin
if passengers[i].weight = passengers[j].weight then begin
writeln('Есть два пассажира с одинаковым весом багажа');
weight := 1;
break;
end;
end;
if weight = 1 then
break;
end;
if weight = 0 then
writeln('Нет двух пассажиров с одинаковым весом багажа');

end.

Пример файла data.txt для первого задания:
5
1
2
3
4
5

Пример файла data.txt для второго задания:
5
Иванов 1 20
Петров 3 15
Сидоров 2 10
Кузнецов 4 25
Смирнов 1 15

Запуск программы:
1. Сохраните код в файле task.pas.
2. Запустите компилятор Pascal и скомпилируйте файл task.pas.
3. Запустите скомпилированный файл.
Программа выведет результаты выполнения заданий.

Answer 3

Задание 1. Программа, которая построит файл с псевдослучайными целыми числами типа integer (двухбайтные знаковые):

 program CreateIntegerFile;

const
    FileName = 'integer_file.bin';
    NumberOfRecords = 512;
    MaxValue = 1000;

var
    IntFile: file of integer;
    i: integer;

begin
    randomize;
    assign(IntFile, FileName);
    rewrite(IntFile);
    for i := 1 to NumberOfRecords do
        write(IntFile, random(MaxValue+1));
    close(IntFile)
end.

Количество чисел и максимальное значение числа задаётся константами NumberOfRecords и MaxValue соответственно. Имя файла, который будет создан, задаётся константой FileName.

Сумму нечётных чисел в файле, созданном предыдущей программой, позволит найти следующая программа:

 program CalcSumOfOddIntegers;

const
    FileName = 'integer_file.bin';
 
var
    IntFile: file of integer;
    sum: int64 = 0;
    n: integer;

begin
    assign(IntFile, FileName);
    reset(IntFile);
    while not eof(IntFile) do
    begin
        read(IntFile, n);
        if n mod 2 <> 0 then
            sum := sum + n
    end;
    close(IntFile);
    writeln('Sum of odd integers: ', sum)
end.

Путь к файлу можно задать в константе FileName, которая по умолчанию содержит имя файла, который должен находиться в одном рабочем каталоге (папке) с данной программой (вернее, с её исполняемым файлом, который вы запускаете): для этого можно либо запускать обе программы в одном каталоге, либо скопировать файл, созданный первой программой, в каталог, где запускается вторая программа, ну или, например, задать в обоих программах одинаковый абсолютный путь к файлу в константе FileName, например, так:

     FileName = 'C:\Users\UserName\Desktop\integer_file.bin'

Задание 2 не помещается в ответ, см. в комментариях.

Answer 4

Polo TV Куракин Гуру (3046) 2 недели назад

Ты учился, ты и пиши!

Answer 5

Here is a Pascal program that addresses both parts of the given task:

### Part 1: Sum of Odd Numbers in a Data File
```pascal
program SumOddNumbers;
var
f: text;
number, sum: integer;
begin
assign(f, 'data.txt'); // Replace 'data.txt' with the name of your data file
reset(f);
sum := 0;
while not eof(f) do
begin
readln(f, number);
if number mod 2 <> 0 then
sum := sum + number;
end;
close(f);
writeln('The sum of odd numbers is: ', sum);
end.
```

### Part 2: Passenger Data File
```pascal
program PassengerData;
type
Passenger = record
surname: string[50];
baggageCount: integer;
baggageWeight: integer;
end;

var
f: file of Passenger;
p: Passenger;
count, i: integer;
weights: array[1..100] of integer; // Adjust size as needed
baggageWeights: array[1..100] of integer;
found: boolean;

begin
assign(f, 'passengers.dat'); // Replace 'passengers.dat' with the name of your data file
reset(f);
count := 0;
i := 0;
found := false;

while not eof(f) do
begin
read(f, p);
if p.baggageCount >= 2 then
inc(count);
inc(i);
baggageWeights[i] := p.baggageWeight;
end;
close(f);

writeln('Number of passengers with two or more baggage items: ', count);

// Check for passengers with the same baggage weight
for i := 1 to High(baggageWeights) - 1 do
begin
for count := i + 1 to High(baggageWeights) do
begin
if (baggageWeights[i] = baggageWeights[count]) and (baggageWeights[i] <> 0) then
begin
found := true;
break;
end;
end;
if found then
break;
end;

if found then
writeln('There are at least two passengers with the same baggage weight.')
else
writeln('No two passengers have the same baggage weight.');
end.
```

### Instructions:
1. **Part 1**: This program reads a text file `data.txt` line by line, checks if the number is odd, and sums up the odd numbers.
2. **Part 2**: This program reads records from a binary file `passengers.dat` where each record contains a passenger's surname, baggage count, and baggage weight. It counts passengers with two or more baggage items and checks if there are at least two passengers with the same baggage weight.

Make sure to create and populate the data files (`data.txt` for the first part and `passengers.dat` for the second part) accordingly. Adjust the file paths and array sizes as needed.

Answer 6

fiftynine Просветленный (23549) 1 неделю назад

ладно, а ты нам что