Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 244 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 145 ∙ повысить рейтинг >>

Шичко Игорь Статус: Практикант Рейтинг: 134 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 765
от 25.12.2008, 10:05

Вопрос № 154973: Даны натуральные числа n, q₁, ... , q_n. Найти те члены q_i последовательности q₁, ... , q_n, которые при делении на 7 дают остаток 1, 2 или 5...

Вопрос № 154.973

Даны натуральные числа n, q1, ... , qn. Найти те члены qi последовательности q1, ... , qn, которые при делении на 7 дают остаток 1, 2 или 5

Отправлен: 19.12.2008, 14:20 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mixala Здравствуйте, Иванов Виктор Олегович! я так понимаю n - длина последовательности. если я правильно понял задание - это должно подойти. Приложение: const nmax=100; var n,i,t:integer; a:array[1..nmax] of integer; begin Read(n); For i:=1 to n do Read(a[i]); For i:=1 to n do begin t:=a[i] mod 7; if (t=1)or(t=2)or(t=5) then Write(a[i],' '); end; end.

Ответ отправил: Mixala (статус: 2-й класс) Ответ отправлен: 19.12.2008, 22:35 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239096 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Все работает!

Вопрос № 154.974

Даны натуральное число n, действительные числа x1, ... , xn. В последовательности x1, ... , xn все члены, меньшие двух, заменить нулями. Кроме того, получить сумму членов, принадлежащих отрезку [3, 7], а также число таких членов.

Отправлен: 19.12.2008, 14:24 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mixala Здравствуйте, Иванов Виктор Олегович! просьба - конкретнее формулировать вопросы. как понять "принадлежащих отрезку [3, 7]"? это значит, что в посл. есть 3 и 7, а все члены, стоящие между ними надо просуммировать? или те, которые меньше 7 и больше 3? и писать пределы типа: "дано n<100" от этого может зависеть решение. Приложение: const nmax=100; var n,i,k:integer; //n количество, k количество на [3,7] a:array[1..nmax] of real; s:real; //сумма begin Read(n); For i:=1 to n do read(a[i]); t:=0; s:=0; For i:=1 to n do begin if a[i]<2 then a[i]:=0 else //если меньше 2 то 0 иначе проверяем дальше if (a[i]>=3)and(a[i]<=7) then begin s:=s+a[i]; k:=k+1; end; end; For i:=1 to n do Write(a[i],' '); Write(s,' ',k); end.

Ответ отправил: Mixala (статус: 2-й класс) Ответ отправлен: 19.12.2008, 22:49 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239102 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Все просто супер!

Вопрос № 154.998

Помогите ,прошу вас!!! срочно надо...задача:дан файл assort, содержащий сведения об игрушках:указывается название игрушки,ее стоимость в рублях и возрастные границы.(Ех: игрушка может предназначаться для детей от 2 до 5 лет). ОПределить стоимость дорогого конструктора. Приложение: Тема: Создание и обработка текстовых и типизированных файлов P.S:если можно,то полностью всю программу... ЗАранее спасибо!

Отправлен: 19.12.2008, 19:24 Вопрос задала: Еленка (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Еленка! Если не ошибаюсь, такой вопрос-ответ уже был (http://rusfaq.ru/info/question/149036). Ещё раз прилагаю код. Приложение: Var f: file of Toy; z: Toy; fname: string; i, maxPrice: integer; begin fname:='c:asort.txt'; {имя файла} assign (f, fname); rewrite(f); for i:=1 to 10 do {установите нужное число записей} begin writeln('Zapis ', i:5); readln(z.name); {наименование} readln(z.price); {цена} readln(z.LowAge); {нижняя граница} readln(z.HighAge); {верхняя граница } write(f, z); end; close(f); assign (f, fname); {присоединяем файл} reset (f); {для чтения} maxPrice:= -1; while not eof(f) do begin read (f, z); if (z.name='Konstruktor') and (z.price>maxPrice) and (z.LowAge = 2) and (z.HighAge=5) then maxPrice:= z.price; end; if maxPrice<0 then writeln ('Net konstruktorov') else writeln ('Price: ', maxPrice); {Вывод максимальной цены} close (f); readln; end.

Ответ отправил: Шичко Игорь (статус: Практикант) Ответ отправлен: 19.12.2008, 21:13 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239084 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 155.005

Помогите до завтра нада сделать задачи: 1. Дан одномерный масив из 20 действительных чисел.Элементы с четными и порядковыми номерами заменить нулями.Вывести полученный массив в два столбика. 11.Дан одномерный массив из 27 целых чисел(положительных и отрицательных) найти сумму положительных элементов из последней трети массива.Вывести полученную сумму и исходный массив в три столбика.

Отправлен: 19.12.2008, 20:43 Вопрос задал: светличный Артём Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Djec Здравствуйте, светличный Артём Сергеевич! В приложении решения ваших задач. Будут вопросы, спрашивайте. Приложение: program q155005_1; uses CRT; var A : array [1..20] of real; i, j : integer; begin ClrScr; WriteLn('Введите 20 элементов массива:'); for i := 1 to 20 do ReadLn(A[i]); i := 2; while i <= 20 do begin A[i] := 0; i := i + 2; end; WriteLn('Полученный массив :'); i := 1; while i <= 20 do begin Write(A[i]:4:2); WriteLn(A[i+1]:4:2); i := i + 2; end; ReadLn; end. program q155005_2; uses CRT; var A : array [1..27] of integer; i, j : integer; Sum : integer; begin ClrScr; WriteLn('Введите 27 элементов массива:'); for i := 1 to 27 do ReadLn(A[i]); Sum := 0; for i := 19 to 27 do if A[i] > 0 then Sum := Sum + A[i]; WriteLn('Исходный массив :'); i := 1; while i <= 27 do begin Write(A[i]:3); Write(A[i+1]:3); WriteLn(A[i+2]:3); i := i + 3; end; Write('Искомая сумма: '); WriteLn(Sum); ReadLn; end. --------- Я бы изменил мир, но Бог не дает исходников...

Ответ отправил: Djec (статус: Студент) Ответ отправлен: 19.12.2008, 23:20 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239106 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 155.025

Уважаемые эксперты помогите пожалуста.Не могу понять задачу.Дано N целых чисел.Найти максимальное значение и его номер из отрицательных и нечетных.

Отправлен: 19.12.2008, 22:29 Вопрос задал: Невешкин Евгений Иванович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mixala Здравствуйте, Невешкин Евгений Иванович! надо просто проверять все числа на for i:=1 to n if x<0 then //отрицательность if x mod 2<>0 //нечетность if x>max then begin //максимальность max:=x; //и запоминать новый максимум и его номер nummax:=i; end;

Ответ отправил: Mixala (статус: 2-й класс) Ответ отправлен: 19.12.2008, 23:10 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239105 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Николай // Programmator Здравствуйте, Невешкин Евгений Иванович! Код программки в приложении. Будут вопросы - пишите мне в личку. Приложение: program zadanie; uses crt; const n = 100; var i, size, max : integer; a : array[1 .. n] of integer; BEGIN clrscr; write('Введите значение длины последовательности: '); read(size); for i := 1 to size do begin read(a[i]); end; write('Введенная последовательность: '); for i := 1 to size do begin write(a[i]:3); end; writeln; max := 0; for i := 1 to size do begin if (max < a[i]) then max := a[i]; end; write('Максимальный элемент последовательности: ',max); writeln; write('Номер максимального элемента последовательности: ',i); readkey; END.

Ответ отправил: Николай // Programmator (статус: 5-й класс) Ответ отправлен: 20.12.2008, 00:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239112 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 155.026

Помогите пожалуйста решить задачи, неделю бьюсь с ними, ничего не выходит, последняя на надежда на Вас!!! 1. Даны целые числа h и m(0<h<=23, 0<=m<=59), указывающие момент времени: «h часов, m минут». Определить угол (в градусах) между положением часовой стрелки в начале суток и в указанный момент времени. 2. С начала суток часовая стрелка повернулась на у градусов (0<у<360, y - целое число). Определить число целых часов и число полных минут прошедших с начала суток. 3. Часовая стрелка образует угол у с лучом, проходящим через центр и через точку, соответствующую 12 часам на циферблате, 0<y<=360. Определить значение угла для минутной стрелки. 4. Даны целое число k (1<=k<=180) и последовательность цифр 10111213..9899, в которой выписаны подряд все двузначные числа. Определить номер пары цифр, в которую входит k-я цифра. 5. Даны целое число k (1<=k<=180) и последовательность цифр 10111213..9899, в которой вы писаны подряд все двузначные числа. Определить k-ю цифру, если известно, что k - четное число. 6. Даны целое число k (1<=k<=180) и последовательность цифр 10111213..9899, в которой выписаны подряд все двузначные числа. Определить k-ю цифру, если известно, что k - нечетное число. 7. Даны целое число k (1<=k<=150) и последовательность цифр 101102103..149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Определить k-ю цифру, если известно, что k число, кратное трем. 8. Даны целое число k (1<=k<=150) и последовательность цифр 101102103..149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Определить k-ю цифру, если известно, что k одно из чисел 1, 4 7 Думаю таким специалистам как вы это не составит труда! Очень надеюсь на Вас!!!

Отправлен: 19.12.2008, 22:32 Вопрос задал: Заикин Владимир Геннадьевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шевченко Дмитрий Здравствуйте, Заикин Владимир Геннадьевич! В приложении код процедур/функций для решения задач 1-4. С уважением, Дмитрий. Приложение: Function zad1(h,m:byte):real; var ug:Real; begin ug:=360*(h/12 + m/(12*60));{1 час - 1/12 от 360 градусов; 1 минута - 1/(12*60) от 360 градусов} {Если угол не должен превышать 360 градусов: } IF ug >= 360 then ug:=ug-360; {Если в 9:00 угол будет 270 градусов(т.е. считаем угол по направлению часовой стрелки): } zad1:=ug; {Если в 9:00 угол будет 90 градусов(т.е. нужен наименьший угол): } IF ug > 180 then ug:=360-ug; zad1:=ug; end; Procedure zad2(y:Integer;var ch,min:Integer); begin min:=y*2;{общее количество минут, прошедших с начала суток (720 минут - 360 градусов)} ch:=min div 60;{количество часов} {Если при угле 90 градусов (3 часа) прошло 0 минут, а не 180: } min:=min mod 60; end; Function zad3(y:Integer):Real; begin min:=y*2;{общее количество минут, прошедших с начала суток} min:=min mod 60;{кол-во минут с вычетом количества часов} zad3:=min*6;{60 минут - 360 градусов} end; Function zad4(k:byte):byte; begin zad4:=(k div 2) + (k mod 2);{это сложно тут объяснить, но если написать соответствие k - номер пары для первых 3-4 пар, то становится очевидно что формула верна=)} end;

Ответ отправил: Шевченко Дмитрий (статус: 9-й класс) Ответ отправлен: 22.12.2008, 17:29 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239330 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо, Дмитрий!!!!!!!!!!!!!!!!!!!

Вопрос № 155.041

Здраствуйте!! Помогите пожалусто решить задачи!!!Пожалуста, пожалуста, очень срочно надо:( 1)написать программу, которая выводит на экран в виде таблицы n значений sin(x) и cos(x), где 0<=x<=Pi/2. 2)Написать программу, которая по заданному номеру квартиры абонента кабельной сети выводит на экран номер подъезда, в котором находится абонент.Дом состоит из 4 подъездов. В первом подъезде абонентами являются квартиры: 1-10,12,14; во втором:17-20, 25; в третьем: 33, 35-40; в четвертом: 50,55.

Отправлен: 20.12.2008, 00:44 Вопрос задала: Danka (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ksyasha Здравствуйте, Danka! 1) uses crt; var n,m: real; begin clrscr; writeln(' ','0',' ','Pi/2'); n:=sin(0); m:=sin(pi/2); writeln('sin(x) ', n:0:2,' ',m:0:2); n:=cos(0); m:=cos(pi/2); writeln('cos(x) ', n:0:2,' ',m:0:2); readkey; end. Это самый простой и удобный в плане вывода способ, можно сделать еще через цикл, используя repeat (пока x не станет равно Pi/2). 2)uses crt; var n: integer; begin clrscr; write('vvedite nomer kvartiri '); read(n); if (n>=1) and (n<=10) or (n=12) or (n=14) then write('podezd #1'); if (n>=17) and (n<=20) or (n=25) then write('podezd #2'); if (n>=35) and (n<=40) or (n=33) then write('podezd #3'); if (n=50) or (n=55) then write('podezd #4'); readkey; end.

Ответ отправила: Ksyasha (статус: 1-й класс) Ответ отправлен: 20.12.2008, 14:43 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239152 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Ставлю пятерку за вторую задачу!!! Спасибо огромное!!!! Что касается первой, данная программа лишь выводит значения sin(x) и cos(x), при заданных значениях x. (в данном случае при x=0 и x=Pi/2) А мне нужно написать программу чтоб она выводила некое количество значений (n значений), столько, сколько я запрошу; например я запрошу 5 и тогда программа мне выдаст 5 значений sin(x) и 5 значений cos(x), но не любых, а только тех, где x удовлетворяет равенству, т е находится на промежутке от (o) до (Pi/2). '0<=x<=pi/2'. Если можно помогите пожалуйста!!! PS: Еще раз большое спасибо за вторую задачу!!!!

Отвечает: Пупорев Юрий Борисович Здравствуйте, Danka! Получите правильные ответы. Решения в приложении. Приложение: №1. uses crt; var x,dx:real; n:integer; begin clrscr; write('n=');readln(n); x:=0; dx:=(pi/2)/(n-1); while x<=pi/2 do begin writeln('x=',x:0:2,' sinx=',sin(x):2:2,' cosx=',cos(x):2:2); x:=x+dx; end; readln end. №2. uses crt; var n:byte; begin clrscr; repeat write('n='); readln(n); until (n>=1)and(n<=55); case n of 1..10,12,14:writeln('1 podjezd!'); 17..20,25:writeln('2 podjezd!'); 33,35..40:writeln('3 podjezd!'); 50,55:writeln('4 podjezd!'); else writeln('Takogo klienta net!'); end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 20.12.2008, 17:25 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239169 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: ААААААА спасибо! Спасибо! Спасибо!!!!!! вы самый замечательный человек!!!!!! я вас крепко крепко целую!!!!! Спасибо спасибо!!!!!!!!!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru