Вопрос № 143458: Уважаемые эксперты! помогите пожалуйста решить следующие задачи. Создать программы, используя собственный модуль 1. Ввести последовательность символов, предшествующих точке и выяснить, встретились ли среди них буквы, входящие в слово МИР. 2...Вопрос № 143472: Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения....Вопрос № 143473: Вычислить
расстояние между двумя точками с координатами x1, y1 и x2, y2....
Вопрос № 143.458
Уважаемые эксперты! помогите пожалуйста решить следующие задачи. Создать программы, используя собственный модуль 1. Ввести последовательность символов, предшествующих точке и выяснить, встретились ли среди них буквы, входящие в слово МИР. 2. Дана величина А, выражающая объм информации в байтах. Перевести А в более крупные единицы измерения информации. ЗАРАНЕЕ ОЧЕНЬ БЛАГОДАРЕН.
Отвечает: Шичко Игорь
Здравствуйте, Ильин Дмитрий! По первому вопросу код в приложении. По второму вопросу: S1:= A / 1024 (в килобайтах) S2:= A / (S1 * 1024) (в мегабайтах) S3:= A / (S2 * 1024) (в гигабайтах)
Приложение:
Ответ отправил: Шичко Игорь (статус: 2-ой класс)
Ответ отправлен: 09.09.2008, 14:09 Оценка за ответ: 5
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Ильин Дмитрий!
Сама программа:
Код:
uses mymodule; var x:longint; s:string; begin write('byte:');readln(x); writeln(aa(x):10:4,aa(aa(x)):10:3); write('string:');readln(s); write('simbols:',bb(s)); end.
В
приложении модуль. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 09.09.2008, 17:54 Оценка за ответ: 5
Вопрос № 143.472
Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.
при параллельном соединении проводников, общее сопротивление проводников равно отношению их произведения к их сумме
В виде формулы: (R1*R2*R3)/(R1
+ R2 + R3) Теперь напишим функци для вычисления сопротивления. Тип возвращаемого значение real, так как исполузуется деление:
Код:
{Функция для расчета сопротивления} function GetR(const R1, R2, R3: real): real; begin Getr:=
(R1*R2*R3)/(R1 + R2 + R3); end;
Самое главное сделано, теперь пример использования функции:
Код:
var {Сопротивления} R1, R2, R3: real;
begin {Получаем входные данные} Write('R1: '); ReadLn(R1); Write('R2: ');
ReadLn(R2); Write('R3: '); ReadLn(R3); {Выводи результат с двумя цифрами после запятой} WriteLn('Общее сопротивление: ', GetR(R1, R2, R3):6:2, ' Ом'); {Ждем нажатия клавиши Enter} ReadLn; end.
Удачи!!!
Ответ отправил: Абельхарисов Руслан/Marked One (статус: Студент)
Ответ отправлен: 09.09.2008, 19:36 Оценка за ответ: 5 Комментарий оценки: Большое спасибо.
Отвечает: Витек
Здравствуйте, Николаев Денис Игоревич! var r1,r2,r3:real; begin ReadLn(r1,r2,r3); write((r1*r2*r3)/(r1+r2+r3)) ; read; end.
--------- ohne fleis, keine preis
Ответ отправил: Витек (статус: 3-ий класс)
Ответ отправлен: 11.09.2008, 08:07 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо.
Вопрос № 143.473
Вычислить расстояние между двумя точками с координатами x1, y1 и x2, y2.
Отвечает: Шичко Игорь
Здравствуйте, Николаев Денис Игоревич! Код в приложении.
Коментарии в ТР7.0 должны быть в фигурных скобках.
--------
∙ Отредактировал: Зенченко Константин Николаевич, Профессор
∙ Дата редактирования: 09.09.2008, 16:07 (время московское)
Приложение:
Ответ отправил: Шичко Игорь (статус: 2-ой класс)
Ответ отправлен: 09.09.2008, 15:55
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Николаев Денис Игоревич!
Программа без лишних переменных.
Код:
var x1,x2,y1,y2:integer; begin {ввод данных} write('x1:');readln(x1); write('y1:');readln(y1); write('x2:');readln(x2); write('y2:');readln(y2);
{вывод результата} writeln('range:',sqrt(sqr(abs(x1-x2))+sqr(abs(y1-y2)))); readln; end.
Удачи!
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 09.09.2008, 16:01
Отвечает: Витек
Здравствуйте, Николаев Денис Игоревич! var r,x1,x2,y1,y2:real; begin readln(x1,y1); readln(x2,y2); r:=sqrt(sqr(x2-x1)+sqr(y2-y1)); writeln('Расстояние = ',r); read; end.
--------- ohne fleis, keine preis
Ответ отправил: Витек (статус: 3-ий класс)
Ответ отправлен: 11.09.2008, 08:07 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо.
