1.Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу для определения массы молекул кислорода в организме человека.
2.Смешано v1 литров воды температуры t1 с v2 литрами воды температуры t2. Вычислить объем и температуру образовавшейся смеси.
3.На ...
Найдено 7 результатов
- 06.01.2015 08:54:58
- Форум: Помощь за вознаграждение
- Тема: Срочно нужна помощь по созданию программам в лазарусе
- Ответы: 3
- Просмотры: 13546
- 11.11.2014 10:31:06
- Форум: Lazarus
- Тема: Вывод юбилейных дат
- Ответы: 2
- Просмотры: 2699
Re: Вывод юбилейных дат
Нет мне нужно само приложение чтобы были 4 формы 1 ввод года рождения 2 ввод месяца рождения 3 ввод даты рождения 4 результат
- 10.11.2014 13:35:47
- Форум: Lazarus
- Тема: Вывод юбилейных дат
- Ответы: 2
- Просмотры: 2699
Вывод юбилейных дат
Здравствуйте я бы хотел узнать можно ли в лазарусе создать проект который выводит юбилейные даты часы и секунды т.е. человек вводит свою дату и год рождения а приложение считает я разработал программу в поскале но выдает только даты как это сделать в лазарусе?
Код паскаля
program data;
function ...
Код паскаля
program data;
function ...
- 11.10.2014 17:58:37
- Форум: Помощь за вознаграждение
- Тема: В чем ошибка в программе ?
- Ответы: 3
- Просмотры: 11778
Re: В чем ошибка в программе ?
Помогите с программой в лазарусе код есть а с формой что то проблемы
- 11.10.2014 17:32:21
- Форум: Помощь за вознаграждение
- Тема: В чем ошибка в программе ?
- Ответы: 3
- Просмотры: 11778
В чем ошибка в программе ?
Код: Выделить всё
program n;
var
a,b,c,d:integer;
begin
write ('Skolko deneg');
read(a);
write ('Stoimost odoi edenici tovara');
read(b);
d:=a div b;
c:=a mod b;
writeln ('Kolichestvo pokypok ',d);
writeln('Sdacha',c);
readln;
readln;
end.
- 11.10.2014 14:58:05
- Форум: Lazarus
- Тема: Не работает программа
- Ответы: 5
- Просмотры: 4968
Re: Не работает программа
У меня не получается в лазарусе ее сделать
- 11.10.2014 13:02:33
- Форум: Lazarus
- Тема: Не работает программа
- Ответы: 5
- Просмотры: 4968
Не работает программа
Помогите с программой в лазарусе есть код паскаля
Код: Выделить всё
program n;
var
m:real;n:integer;
begin
writeln ('Vvedite massy telqa');
readln (n);
m:=0.65*n;
writeln ('Massa molekyl:',m:0:4);
readln;
end.