Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Задание с оператором выбора CASE https://www.cyberforum.ru/ pascal/ thread2470955.html
Напишите программу, которая по введенному номеру месяца года выводит количество дней в месяце.
Найти квадрат произведений нечётных чисел Pascal
Задание с условным оператором IF. Даны 5 чисел. Найти квадрат произведений только нечетных чисел.
Pascal Определить радиус описанной окружности. Даны три стороны треугольника a, b, c. Определить радиус описанной окружности. a=11 b=17 c=22 https://www.cyberforum.ru/ pascal/ thread2470950.html Pascal Из данных 20 чисел напечатать сначала положительные, а затем отрицательные числа и подсчитать их количество. https://www.cyberforum.ru/ pascal/ thread2470927.html
Из данных 20 чисел напечатать сначала положительные, а затем отрицательные числа и подсчитать их количество. паскаль
Напечатайте (по разу) все малые латинские буквы, входящие в эту строку более одного раза Pascal
Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку более одного раза. Указание: решение задачи простое, если вы будете использовать множества. Помогите пожалуйста составить блок схему к данному коду и дать определения переменным. Моя корявая версия описания переменных: var n:string; i:integer;
Pascal Определить, является ли матрица магическим квадратом Определить, является ли заданная целая квадратная матрица n-го порядка магическим квадратом, т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы. Пример магического квадрата: 0 1 2 3 4 1 2 3 4 0 2 3 4 0 1 3 4 0 1 2 4 0 1 2 3 https://www.cyberforum.ru/ pascal/ thread2470924.html
Pascal Построить кривую «улитку Паскаля» по заданному параметрическому уравнению https://www.cyberforum.ru/ pascal/ thread2470919.html
Построить кривую «улитку Паскаля» по заданному параметрическому уравнению x = a cos 2 (t) + b cos(t), y = a cos(t) sin(t) + b sin(t), a>0, b>0, t принадлежит интервалу . Рассмотреть три случая: 1) b >= 2a (см. рис.); 2) a < b< 2a; 3) a > b. 4 2 1 2 3 4 5 6 7
Опишите функцию, подсчитывающую количество строк Pascal
Используйте линейные списки для хранения последовательности строк. Опишите функцию, подсчитывающую количество строк — элементов списка, которые: а) начинаются и оканчиваются одним и тем же символом; б) начинаются с того же символа, что и следующая строка. Помогите пожалуйста составить блок схему к данному коду и дать определения переменным. type PNode = ^TNode; TNode = record ...
Pascal Описать функцию max(s), вычисляющую значение максимального элемента файла s https://www.cyberforum.ru/ pascal/ thread2470911.html
type seria = file of integer; var s:seria; Описать функцию max(s), вычисляющую значение максимального элемента файла s. Указание: введите файл s (последний элемент равен 0) и напечатайте значение функции max(s). Путем нехитрых манипуляций с гуглом подобрал данное решение задачи. Но ещё нужно составить блок схему и дать определения переменным. Помогите пожалуйста PascalABCNET Type...
Pascal Описать рекурсивную функцию sum без параметров для нахождения суммы https://www.cyberforum.ru/ pascal/ thread2470901.html
Во входном файле задана непустая последовательность положительных вещественных чисел, за которой следует отрицательное число. Описать рекурсивную функцию sum без параметров для нахождения суммы этих положительных чисел. Путем нехитрых манипуляций с гуглом подобрал данное решение задачи. Но ещё нужно составить блок схему и дать определения переменным :) Помогите пожалуйста PascalABCNET...
Pascal Шифрование текста.
Реализовать приложение с возможностями: шифрование текста многоалфавитной заменой (простой перестановкой букв алфавита) подсчет частоты появления каждой буквы в шифрованном тексте построение гистограммы частоты букв сравнить частоту появления букв в тексте с частотой букв в русском алфавит выполнить расшифровку на основе сравнения сделать выводы относительно размера текста для корректной...
Pascal В массиве положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов В заданном массиве A(5) положительные элементы уменьшить вдвое,а отрицательные заменить на значения их индексов https://www.cyberforum.ru/ pascal/ thread2470856.html
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
13.06.2019, 15:29 0

Составить программы, используя цикл с предусловием и цикл с постусловием - Pascal - Ответ 13652907

13.06.2019, 15:29. Показов 1491. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n,k:integer;
begin
write('n=');
readln(n);
//цикл с предусловием
k:=0;
while sqr(k+1)<=n do inc(k);
writeln(k);
//цикл с постусловием
k:=0;
repeat
inc(k);
until sqr(k+1)>n;
writeln(k);
end.


Вернуться к обсуждению:
Составить программы, используя цикл с предусловием и цикл с постусловием Pascal
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.06.2019, 15:29
Готовые ответы и решения:

Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием», составить
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием», составить
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Вычислить сумму ряда, используя цикл с параметром, с предусловием, с постусловием
помогите пожалуйста написать программы срочно нада очень очень помогите пожалуйста написать...

Цикл с предусловием, цикл с постусловием и цикл с параметром
Объясните пожалуйста как делать эти циклы. У меня не получается. Можете сделать как на фото, или на...

1
13.06.2019, 15:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2019, 15:29
Помогаю со студенческими работами здесь

Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста

Алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием»
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием»
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Цикл с предусловием или цикл с постусловием
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Цикл с предусловием или цикл с постусловием
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Цикл со счетчиком, цикл с предусловием и постусловием
Напечатать таблицу стоимости 50,100,150...1000г сыра (стоимость 1 кг сыра вводится с клавиатуры)

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru