|
|
| Другие темы раздела | ||||||||||||||||||
|
Turbo Pascal Рассчитать сумму первых N членов арифметической прогрессии
https://www.cyberforum.ru/ turbo-pascal/ thread1479563.html 1)Рассчитать сумму "S" первых N членов арифметической прогрессии A1, A2, . . . , AN по формуле: S= (A1 + AN)*N/2. A1, AN, N - исходные данные 2)Рассчитать сумму "S" первых N членов ряда геометрической прогрессии B1, B2, . . . , BN по формуле: S= (B1 - BN*Q)/(1-Q). BN =B1 *QN. B1, Q - исходные данные. |
Вывести на экран таблицу перевода из градусов по шкале Цельсия в градусы по Фаренгейту Turbo Pascal 1)Вывести на экран таблицу перевода из градусов по шкале Цельсия в градусы по Фаренгейту для значений от 15С до 30С с шагом в 1С. Перевод осуществляется по формуле: F=C*1.8+32. Program zf; Var i:integer; f:real; Begin Writeln(‘Температура’); For i:=15 to 30 do Begin F:=i*1.8+32; Writeln(‘по Цельсию’, i, ‘по Фаренгейту’, f:5:2); | |||||||||||||||||
|
Turbo Pascal Указать номер покупателя, для обслуживания которого продавцу потребовалось наименьшее время
https://www.cyberforum.ru/ turbo-pascal/ thread1479549.html Помогите с курсачем, завтра завтра последний срок, а я только очнулся... Возле прилавка в магазине в очереди n количество человек. Время обслуживания покупателя под номером i, равно t. (i=1,2,3,...,n). Получить С,С,С,...,С, где С -время пребывания в очереди. Указать номер покупателя, для обслуживания которого продавцу потребовалось наименьшее время. |
Turbo Pascal Сформировать матрицу по правилу Нужно сформировать матрицу N8, как сделать чтобы с определенного числа спускалось до нуля и обратно? Оформить процедуру формирования матрицы T по ее внешнему виду для любого заданного порядка n (для некоторых заданий порядок должен быть нечетным) T=\begin{pmatrix} 3 & 2 & 1 & 2 & 3\\ 2 & 1 & 0 & 1 & 2\\ 1 & 0 & 0 & 0 & 1\\ 2 & 1 & 0 & 1 & 2\\ 3 & 2 & 1 & 2 & 3 https://www.cyberforum.ru/ turbo-pascal/ thread1479538.html | |||||||||||||||||
|
Скопировать данную строку в конец файла Turbo Pascal Составьте текстовый файл p разбитый на не пустые строки. Составьте программу копирования данной строки в конце файла. Срочно нужна Заранее огромное спасибо |
Turbo Pascal Найти и вывести на экран сумму чётных элементов в матрице
https://www.cyberforum.ru/ turbo-pascal/ thread1479459.html Помогите пожалуйста( Организовать заполнение целочисленного двумерного массива E, размерностью 3x4 . Найти и вывести на экран количество положительных элементов матрицы. Найти и вывести на экран сумму чётных элементов в матрице E. Найти и вывести на экран произведение элементов кратных числу 7 в предпоследнем столбце матрицы. Заменить все элементы матрицы на найденную сумму. Вывести на экран... | |||||||||||||||||
|
Turbo Pascal Определить, попадают ли точки с заданными координатами в заданную область
https://www.cyberforum.ru/ turbo-pascal/ thread1479273.html PASCAL С клавиатуры вводятся: N – количество пробных точек; Xi – абсцисса пробной точки; Yi – ордината пробной точки; Ri – параметр. Результаты вычислений вывести в виде таблицы, состоящей из трех столбцов: значений координат пробных точек (Xi и Yi) и соответствующих им исходов опыта («Попала» или «Не попала»). Таблица должна иметь заголовочную строку. Должна быть реализована возможность... |
Turbo Pascal Найти среднее арифметическое кодов элементов главной диагонали Добрый вечер форумчани Нужно оформить код программы с помощью процедур(сортировку) и функции(среднее арифметическое кодов элементов главной диагонали), а так же вывести в текстовый файл элементы главной диагонали матрицы PROGRAM Matrica; USES CRT; VAR n,m:integer; Mtx:ARRAY OF CHAR; i,j,k:INTEGER; Q:CHAR; ... | |||||||||||||||||
|
Turbo Pascal Отсортировать массив методом выбора в порядке возрастания
https://www.cyberforum.ru/ turbo-pascal/ thread1479065.html Дан массив целых чисел А . Отсортировать их методом выбора в порядке возрастания . Вычислить среднее арифметическое чисел кратных 5 . Вывести на экран отсортированный массив и вычисленное значение. |
Turbo Pascal Есть массив из 20 чисел, нужно вывести в одну строчку числа которые повторялись, а в другую неповторяющиеся Есть массив из 20 чисел, нужно вывести в одну строчку числа из этого массива которые повторялись, а в другую которые не повторялись.Вот программа которую надо переделать: uses crt; var A:array of integer; d,j,i:integer; begin clrscr; for i:=1 to 20 do begin A:=random(21)-10; write(A:4) https://www.cyberforum.ru/ turbo-pascal/ thread1478824.html | |||||||||||||||||
|
Нарисовать матрешку Turbo Pascal Задание:Составить программы для предложенных заданий с использованием модулей,отладить их и сохранить. Задание: 1.Разбить программу на части 2.Определить какие части можно сделать процедурой 3.Составить программу |
Turbo Pascal Из пяти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один (через repeat)
https://www.cyberforum.ru/ turbo-pascal/ thread1478785.html из 5-ти заданн
Наверх
| |||||||||||||||||
