Вопрос № 144258: Здравствуйте дорогие эксперты я в паскале очень плохо разбираюсь помогите пожалуйста позарез надо решить 4-е задачи. Только не смйтесь. 1)Дано натуральное число n. Определить сколько цифр в числе. 2)Даны три действительных числа. Отрицательные ...Вопрос № 144265: Дано натуральное число n (n ≤ 100), определяющее возраст человека (в годах). Дать для этого числа наименования «год», «года» или «лет»: например, 1 год,
23 года, 45 лет и т. д....Вопрос № 144267: Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны? ...Вопрос № 144268: Даны действительное число а, натуральное число n. Вычислить: а(а + 1)...(a + n - 1);...Вопрос № 144276: Здраствуйте!!!!! Помогите написать листинг программы и построить блок схемы к каж
дой подпрограмме: Задача: С помощью процедур и функций организовать нахождение среднего балла для студентов группы 07ПИ1 по результатам летней сессии (4 экзамена: ис...
Вопрос № 144.258
Здравствуйте дорогие эксперты я в паскале очень плохо разбираюсь помогите пожалуйста позарез надо решить 4-е задачи. Только не смйтесь. 1)Дано натуральное число n. Определить сколько цифр в числе. 2)Даны три действительных числа. Отрицательные – заменить её модулём, положительные – нулём. 3)Дано число n. Определить число делителей данного числа. 4)Даны три действительных числа. Определить наименьшее и наибольшее из них. Причём эти задачи надо решить с помощью фунукций.
Отправлен: 18.09.2008, 00:54
Вопрос задал: Wolvertula (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Boriss
Здравствуйте, Wolvertula! В приложении код программы, решающий все 4 Ваших задачи. Для минимального и максимального используются открытые массивы - очень удобно. Аналогично можно было поступить и для изменения элементов массива, но решил показать, как еще можно делать. Ежели что не понятно будет, спрашивайте
Приложение:
--------- Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW:Программирование на Паскале ---- Ответ отправлен: 18.09.2008, 10:38 Оценка за ответ: 5 Комментарий оценки: отлично ты малодец но факт в том что я смотрю ты соединил все 4-е задачи в одну а там 4-е отддельные задачи до такого что ты написал
у меня бы ума не хватило ты просто малодец
Отвечает: Долгих Людмила
Здравствуйте, Wolvertula! №4. Один из возможных способов var x,y,z:real; function max(a,b:real):real; begin if a>b then max:=a else max:=b; end; function min(a,b:real):real; begin if a<b then min:=a else min:=b; end; begin readln(x,y,z); writeln('max = ',max(max(x,y),max(y,z))); writeln('min = ',min(min(x,y),min(y,z))); end.
Ответ отправила: Долгих Людмила (статус: 3-ий класс)
Ответ отправлен: 18.09.2008, 10:44
Вопрос № 144.265
Дано натуральное число n (n ≤ 100), определяющее возраст человека (в годах). Дать для этого числа наименования «год», «года» или «лет»: например, 1 год, 23 года, 45 лет и т. д.
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Николаев Денис Игоревич! Вот возможный вариант решения:
Код:
const m=[11..14]; var n:byte; begin repeat write('Vvedite naturalnoe n<=100 n='); readln(n); until (n>0)and(n<=100); if n in m then writeln(n,' лет') else case
n mod 10 of 0,5,6,7,8,9:writeln(n,' лет'); 2,3,4:writeln(n,' года'); 1:writeln(n,' год'); end; readln end.
Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 18.09.2008, 11:44 Оценка за ответ: 5
Вопрос № 144.267
Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны?
Отвечает: Boriss
Здравствуйте, Николаев Денис Игоревич! В приложении простейший (без наворотов) код, решающий Вашу задачу. Можно сделать поинтереснее, эффективнее - через анализ цифр. Можно перевести с помощью STR в строку и анализировать символы строки. -- ЗЫ: здесь анализируются именно 4 цифры, даже если введено двухзначное число. Если не так нужно, то есть, нужно анализировать только введенные цифры, то напишите - переделать несложно
Приложение:
--------- Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW:Программирование на Паскале ---- Ответ отправлен: 18.09.2008, 10:00
Вопрос № 144.268
Даны действительное число а, натуральное число n. Вычислить: а(а + 1)...(a + n - 1);
Отвечает: Шичко Игорь
Здравствуйте, Николаев Денис Игоревич! Код в приложении. Сначала вводится a, затем n.
Приложение:
Ответ отправил: Шичко Игорь (статус: 3-ий класс)
Ответ отправлен: 18.09.2008, 08:33
Вопрос № 144.276
Здраствуйте!!!!! Помогите написать листинг программы и построить блок схемы к каждой подпрограмме: Задача: С помощью процедур и функций организовать нахождение среднего балла для студентов группы 07ПИ1 по результатам летней сессии (4 экзамена: история России, ВССиТ, Информатика и программирование, английский язык). Оценки придумать самим. Использовать в программе 5 одномерных массивов.
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Водянникова Екатерина Валерьевна! Привожу решение задачи с пояснениями, блок-схемы подпрограмм во вложенном файле. Если файл не загрузится, что-то сбои последнее время, то могу выслать на e-mail, или еще куда скажете.
Код:
uses crt; const n=25; {количество студентов} type
mas1=array[1..n]of byte;{тип массив чисел 0..256} mas2=array[1..n]of real; {тип ммассив вещественных чисел} var his,vss,ip,eng:mas1; {переменные-массивы оценок} sred:mas2; {переменная массив средних баллов} procedure Mass1(var x:mas1); {процедура создания массива оценок} var i:byte; begin for i:=1 to n do begin x[i]:=random(3)+3; write(x[i],' '); end; writeln; end; function SrBall(x,y
,z,t:byte):real; {функция вычисления средней оценки студента} begin SrBall:=(x+y+z+t)/4; end; procedure Mass2(x,y,z,t:mas1;var q:mas2); {процедура создания массива средних баллов} var i:byte; begin for i:=1 to n do begin q[i]:=SrBall(x[i],y[i],z[i],t[i]); write(q[i]:4:1); end; end; begin clrscr; writeln('РЕЗУЛЬТАТЫ ЛЕТНЕЙ СЕССИИ СТУДЕНТОВ ГРУППЫ 07ПИ1'); writeln('Оценки по Истории России:'); Mass1(his); writeln('Оценки
по ВССиТ:'); Mass1(vss); writeln('Оценки по Информатике и программированию:'); Mass1(ip); writeln('Оценки по Английскому языку:'); Mass1(eng); writeln('Средние баллы:'); Mass2(his,vss,ip,eng,sred); readln end.
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 18.09.2008, 20:52
