(код паскаль)Написать набор процедур для работы с обыкновенными дробями, обеспечив их сложение, вычитание, умножение, деление. Примечание: обыкновенную
10-11 класс
|
дробь представлять двумя целыми числами: первое число представляет числитель дроби, а второе - знаменатель. В процессе вычислений требуется сокращать дроби на их наибольший общий делитель (НОД). Если одно из чисел равно нулю, то НОД берем равным 1. Разработать также отдельные процедуры для ввода (на экран выводится надпись: «Введите числитель и знаменатель обыкновенной дроби») и вывода обыкновенных дробей (a/b).
чето типо того
uses crt;
var a,b,s:real; z:char;
procedure vyvod(s:real);begin write(s); end;
procedure plus(a,b:real);
begin
s:=a+b;
write('Suma = '); vyvod(s);
end;
procedure minus(a,b:real);
begin
s:=a-b;
write(' = '); vyvod(s);
end;
procedure mn(a,b:real);
begin
s:=a*b;
write(' = '); vyvod(s);
end;
procedure de(a,b:real);
begin
s:=a/b;
write(' = '); vyvod(s);
end;
procedure vvod(a,b:real; z:char);
begin
writeln('Write a,b');
readln(a,b);
writeln('CHOOSE + - * / ');
readln(z);
case z of
'+':plus(a,b);
'-':minus(a,b);
'*':mn(a,b);
'/':de(a,b);
end;
end;
begin
vvod(a,b,z);
readln;
end.
Другие вопросы из категории
while n>0 do begin k:=n mod 10; n:=n div 10; inc (a[k]); end; for j:=0 to 9 do if a[j].0 then writeln (j, a[j]); for j:=0 to 9 do if a[j]=0 then writeln(j); end.
программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Гарантируется, что хотя бы один такое элемент в массиве есть.
НАРОД ПОМОГИТЕ ПОЖАЛУЙСТА
Читайте также
а) изъять. б)выделить в)переместить г)скопировать
числа. паскаль
написать программу на компьютере и проверить правильность
работы Вашей процедуры/функции, в этом случае в основной программе
должны быть реализованы ввод исходных данных и вызов
процедуры/функции.
Написать процедуру для нахождения отрицательных и положительных чисел из строки, состоящий из произвольного набора цифр и букв.
*перевести полученное число в его двоичный код
*найти максимальное из чисел
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;
.
2. Тактильную информацию человек получает посредством:
1) специальных приборов;
2) органов осязания;
3) органов слуха;
4) термометра.
3. Обмен информацией – это:
1) выполнение домашней работы;
2) просмотр телепрограммы;
3) наблюдение за поведением рыб в аквариуме;
4) разговор по телефону.
4. За единицу количества информации принимается:
1) 1 байт;
2) 1 бит;
3) 1 бод;
4) 1 см.
5. Компьютерные вирусы:
1) возникают в связи сбоев в аппаратной части компьютера;
2) имеют биологическое происхождение;
3) создаются людьми специально для нанесения ущерба ПК;
4) являются следствием ошибок в операционной системе.
6. Алгоритм – это:
1) правила выполнения определенных действий;
2) набор команд для компьютера;
3) протокол для вычислительной сети;
4) описание последовательности действий, строгое исполнение которых приводит к решению поставленной задачи за конечное число шагов.
7. Свойство алгоритма, заключающееся в отсутствии ошибок, алгоритм должен приводить к правильному результату для всех допустимых входных значений, называется:
1) результативность;
2) массовость;
3) дискретность;
4) конечность.
8. Свойство алгоритма, заключающееся в том, что один и тот же алгоритм можно использовать с различными исходными данными, называется:
1) результативность;
2) массовость;
3) конечность;
4) детерминированность.
9. Текстовый редактор – программа, предназначенная для:
1) создания, редактирования и форматирования текстовой информации;
2) работы с изображениями в процессе создания игровых программ;
3) управление ресурсами ПК при создании док3ументов;
4) автоматического перевода с символьных языков в машинные коды.