Вопрос № 166779: Добрый день уважаемые эксперты! Помогите пожалуйста в решении нескольких задач по Паскалю! 1) Даны натуральное число n, целые числа а1,а2,...,an. Рассмотереть отрезки последовательности а1,а2,...,an (подпоследовательности идущих подряд членов),...
Вопрос № 166799: Здравствуйте!Помогите пожалуйста написать программу: Дан файл f, компоненты которого являются действительными числами. Найти наименьшее из значений компонент с
чётными номерами?...Вопрос № 166801: Здравствуйте!Помогите пожалуйста написать еще одну программу: Даны фамилия сотрудника, его инициалы и номер телефона. Найти номер телефона по его фамилии и инициалам....
Вопрос № 166.779
Добрый день уважаемые эксперты! Помогите пожалуйста в решении нескольких задач по Паскалю! 1) Даны натуральное число n, целые числа а1,а2,...,an. Рассмотереть отрезки последовательности а1,а2,...,an (подпоследовательности идущих подряд членов), состоящих из степеней аятерки.(задачу выполнить с помощью функции) 2) Дан файл f, компоненты которого являются действительными числами. Найти: произведение компонент файла f. (задачу выполнить с помощью файлов) 3) Следом квадратной матрицы называется
сумма элементов, расположенных на гавной диагонали. Дана квадратная матрица порядка m, натуральное число n. Вычеслить следы матриц А, А2,..., Аn.
Отвечает: Тимошенко Дмитрий
Здравствуйте, Андреев Дмитрий Фёдорович!
В приложении решение 2-го и 3-го заданий. Вопросы в форум.
Приложение:
Ответ отправил: Тимошенко Дмитрий (статус: Студент)
Ответ отправлен: 12.05.2009, 06:13
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 248988 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо!
Вопрос № 166.799
Здравствуйте!Помогите пожалуйста написать программу: Дан файл f, компоненты которого являются действительными числами. Найти наименьшее из значений компонент с чётными номерами?
Отвечает: Тимошенко Дмитрий
Здравствуйте, Саркисян Беник Юрьевич!
Надо так. Исправления в вашем коде закомментировал. Если что непонятно - пишите в форум.
Тип файла по условию: действительные числа, а не натуральные, и зачем его вводить с клавиатутры. mina:=32767;, это меньше чем 1е6 смотрите действительных чисел.
--------
∙ Отредактировал: Зенченко Константин Николаевич, Профессор
∙ Дата редактирования: 08.05.2009, 23:07 (время московское)
Приложение:
Ответ отправил: Тимошенко Дмитрий (статус: Студент)
Ответ отправлен: 08.05.2009, 21:22
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 248856 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Mixala
Здравствуйте, Саркисян Беник Юрьевич! надо минимуму присвоить не ноль, а наоборот очень большое значение - если все числа будут больше 0, то произойдет ошибка - минимумом будет 0. Можно присвоить минимуму второе число - оно должно проверяться. mina:=a[2]; или просто очень большое mina:=100000;
диапазон действительных чисел: Real 2.9e-39..1.7e38 Single 1.5e-45..3.4e38 Double 5.0e-324..1.7e308 Extended 3.4e-4932..1.1e4932 а Вы их "пугаете" 1е6
--------
∙ Отредактировал: Зенченко Константин Николаевич, Профессор
∙ Дата редактирования: 08.05.2009, 23:13 (время московское)
Ответ отправил: Mixala (статус: 6-й класс)
Ответ отправлен: 08.05.2009, 21:28
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 248857 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Саркисян Беник Юрьевич!
assign(f,'file'); rewrite(f);{файл ассоциировали, и моментально сбросилиего длину в ноль, т.к. REWRITE-перезаписать, нужно использовать RESET} writeln ('Vved
ite chisla: '); for i:=1 to n do begin read(A[i]);{тут данные вводятся с клавиатуры, а не с файла, для файла команда выглядит так: read(f,A[i]);} end; close(f);
reset(f);{Вы уже не пользуетесь файлом, а ищете в массиве}; mina:=0;{лучше использовать индекс в массиве, т.к. Вы незнаете, какие числа у Вас , только положительные или отрицательные, возможно и те и другие, т.е. строку нужно записать так :mina:=2} write('Eto naimenshee chislo s chetnim nomerom: ' for i:=1 to n do begin if (i mod 2=0) and (A[i]<mina) then{всё условие нужно
записать подругому: if not odd(i) then if a[i]<a[mina] then mina:=i;} write(A[i]){каждый раз когда будет найдено минимальное значение оно будет выведено на экран, вынесите это из цикла} else if (i mod 2=0) then{тут совсем , тогда когда число с нечетным индеком или больше-равно минимальному, переопределяестся новое значение минимального(только когда число с четным индексом)}
mina:=A[i]; end; close(f){Вы уже не пользуетесь файлом, а ищете в массиве};
Вопросы задавайте в мини-форум. Удачи Вам!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев ---- Ответ отправлен: 08.05.2009, 21:56
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 248858 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 166.801
Здравствуйте!Помогите пожалуйста написать еще одну программу: Даны фамилия сотрудника, его инициалы и номер телефона. Найти номер телефона по его фамилии и инициалам.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
