Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Сделать процедуру для удаления строки в базе данных program bd; uses crt,utils; type t_record=record Name:string; Summa:string; Data:string; FIO:string; Kolvo:real; end; https://www.cyberforum.ru/ pascal/ thread1194284.html	Pascal Для матрицы вычислить выражение Помогите написать 2 программы: 1)Для матрицы B (5 строк, 4 столбца) вычислить выражение y=(C1-1)^5+(C2-1)^4+(C3-1)^3+(C4-1)^2+(C5-1), где Ck – среднее арифметическое значение элементов в k-ой строке матрицы B. Для вычисления среднего арифметического значения указанных элементов в произвольной строке матрицы использовать процедуру. Находил на форуме данную программу, но она была отчасти...
Pascal Составить программу, определяющую, в каком из данных 5 чисел сумма цифр больше Составить программу, определяющую, в каком из данных 5 чисел сумма цифр больше. Нахождение суммы цифр числа оформить в виде процедуры https://www.cyberforum.ru/ pascal/ thread1194112.html	Pascal Удаление повроряющихся чисел Заданы три матрицы A(m, m), B(n, n), C(k, k). Найти минимальный из всех максимальных элементов главных диагоналей матриц. Есть одна проблема: когда программа выдает последовательность максимумов, то если максимум не один, а 2 допустим, то она выдаст 2 этих максимума вместо одного. Пример: в диагонале такие числа(2,0, 6,1,6), то выдаст не 6, а 6 6 Помогите исправить, вот код uses crt; ... https://www.cyberforum.ru/ pascal/ thread1193788.html
Заменить в строке двойные пробелы на одинарный пробел. Вывести количество замен Pascal Заменить в строке двойные пробелы на одинарный пробел. Вывести количество замен.	Pascal Для каждого числа последовательности найти количество цифр 0 и 1. Поступает последовательность целых положительных чисел, 0—конец последовательности. Для каждого числа найти количество нулей и единиц. Создать процедуру, которая возвращает количество нулей и единиц в заданном числе. https://www.cyberforum.ru/ pascal/ thread1193396.html
Pascal Вычислить сумму https://www.cyberforum.ru/ pascal/ thread1193389.html s=cosx+cos2x+cos3x...cos13x	Определить количество столбцов матрицы, содержащих хотя бы один нулевой элемент Pascal Дана целочисленная прямоугольная матрица. Определить: 1) количество столбцов, содержащих хотя бы один нулевой элемент 2) номер строки, в которой находится самая длинная серия одинаковых элементов
Pascal Справочник адресов и телефонов https://www.cyberforum.ru/ pascal/ thread1193247.html Составить программу на Pascal согласно варианту задания с разработкой процедур(функций). В программе должно быть предусмотрено главное меню со следующими пунктами (примерный перечень) 1. Ввод данных (ввод данных с клавиатуры, чтение данных с файла ). 2. Обработка данных (добавление и удаление записей) 3. Поиск информации 4. Вывод упорядоченной информации (вывод результатов) 5. Выход из...	Pascal Разделить одномерный массив на два. Элементы, размещенные на четных и нечетных позициях Очень нужно решить задачу... 3 ДНЯ ТУПЛЮ СПАСАЙТЕ:wall: Задан одномерный массив действительных чисел из элементов. Сформируйте из этого массива два массива. К первому массива включите элементы, размещенные на нечетных позициях, а во второй - на четных. Результат вывести. https://www.cyberforum.ru/ pascal/ thread1193134.html
Создать файл данных Pascal Составить программу, которая создает файл данных о жильцах дома, отображая в нем следующую информацию о каждом: 1) номер квартиры 2) ФИО жильца 3) возраст; 4) в зависимости от рода занятий (учеба, работа, пенсия) – место учебы, место работы, для пенсионеров – год выхода на пенсию. Программа должна обеспечить: а) ввод данных; б) поиск квартиры с максимальных числом жильцов; в) поиск самого...	Pascal Найти сумму элементов в тех столбцах,которые содержат хоть один отрицательный элемент https://www.cyberforum.ru/ pascal/ thread1193083.html Найти сумму элементов в тех столбцах,которые содержат хоть один отрицательный элемент;произведение между главной и побочной диагональю

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,603

Записей в блоге: 1

31.05.2014, 08:54

Модифицировать программу используя оператор цикла REPEAT . UNTIL - Pascal - Ответ 6252438

31.05.2014, 08:54. Показов 877. Ответов 1

Метки (Все метки)

Ответ

Pascal

var x,y,a,xn,xk,dx:real;
BEGIN
write('A = '); readln(a);
write('Xn = '); readln(xn);
write('Xk = '); readln(xk);
dx:=a/5;
x:=xn;
Repeat
    if (x<0.1) or (x>=1.6) then writeln('for X = ',x:4:2,'  Y = undefine') else
    begin
    if (x>=0.1) and (x<=0.4) then y:=1/x;
    if (x>=0.4) and (x<=1.2) then y:=ln(x*x+a*x);
    if (x>1.2) and (x<1.6) then y:=x*x;
    writeln('for X = ',x:4:2,'  Y = ',y:6:3);
    end;
    x:=x+dx
Until x>xk;
END.

Вернуться к обсуждению:
Модифицировать программу используя оператор цикла REPEAT . UNTIL Pascal

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

31.05.2014, 08:54

Готовые ответы и решения:

Показать, что любой оператор цикла while можно записать с помощью цикла repeat
Показать, что любой оператор цикла с предусловием можно записать с помощью условного оператора и...

Разработайте программу, используя оператор REPEAT: произвести суммирование 10 произвольно введенных целых чисел
Разработайте программу, используя оператор REPEAT: произвести суммирование 10 произвольно введенных...

Составить программу, используя оператор REPEAT (найти N! – M!)
Составить программу для определения N! – M!, где N!=1*2*3*…*n.

Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.
Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где...

	31.05.2014, 08:54

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

31.05.2014, 08:54

Помогаю со студенческими работами здесь

Составить программу используя оператор цикла с предусловием
Вычислить количество положительных значений Cos(φ) на интервале с заданным шагом.

Составить программу, используя оператор цикла while
1. Составить программу, используя оператор цикла while, в соответствии с заданием. Вводить с...

Составить программу используя оператор цикла с предусловием
Вычислить количество отрицательных значений sin(f) на интервале с заданным шагом.

Написать программу вычисления суммы используя оператор цикла.
№2.Написать программу вычисления суммы используя оператор цикла: 2 ...

Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .

Наверх