IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Исправление ошибки в проге
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Есть такая программа:
program chisla;
function sar(const a, b:integer):real;
begin
sar:=(a + b)/2;
end;

function num(var i1, i2:integer):integer;
var
i:integer;
begin
i:=0;
while i1<>0 do begin
inc(i);
i1:=i1 div 10;
end;

while i2<>0 do begin
inc(i);
i2:=i2 div 10;
end;

num:=i;

var
a, b:integer;
begin
repeat
writeln('Vvedite a'); readln(a);
writeln('Vvedite b'); readln(b);
until(a<b);
writeln('summa chisel:', (a+b));
writeln('srednee arifmeticheskoe:', sar(a,b):4);
writeln('kolichestvo cifr:', num(a,b));
readln;
end.

1.Ошибка в следующем, сумма и арифметическое считается правильно, а вот количество цифр почему - то пишется 1, а не 2, хотя написано writeln('kolichestvo cifr:', num(a,b)); Как сделать что бы выдавало кол-во цифр 2 ?
2. Не поможете разобраться с данными строками:
function sar(const a, b:integer):real;
function num(var i1, i2:integer):integer;

Какой тип к этим переменным присваевается ? реальный или переменный? а то в скобках например integer а за скобками ещё и real. Вообщем помогите как расписать эти строки.
Заранее спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 19:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name