Списки. Язык Си 1. Создать список из n (n> 0) элементов (n вводится с клавиатуры), если другое количество элементов не указано в конкретной задаче. 2. Тип ключей (информационных полей) задано по варианту. 3. Значение элементов списка взять самостоятельно такими, чтобы можно было продемонстрировать корректность работы алгоритма программы. ввод значений элементов списка можно выполнить произвольным (случайные числа, формирование значений по формуле, введение из файла или с клавиатуры). 4. Вид списка (очередь, стек, дек, прямой односвязный линейный список, обратный односвязный линейный список, двозвьязний линейный список, односвязный кольцевой список, двозвьязний кольцевой список) выбрать самостоятельно с целью наиболее целесообразного решения поставленной по варианту задачи. 5. Выполнить над созданным списком действия, указанные по варианту, и корректное освобождения памяти списка. 6.(Важно) При выполнении заданных действий, выводе значений элементов и освобождении памяти списке считать, что длина списка (количество элементов n или 2n) неизвестна на момент выполнения этих действий. 7. Повторяющиеся части алгоритма необходимо оформить в виде процедур или функций (для создания, обработки, вывода и освобождения памяти списков) с передачей списка с параметра(ов).
Перевод условия задачи: Ключами элементов списка являются целые числа. Выполнить циклический сдвиг элементов списка на k позиций вправо (k - натуральное и не превышает количества элементов списка). При необходимости разрешается использовать еще один список, другие структуры данных, кроме простых переменных, использовать запрещается.
Zadacha_1; var a,b,c:integer; begin writeln (' введите число'); readln(a); b:=a mod 10; a:=a div 10; c:=a mod 10; a:=a div 10; if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть') else writeln('таких чисел нет'); end.
zadacha_2; var a:integer; begin writeln(' введите время в минутах'); readln(a); a:=a mod 10; if ((a >= 0) and (a <= 3)) or ((a > 5) and (a <= 8)) then writeln('зелёный'); if ((a > 3) and (a <= 5)) or ((a > 8) and (a < 0)) then writeln('жёлтый'); end.
1. SELECT Перевозки.ДатаОтгрузки, Перевозки.НомерВагона, Перевозки.КодГруза, Перевозки.Стоимость, Перевозки.ДатаВозвратаВагона FROM Перевозки WHERE (((Month([ДатаОтгрузки]))>=1 And (Month([ДатаОтгрузки]))<7) AND ((Year([ДатаОтгрузки]))=Year(Date())-1)) ORDER BY Перевозки.ДатаОтгрузки, Перевозки.НомерВагона;
2. SELECT DISTINCTROW НаименованиеГруза.Наименование, Avg(Перевозки.Стоимость) AS [Avg-Стоимость], Year([Перевозки]![ДатаОтгрузки]) AS [Год отгрузки] FROM НаименованиеГруза INNER JOIN Перевозки ON НаименованиеГруза.Код = Перевозки.КодГруза GROUP BY НаименованиеГруза.Наименование, Year([Перевозки]![ДатаОтгрузки]), Перевозки.КодГруза;
3. не знаю как срок считать
4. SELECT DISTINCTROW Sum(Перевозки.Стоимость) AS [ОбщаяСтоимость перевозок за период] FROM Перевозки HAVING (((Перевозки.ДатаОтгрузки) Between [:d1] And [:d2]));
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
