Желательно с комментариями.) - Pascal ABC - Ответ 12320480

@Апостол Андрей · Регистрация: 04.04.2018

Студворк — интернет-сервис помощи студентам

1. Тема "Записи". Решение задач с применением пользовательского типа Запись
Багаж пассажира характеризуется количеством мест и их общим весом.
- Вывести фамилию пассажира, в чьём багаже средний вес места отличается от среднего веса места в суммарном багаже всех пассажиров не более чем на 0,3 кг.
- Найти число пассажиров, в чьём багаже более двух мест.
- Найти число пассажиров, количество вещей у которых превосходит среднее количество мест в суммарном багаже всех пассажиров.

2. Тема "Задания ГРАФ". Создание графических изображений
Нарисовать и закрасить пятиугольник. Предусмотреть возможность ввода координат вершин с клавиатуры.

3. Решить задачу, используя процедуру, функцию
В текстовом файле А записана квадратная матрица. Проверить, является ли она магическим квадратом. Ответ записать в текстовый файл В.

4. Решение задач по теме «Обработка массивов»
Дан одномерный массив чисел, состоящий только из нулей и единиц.
Последовательность из не менее чем K рядом стоящих единиц называется "K-батареей". Для K = 2, 3, 4, 5 подсчитать количество K-батарей. Исходный массив записан в текстовом файле input.txt. Ответ вывести в файле output.txt

5. Решение задач по теме «Обработка строк»
Описать функцию WordK(S, K) строкового типа, возвращающую K-е слово строки S (словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше K, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки S слова с данными номерами K1, K2, K3.

6. Решить задачу, используя процедуру, функцию
Описать рекурсивную функцию Fib(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи (N — целое число). Последовательность Фибоначчи определяется законом: F1 = F2 = 1, FK = FK–2 + FK–1, K = 3, 4, … . С помощью этой функции найти пять чисел Фибоначчи с данными номерами, и вывести эти числа вместе с количеством рекурсивных вызовов функции Fib1, потребовавшихся для их нахождения.

Вернуться к обсуждению:
Желательно с комментариями.) Pascal ABC

Следующий ответ

Другие темы раздела
Pascal ABC Проверить, выполняется ли условие для всех элементов последовательности https://www.cyberforum.ru/ pascalabc/ thread2231561.html Помогите решить задачу. Через счётчик у меня никак не выходит ( //Ограничение времени - 1 секунда //Ограничение памяти - 64Mb //Ввод - стандартный ввод или input.txt //Вывод - стандартный вывод или output.txt Назовём последовательность A из n элементов красивой, если для всех 2=<i=<n-1 выполняется условие Ai=(Ai+1 +Ai-1)/2. (ну и проверить желательно) На вывод yes или no	Pascal ABC Program1.pas(34) : Встречено 'begin', а ожидался идентификатор 34 строка uses GraphABC, events; var a,i: integer; B:array of string; // B - это массив для пунктов меню //------------------------------------------------- procedure menu(a: integer); // процедура для вывода меню var i:integer; begin for i:=1 to 6 do begin setfontsize(10);
Pascal ABC Можно ли выстроить заданные числа в отрезок арифметической прогрессии https://www.cyberforum.ru/ pascalabc/ thread2231417.html Задача: Задана последовательность натуральных чисел из диапазона . Необходимо определить: можно ли выстроить эти числа в отрезок арифметической прогрессии. При необходимости порядок чисел в последовательности можно изменять.	Pascal ABC На что можно заменить random в данной программе? https://www.cyberforum.ru/ pascalabc/ thread2231365.html Помогите пожалуйста...На что можно заменить random в данной программе? const n=10; type mas = array of integer; procedure init(var ar: mas; n: integer); var i,j: integer; begin
Pascal ABC Строки. Найти произведение первой, средней и последней цифр С клавиатуры вводится длинное целое число, которое имеет не менее 50 цифр. Найти произведение первой, средней и последней цифр. Вот собственно 1 и 3 цифры я сделал, а среднюю не могу, т.к. l не хочет делится на 2. PROGRAM zadanie_3; Var t,x,y,b :String; l,z,h,c,cod,s:Integer; BEGIN Writeln('Ввести текст'); Readln(t);	Pascal ABC Баги в PascalABC https://www.cyberforum.ru/ pascalabc/ thread2231095.html Какие Вы знаете баги PascalABC и насколько их меньше по сравнению с количеством багов в PascalABC.Net?
Pascal ABC Анимация "Подмигивающий глаз" https://www.cyberforum.ru/ pascalabc/ thread2230895.html Учусь, проба пера с трудом. Не могу понять , как совместить несколько циклов (подпрограмм). Ткните носом, где косяки! // рисуем program Grafika; uses GraphABC; begin begin LockDrawing;	Pascal ABC Задача на вложенные циклы Помогите сделать ! У Андрея и Бори было 11 орехов. У Андрея и Вовы – 12 орехов. У Во-вы и Бори – 13 орехов. Сколько всего было орехов у мальчиков? Я знаю решение арифметическое, но не могу никак его под вложенные циклы подстроить(
Pascal ABC В целочисленной матрице расположить элементы каждого столбца заданным образом Составить программу на языке Паскаль в соответствии с принципом модульности. Для заданной целочисленной матрицы расположить элементы каждого столбца таким образом, чтобы четные предшествовали нечетным без изменения порядка следования элементов одной четности. Использовать подпрограмму сортировки элементов одномерного целочисленного массива. https://www.cyberforum.ru/ pascalabc/ thread2230820.html	Pascal ABC Найти элементы массивы, содержащие минимальные значения https://www.cyberforum.ru/ pascalabc/ thread2230819.html Здравствуйте, вот код: var a,b: array of integer; x, i, m,ts,j,t1,t2,p,s,min: integer; begin write('Введите кол-во домов: '); readln(m); write('Введите расстояние между домами: '); readln(x); a := 0; writeln('Расстояния от первого дома');
Какую задачу можно составить в графике на двумерный массив? Pascal ABC Какую задачу можно составить в графике на двумерный массив и как ее решить?	Pascal ABC Расположить элементы каждого столбца матрицы так, чтобы четные предшествовали нечетным Составить схему алгоритма и программы на языке Паскаль в соответствии с принципом модульности. Для заданной целочисленной матрицы расположить элементы каждого столбца таким образом, чтобы четные предшествовали нечетным без изменения порядка следования элементов одной четности. Использовать подпрограмму сортировки элементов одномерного целочисленного массива. https://www.cyberforum.ru/ pascalabc/ thread2230712.html

@Апостол Андрей 0 / 0 / 0 Регистрация: 04.04.2018 Сообщений: 12
		0
	Желательно с комментариями.) - Pascal ABC - Ответ 12320480 19.04.2018, 10:28. Показов 676. Ответов 1 Метки (Все метки) 1. Тема "Записи". Решение задач с применением пользовательского типа Запись Багаж пассажира характеризуется количеством мест и их общим весом. - Вывести фамилию пассажира, в чьём багаже средний вес места отличается от среднего веса места в суммарном багаже всех пассажиров не более чем на 0,3 кг. - Найти число пассажиров, в чьём багаже более двух мест. - Найти число пассажиров, количество вещей у которых превосходит среднее количество мест в суммарном багаже всех пассажиров. 2. Тема "Задания ГРАФ". Создание графических изображений Нарисовать и закрасить пятиугольник. Предусмотреть возможность ввода координат вершин с клавиатуры. 3. Решить задачу, используя процедуру, функцию В текстовом файле А записана квадратная матрица. Проверить, является ли она магическим квадратом. Ответ записать в текстовый файл В. 4. Решение задач по теме «Обработка массивов» Дан одномерный массив чисел, состоящий только из нулей и единиц. Последовательность из не менее чем K рядом стоящих единиц называется "K-батареей". Для K = 2, 3, 4, 5 подсчитать количество K-батарей. Исходный массив записан в текстовом файле input.txt. Ответ вывести в файле output.txt 5. Решение задач по теме «Обработка строк» Описать функцию WordK(S, K) строкового типа, возвращающую K-е слово строки S (словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше K, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки S слова с данными номерами K1, K2, K3. 6. Решить задачу, используя процедуру, функцию Описать рекурсивную функцию Fib(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи (N — целое число). Последовательность Фибоначчи определяется законом: F1 = F2 = 1, FK = FK–2 + FK–1, K = 3, 4, … . С помощью этой функции найти пять чисел Фибоначчи с данными номерами, и вывести эти числа вместе с количеством рекурсивных вызовов функции Fib1, потребовавшихся для их нахождения. Вернуться к обсуждению: Желательно с комментариями.) Pascal ABC Следующий ответ 0