|
|
Другие темы раздела | |
Turbo Pascal В процедуре неправильно выводится результат
https://www.cyberforum.ru/ turbo-pascal/ thread424757.html Процедура должна выводить сумму при вводе номера, но кроме суммы выводит еще что такого номера нет: if nom<>sh.plat then writeln('Такого расчетного счета нет'); не знаю как исправить, помогите пожалуйста! procedure output; var nom:string; begin writeln('Введите расчетный счет плательщика'); readln(nom); |
Turbo Pascal Двумерные массивы, сортировка Сделать 10ые номера. Кому не сложно. Буду очень благодаренКартинки загружайте на форум, во избежание их удаления или потери на сторонних ресурсах. |
Turbo Pascal Найти произведение элементов массива, расположенных между максимальным и минимальным
https://www.cyberforum.ru/ turbo-pascal/ thread424633.html Одномерные массивы. Помогите доделать Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами. Добавлено через 1 минуту Вот че получилось дальше не могу((( var a: array of real; i,nmax,nmin,s: integer; n, max,min: real; |
Turbo Pascal Задача вычисления площади Написать сценарий, который будет вычислять: 1. Площадь круга S = пи * R2 Где S — площадь круга, R — радиус круга. 2. Площадь сектора S = Ld * R/2 Где S — площадь сектора, R — радиус круга, Ld — длина дуги. 3. Площадь поверхности шара (сферы) https://www.cyberforum.ru/ turbo-pascal/ thread424632.html |
Исправьте ошибку в графике Turbo Pascal Исправьте пожалуйста ошибку в графике. Он когда строит, пишет "ошибка проверки диапазона". uses graph; const x1=-2;{начало и конец графика в реальных значениях} x2=2; function F(a,x:real):real; begin F:=a/(x*x); end; var a,b,mx,my,x,dx,y1,y2,y3,y4:real; |
Turbo Pascal Подсчет количества задаваемого слова в файле Программа считает слова только в одной строке, с нового абзаца она уже не считает.Подскажите где ошибка? program patnact; var prvni,druhy:string; hslovo,slovo:string; t1:text; ps,ch,c:char; p,i:integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread424584.html |
Turbo Pascal Додати 2 записи в конец внешнего файла Додати 2 записи в конец внешнего файла, сделаного в лабораторній работе 14 условие: Список абитуриентов, которые имеют средний бал атестата менше 4 прога с 14 лабы: TYPE student=record im,fam,otc,obsh:string; godsh,godroj:1950..2011; at:100..200; mat,ukr,fiz,ist:2..5; end; https://www.cyberforum.ru/ turbo-pascal/ thread424578.html |
Нужно объяснение решения Turbo Pascal Дана матрица размера M × N. Найти минимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию. Если упорядоченные строки в матрице отсутствуют, то вывести 0. |
Turbo Pascal Двумерный массив Дана квадратная матрица A порядка M. Найти сумму элементов каждой ее диагонали, параллельной главной (начиная с одноэлементной диагонали A1,M). (с объяснением желательно) заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread424570.html |
Turbo Pascal Запись слов максимальной длины из одного файла в другой
https://www.cyberforum.ru/ turbo-pascal/ thread424565.html Программа работает только для одной строки файла и записывает в результат только одно слово, либо дает непонятные результаты. Подскажите где ошибка? program sestnadst; var prvni,druhy:string; slovo:string; t1:text; t2:text; ps,ch:char; |
Проверить, упорядочены ли элементы списка по алфавиту Turbo Pascal Написать функцию, которая проверяет, упорядочены ли элементы списка по алфавиту. |
Turbo Pascal Найти все столбцы матрицы, произведение элементов которых больше 20
https://www.cyberforum.ru/ turbo-pascal/ thread424425.html Помогите, пожалуйста! Дан двумерный массив. Найти все столбцы, произведение элементов которых больше 20, и после каждого такого столбца вставить новый, каждый элемент которого - 0; а также удалить все столбцы, произведение элементов которых меньше 10. |
0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 10
|
|
0 | |
Стандартный диаметр цилиндра - Turbo Pascal - Ответ 236795709.01.2012, 00:57. Показов 934. Ответов 2
Метки (Все метки)
Стандартный диаметр цилиндра должен равняться d. Имеется набор числовых значений – диаметры партии изготовленных цилинд-ров. Допустимые отклонения диаметра от стандартного не более чем Е. Составить программу, определяющую номера бракованных цилин-дров и их количества.
Вернуться к обсуждению: Стандартный диаметр цилиндра Turbo Pascal
0
|
09.01.2012, 00:57 | |
Готовые ответы и решения:
2
Вычислить площадь боковой поверхности цилиндра, если известны высота h см и объем V cм3 цилиндра. Написать функцию, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра. Найти диаметр основания цилиндра Найти напряженность электрического поля внутри цилиндра; вне цилиндра |
09.01.2012, 00:57 | |
09.01.2012, 00:57 | |
Помогаю со студенческими работами здесь
0
Объем цилиндра равен V, а площадь основания – S. Какова высота цилиндра Н? Пренебрегая трением в оси цилиндра, найдите зависимость от времени угловой скорости цилиндра. Создать массив содержащий радиусы цилиндра заданной высоты при разных объемах цилиндра Написать функцию, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра. |