Списки. Язык Си 1. Создать список из n (n> 0) элементов (n вводится с клавиатуры), если другое
количество элементов не указано в конкретной задаче.
2. Тип ключей (информационных полей) задано по варианту.
3. Значение элементов списка взять самостоятельно такими, чтобы можно было продемонстрировать корректность работы алгоритма программы. ввод значений элементов списка можно выполнить произвольным (случайные числа, формирование значений по формуле, введение из файла или с клавиатуры).
4. Вид списка (очередь, стек, дек, прямой односвязный линейный список,
обратный односвязный линейный список, двозвьязний линейный список,
односвязный кольцевой список, двозвьязний кольцевой список) выбрать
самостоятельно с целью наиболее целесообразного решения поставленной по варианту задачи.
5. Выполнить над созданным списком действия, указанные по варианту, и корректное освобождения памяти списка.
6.(Важно) При выполнении заданных действий, выводе значений элементов и освобождении памяти списке считать, что длина списка (количество элементов n или 2n) неизвестна на момент выполнения этих действий.
7. Повторяющиеся части алгоритма необходимо оформить в виде процедур или
функций (для создания, обработки, вывода и освобождения памяти списков) с
передачей списка с параметра(ов).

Перевод условия задачи:
Ключами элементов списка являются целые числа. Выполнить циклический сдвиг элементов списка на k позиций вправо (k - натуральное и не превышает количества элементов списка). При необходимости разрешается использовать еще один список, другие структуры данных, кроме простых переменных, использовать запрещается.

Списки. Язык Си 1. Создать список из n (n> 0) элементов (n вводится с клавиатуры), если другое ко

👇

Открыть все ответы

Ответ:

артём0092

05.02.2023

Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;

    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;

    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;

    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;

    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;

    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;

    writeln(s);
end.

4,5(28 оценок)

Ответ:

Ева433

05.02.2023

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот

Садекватным объяснением! 1) дан фрагмент программы: var s: string[6]; n: integer; begin s: ='отлично