Консультации Портала - Консультация #193282

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 193282

19.05.2018, 00:40

0.00 руб.

0 5 1

Компьютеры Программирование

Уважаемые эксперты! Пожалуйста, помогите решить:
1) Ввести с клавиатуры фамилию, имя и отчество как одно текстовое дано. Определить длину данного поля после ввода данных. Вывести имя и количество букв в фамилии
2) Заполнить срочную переменную цифрами с помощью генератора случайных значений. В конец срочного поля добавить стоковую изменение, которое будет содержать число: среднее арифметическое цифр, стоящих на четных позициях

Обсуждение

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

21.05.2018, 17:21

общий

Адресаты:

1,2 уточните задание:
как одно текстовое дано, думаю, что текстовое данное, как разделяются фамилия и имя?
В конец срочного поля добавить стоковую изменение, длина строки в паскале 256 символов, среднее арифметическое - сущность вещественная, т.е. ххх.хххххххх(х), итересует длина самого хвоста, это если работать с одной строкой.

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

lalka

Посетитель
402048
17

26.05.2018, 19:27

общий

26.05.2018, 19:28

Адресаты:

Ув. Константин Николаевич, с первым справился. А вот со вторым.. Как найти среднее арифметическое цифр, стоящих на четных позициях используя данные типа string? (lazarus)

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

27.05.2018, 11:30

общий

это ответ

Здравствуйте, lalka!

1)Вы спрвились сами:
2)
[code lang=pascal]const
n=20;
var
a:string;
b,c:integer;
begin
a:='';
while length(a)<n do
a:=chr(random(10)+ord('0'))+a;
writeln('number:=',a);
b:=0;
for c:=1 to n do
if odd(c+1) then b:=b+ord(a[c])-ord('0');
writeln('summa:=',b);{}
a:=a+' '+chr(b div(n div 2)+ord('0'))+'.'+chr(b mod(n div 2)+ord('0'));
writeln('result:=',a);
readln;
end.[/code]

Удачи!

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

27.05.2018, 14:53

общий

Адресаты:

Покажите, как?

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

lalka

Посетитель
402048
17

09.06.2018, 00:29

общий

09.06.2018, 00:30

Адресаты:

var s,a,i:string;
k:integer;
begin
writeln('Enter name:');
readln(s);
a:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
i:=copy(s,1,pos(' ',s)-1);
k:=length(a);
writeln( 'Number of letters in the surname= ',k);
writeln('name ',i);
readln;
end.

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.