Pascal (Паскаль)

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

Войти

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

Рейтинг 4.67/3:

VOV

0 / 0 / 0

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

Сообщений: 56

Составить блок-схему

10.12.2009, 23:19. Показов 532. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a,b,c,d,k,p,n:longint;
 
function NOD(a,b:longint):longint;
begin
 if b=0 then NOD:=a else nod:=nod(b,a mod b);
end;
 
begin
 clrscr;
 write('A/B C/D-> ');
 readln(a,b,c,d);
 k:=nod(a*d-c*b,b*d);
 p:=(a*d-c*b) div k;
 n:=(b*d) div k;
 writeln('Разность дробей = ',p,'/',n);
 p:=a*c;
 n:=b*d;
 writeln('Произведение дробей = ',p,'/',n);
 readln;
end.

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

10.12.2009, 23:19

Ответы с готовыми решениями:

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок схему
Составить блок схему uses crt; const n=6; Type mas2=array of integer; var p,k,x,y:integer; a:mas2; procedure vvod (var...

Составить блок схему
uses crt; var s1 , s2 , s3 : string; set1 , set2 , set3 : set of char; am , i : integer; ch : char; begin clrscr; ...

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	11.12.2009, 14:41
	Примерно так! Миниатюры 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

11.12.2009, 14:41

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

Составить блок схему
var h , a , b : real; procedure printLine; begin WriteLn('--------------------'); end; function getValue(x : real) : real;...

Составить блок-схему
uses crt; var n,m,s:integer; begin clrscr; write('Введите натуральное n='); readln(n); m:=1; s:=1; while s+sqr(m+1)<n do...

Составить блок-схему
program lab5; uses crt; var s:string; i,n:integer; begin writeln ('Vvedite stroky simvolov'); readln (s); for i:=2 to...

Составить блок схему
Найдите и выведите все двузначные числа, сумма квадратов цифр которых делится без остатка на 17

Составить блок-схему
uses Crt; var a:array of integer; n,i,j,k:integer; begin ClrScr; randomize; write('Размер массмва n='); readln(n); ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .	Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .
Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .

Наверх