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,572

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

31.05.2014, 08:54

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

31.05.2014, 08:54. Показов 794. Ответов 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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

31.05.2014, 08:54

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

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

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

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

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

Наверх