Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Удалить все элементы побочной диагонали матрицы https://www.cyberforum.ru/ pascal/ thread40793.html Помогите решить следующие задачки: 1.Дан двумерный массив. Найти столбец в котором сумма элементов делится на 3 и заменить значения его элементов на тройки. 2.Удалить все элементы побочной диагонали квадратного массива. 3.Дан двумерный массив из 5 строк и 10 столбцов.Переставить в обратном порядке столбцы расположенные между k-м и s-м столбцами (т.е. с (k+1)-го по (s-1)-й). Значения k и s...	Pascal Задание на ветвление Дано три действительных числа. Выяснить что больше, квадрат минимального или максимальное из них. program n_3_13; uses WinCRT; var a,b,c,min,max:real; begin Write('a='); Read(a); Write('b='); Read(b);
Pascal Массивы. https://www.cyberforum.ru/ pascal/ thread40785.html Может и мне кто нибудь с паскалем поможет?...;) 1. Найти минимальный элемент массива вещественных чисел. 2. Заменить в символьном массиве символы ` `, символом `2`и вывести полученный массив на экран дисплея. 3. записать на место отрицательных элементов матрицы нули, а на место положительных-единицы. Вывести на печать нижнюю треугольную матрицу. помогите пожалуйста...и если сможете еще...	Pascal Задание по массивам и строкам. https://www.cyberforum.ru/ pascal/ thread40783.html Здравствуйте ребята,помогите пожалуйста с заданиями. 1) Дан двухмерный массив размером 10 на 10.Вывести на экран часть массива,расположенную ниже побочной диагонали. 2) Даны два слова.Определить,можно ли из букв первого из них получить второе.Каждая буква второго слова должна входить в первое слово столько же раз,сколько и во второе.:)Спасибо заранее.
Файлы. Pascal №2 Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания. №3 Дано целое число K и текстовый файл. Удалить из файла абзац с номером K (абзацы выделяются с помощью красной строки). Пустые строки между абзацами не учитывать и не удалять. Если абзац с данным номером отсутствует, то оставить файл без изменений. ...	Pascal Проверить правильнось программ. https://www.cyberforum.ru/ pascal/ thread40751.html ребят пожалуста проверьте мои программы и сделайте их так как надо пожалуста а то самой уже запарилось всё если я ещё раз сяду за эти программы то голова точно лопнет не допустите пожалуста этого :) :) :) program p9; uses crt; const CEndOfFile='@';//Символ конца файла. Можно задать любой символ или их комбинацию type TPDict=^TDict; TDict=record data:string;
Pascal Числовые типы данных https://www.cyberforum.ru/ pascal/ thread40745.html в общим, данн пример (как видно на рисунке-(экспанента в степени 3х)) если x=5(в степени 0) и y=1.3 ........... найти надо- a? ...пробовал решить пример частями: что в часлители , грубо говоря- m, что в знаменатели- n, и то что складуем - i в итоге пробую m/n+i и что тто не фурычит... ребят помогите , завтра сдавать надо..... .. з.ы. если я не ошибаюсь tg(x)=sin(x)/cos(x) правильно?	текстовый файл Pascal Вот прога на текстовый файл она не до конца доработана, в ней выводится русские буквы, помогите сделать чтобы они по алфавиту выводились. Помогите если знаете. program tekst; uses crt; var f:text; A:array of string; B:array of byte; S,q:string;
Pascal Проверка попадания точки в заданную область https://www.cyberforum.ru/ pascal/ thread40722.html	Pascal Вычисление корня рационального уравнения https://www.cyberforum.ru/ pascal/ thread40719.html
Pascal Вычисление суммы ряда	Pascal Обработка матриц 2 https://www.cyberforum.ru/ pascal/ thread40715.html

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

17.06.2009, 21:34

НОД - Pascal - Ответ 196229

17.06.2009, 21:34. Показов 5201. Ответов 10

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

Ответ

Pascal

uses crt;
var a,b,c,d:word;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
writeln;
writeln('NOD(a,b,c)=',NOD(NOD(a,b),c));
readln
end.

Вернуться к обсуждению:
НОД Pascal

Следующий ответ

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

17.06.2009, 21:34

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

НОД
такая вот задача нужно узнать у двух чисел наибольший общий делитель наиболее рациональным...

НОД
Составить программу для нахождения НОД(наибольшего общего делителя) четырех натуральных чисел с...

Максимальный НОД
Задано натуральное число N. Найдите такие числа A и B, что N = A + B и НОД этих чисел максимален. ...

Единичный НОД
Заданы два натуральных числа в десятичной системе счисления, состоящие из единиц. В первом числе...

	17.06.2009, 21:34

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

17.06.2009, 21:34

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

НОД и НОК
Народ, помогите! Надо написать программу: Даны два числа а и b. Найти НОД и НОК.

Длинный НОД
Даны два числа. Найти их наибольший общий делитель. Формат входных данных Вводятся два...

НОД И НОК
Как решить..

рекурсивный НОД
Даны натуральные числа n, m. Найти НОД(n,m), используя рекурсивную процедуру вычислентя Нод,...

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх