program - Форум
Пятница, 09.12.2016, 06:49
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » program
program
bertДата: Среда, 15.06.2011, 19:32 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
program logs;
var x,y:real;
function log(x:real):real;
begin
log:=ln(x)/ln(2)
end;
begin
x:=5.8;
y:=(log(x+1)+log(x+2))/x*log(x+3);
writeln(y:5:5);
end.

а можно через procedure вместо function если можно то как дальше будет???
 
KOT_B_MEIIIKEДата: Среда, 15.06.2011, 19:40 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
var x,y,l1,l2,l3:real;
procedure lg (x:real;var log:real);
begin
log:=ln(x)/ln(2);
end;
begin
x:=5.8;
lg(x+1,l1);lg(x+2,l2)lg(x+3,l3);
y:=(l1+l2)/x*l3;
end.
что-нибудь такое. Писалось тут)
 
bertДата: Среда, 15.06.2011, 19:50 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
спасибо!!!
 
slavik01Дата: Среда, 15.06.2011, 20:27 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Знайти кількість N-значних чисел, у яких сума цифр дорівнює їх добутку. Назвати найменше з чисел для даного N (N < 10).

Технічні умови

Вхідні дані

Число N, яке не перевищує 10.

Вихідні дані

У вихідному файлі через пропуск вивести 2 числа: кількість чисел і найменше таке число.
 
KOT_B_MEIIIKEДата: Среда, 15.06.2011, 20:42 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Новую тему!! и желательно по-русски.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » program
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016