Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Перевести заданное десятичное число в восьмеричную и двоичную системы счисления https://www.cyberforum.ru/ pascal/ thread2560216.html
Написать процедуру (или несколько процедур) для решения поставленной задачи. Ввести исходные данные и вывести результат, полученный путем вызова написанной процедуры. Перевести заданное десятичное...
Составить блок-схему алгоритма и программу для вычисления функции по формуле Pascal
Составить блок схему алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью:
Pascal Перевод из C++ в Pascal
Доброго всем дня прошу помощи.. Написал сестре программу (нужно для аттестации в школе) #include <iostream> #include <fstream> #include <vector> using namespace std; int main()
Pascal Вывести в новый файл всех тезок Здравствуйте, помогите пожалуйста, не понимаю как записать условие. Вот задача В файле хранятся записи содержащие фамилию и имя. Вывести в новый файл всех тезок (людей имеющих одинаковые имена),... https://www.cyberforum.ru/ pascal/ thread2560092.html
Pascal Близнецы https://www.cyberforum.ru/ pascal/ thread2560078.html
Пожалуйста, помогите описать все действия в этой программе. Заранее спасибо. program prblizn; uses crt; function blizn(a:integer):boolean; var i:integer; f:boolean; begin if...
Создание модуля Pascal
У меня есть данный код: Unit Compl; Interface Uses crt; Type Complex = record Re, Im: real; end; procedure Add(u, V: Complex; var w: Complex); procedure Mult(u, V: Complex; var w: complex);
Вычислить значение выражения Pascal
Написать процедуру, которая получает на вход три числа x, y, z и выдает значение функции f. Ввести исходные данные и вывести значение функции путем вызова написанной процедуры. ...
Pascal Из матрицы получить массив по заданному првилу Помогите решить, пожалуйста. Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если элементы k–й строки матрицы упорядочены по убыванию, и значение 0 в... https://www.cyberforum.ru/ pascal/ thread2560029.html
Pascal Найти максимальное число и поменять его местами https://www.cyberforum.ru/ pascal/ thread2559976.html
Найти максимальное число и поменять его местами с 6 элементом массива. Помогите пожалуйста
Pascal Даны четыре числа a, b, с, d Даны четыре числа a, b, с, d. Найти max{min(a, b), min(c, d)}. Сколько сравнений требует-ся этому алгоритму? Какой случай для алгоритма является наилучшим? Наихудшим? https://www.cyberforum.ru/ pascal/ thread2559916.html
0 / 0 / 0
Регистрация: 26.09.2019
Сообщений: 66
0

Отредактировать код

23.12.2019, 17:25. Показов 301. Ответов 1
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program lab52;
 
var
  a, b, c, d, m, n, i ,z ,x: integer;
 
function drob(m, n, i: integer): integer;
begin
  m := a * d + b * c;
  n := b * d;
  i := 2;
  while (i <= n) and (i <= m) do
    if (n mod i = 0) and (m mod i = 0) then
    begin
      n := n div i;
      m := m div i;
    end
    else i := i + 1;
end;
 
begin
  writeln('vvedite a,b,c,d');
  readln(a, b, c, d);
  z:=drob(m, n, i);
  x:=drob(m, n, i);
  write(z, '/', x);
end.
Код складывает дроби и приводит результат к несократимой дроби
Нужно чтобы функция вызывалась минимум 2 раза , и сама функция определяла делитель i

Вернуться к обсуждению:
Отредактировать код
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2019, 17:25
Готовые ответы и решения:

Отредактировать код
program lab51; const n=4; type matr=array of integer; var j,i,nol:integer; procedure...

нахождение вектора (отредактировать код)
Здравствуйте.Помогите отредактировать программу.ТЗ:Используя процедуры и функции из целочисленной...

Подсчет количества слов (отредактировать код)
Отредактируйте программу.ТЗ:Посчитать в строке символов количество слов, написанных латинскими...

Отредактировать код(есть некая погрешность )
Вот сам код uses crt; const N=40; type x=array of integer; var a:x; i:integer; k:integer;...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.