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

Выпуск № 609
от 21.03.2008, 21:05

Вопрос № 127.474

здавствуйте! некак невиходит зделать програму! она запускается но считаеш шо попало! задача звучит так: обчислить Z=(S1+S1)/(K1+K2), где S1, K1-СУММА И КОЛИЧЕЧТВО ПОЛОЖИТЕЛЬНЫХ ЕЛЕМЕНТОВ МАСИВА Y(n), S2, K2 -СООТВЕТСТВЕННО МАСИВА A(L). примечание n,l<=50

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, коваль максим владимирович! Решение задачи в приложении. Сделал вывод на экран всех операций пошагово, когда ознакомитесь с программой, лишнее можно убрать, вообщем на Ваше усмотрение. Приложение: uses crt; var a,y:array[1..50]of real;//массивы z,s1,s2:real; n,l,i,k1,k2:integer; begin clrscr; write('n=');readln(n);//размерности массивов write('l=');readln(l); randomize; //генератор случайных чисел writeln('Massiv Y:'); s1:=0;k1:=0; for i:=1 to n do begin y[i]:=random(10)+random-4; //значения из интервала (-4.0,6.0) write(y[i]:5:2); if y[i]>0 then begin k1:=k1+1; //считаем положительные s1:=s1+y[i]; //складываем их end; end; writeln; Writeln('k1=',k1); //это можно убрать, просто для проверки writeln('s1=',s1:5:2); writeln; writeln('Massiv A:'); //все также, как и по массиву Y. s2:=0;k2:=0; for i:=1 to l do begin a[i]:=random(10)+random-4; write(a[i]:5:2); if a[i]>0 then begin k2:=k2+1; s2:=s2+a[i]; end; end; writeln; Writeln('k2=',k2); writeln('s2=',s2:5:2); z:=(s1+s2)/(k1+k2); //считаем Z writeln; writeln('z=',z:5:2); //выводим на экран readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: 8-ой класс) Ответ отправлен: 15.03.2008, 21:45 Оценка за ответ: 5

Вопрос № 127.500

Добрый вечер, эксперты! У меня не получается решить задачу. Задачу в прямом смысле этого слова: Сережа пошел в поход вместе с друзьями. Они разбрелись по всему лесу, и вдруг Сереже стало интересно, под каким номером идет его друг, который находится на самом далеком расстоянии от него. Помогите ему узнать. Формат ввода: Первая строка - это три числа первые два это позиция Сережи, а следующее число N - это количество друзей. Вторая строка - позиция первого друга Третья строка - позиция второго друга ... N+1-ая строка позиция N-ого друга Примечание: Все координаты целые числа Формат вывода: Номер друга, который на самом далеком расстоянии от Сережи. Пример ввода: 113 00 33 22 Пример вывода: 2 И если можно, то с объяснением.

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

Отвечает: Delph Здравствуйте, Шорин Роман Игоревич! В приложении - пример решения задачи. Суть решения: изначально запоминаются координаты Серёжи и количество его друзей, текущее расстояние принимается равным нулю. Далее в цикле вводятся координаты каждого из друзей, расстояние от каждого из них до Серёжи сравнивается с текущим. Если оказывается больше, то это расстояние запоминается как текущее, так же запоминается номер друга. Поскольку в задаче не указано, что нужно хранить координаты всех друзей сразу, обходимся без массивов. Приложение: Program Pr127500; Uses CRT; Var N, X, Y, Xk, Yk, i, k: Integer; R, Rk: Real; Begin ClrScr; Rk := 0.0; Write('Введите координаты Серёжи и количество друзей (3 числа): '); ReadLn(X, Y, N); WriteLn('Введите координаты каждого из друзей:'); for i := 1 to N do begin Write('Друг ', i, ': '); ReadLn(Xk, Yk); R := sqrt(SQR(Xk - X) + (Yk - Y)); if R > Rk then begin Rk := R; k := i; end; end; WriteLn; WriteLn('Дальше всех друг с номером ', k); ReadLn; End. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 17.03.2008, 09:28 Оценка за ответ: 5

Вопрос № 127.516

здравствуйте уважаемые работники сайта! Помогите пожалуйста решить проблему которая заключается в решении задачи в turbo pascal. Условие: Из матрицы А получить матрицу у которой столбцы отсортированы по-убыванию элементов первой строки. Переведено на русский язык. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 16.03.2008, 10:30

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Чечуженко Льоша! Решение задачи в приложении, ничего сложного. Сортируем злементы всех строк в соотвии с сортироакой первой строки. Приложение: program q127516; uses crt; var m,n,k,i,j,p,x:integer; a:array[1..50,1..50]of integer; begin clrscr; write('m=');readln(m); write('n=');readln(n); randomize; writeln('Ishodnaia matrica:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; readln; {sortirovka po ubyvaniu v 1 stroke} for j:=1 to n-1 do for p:=1 to n-1 do if a[1,p]<a[1,p+1] then begin for i:=1 to m do begin x:=a[i,p];a[i,p]:=a[i,p+1];a[i,p+1]:=x; end; end; {vyvod obrabotannoj matrichy} for i:=1 to m do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln; end. end.

Ответ отправил: Пупорев Юрий Борисович (статус: 8-ой класс) Ответ отправлен: 16.03.2008, 06:43

Вопрос № 127.517

Пожалуйста помогите решить задачу в pascal. Условие: посчитать d=(x1- y1)(x2 + y2), где x1, y1, x2, y2 - корни уравнений a1x2+b1x+c1=0 и a2x2+b2x+c2=0. Переведено на русский язык. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 16.03.2008, 10:30

Отправлен: 16.03.2008, 02:21 Вопрос задал: Чечуженко Льоша (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Чечуженко Льоша! Используя наши обширные познания из школьной алгебры, мы не будем решать эти квадратные уравнения, поскольку мы знаем, что 1.x2+y2=-b2/a2(теорема Виета). 2. |x1-y1|=sqrt(sqr(b1))-4*a1*c1)(одно из следствий этой теоремы). Поэтому мы составим такую формулу для нахождения d: d:=(abs(sqrt((sqr(b1)-4*a1*c1)))/a1)*(-b2/a2); Кроме того мы должны проверить, что дискриминанты обоих уранениий неотрицательны. Вот и все. Код в приложении. Приложение: uses crt; var d,a1,b1,c1,a2,b2,c2:real; label 1; begin clrscr; 1: write('a1=');readln(a1); write('b1=');readln(b1); write('c1=');readln(c1); write('a2=');readln(a2); write('b2=');readln(b2); write('c2=');readln(c2); if ((sqr(b1)-4*a1*c1)<0)or((sqr(b2)-4*a2*c2)<0) then begin write('vvedute drugie dannye:'); readln; goto 1; end else d:=(abs(sqrt((sqr(b1)-4*a1*c1)))/a1)*(-b2/a2); writeln; writeln('d=',d:5:2); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: 8-ой класс) Ответ отправлен: 16.03.2008, 08:08

Отвечает: Шемет Станислав Васильевич Здравствуйте, Чечуженко Льоша! Программа в приложении Я так понимаю что у вас квадратное уравнение, так что программа решает ети уравнения и вычисляет (x1- y1)(x2 + y2). Приложение: Var d,x,a1,a2,b1,b2,c1,c2:Real; Buf:real; Begin Writeln('A1,X,B1,C1 : '); Readln(a1,x,b1,c1); Buf:=sqrt(b1*b1-4*a1*c1); d:=((b1-buf)/2*a1)-((b1+buf)/2*a1);(*Вычисляем (x1- y1)*) Writeln('A2,X,B2,C2 : '); Readln(a2,x,b2,c2); Buf:=sqrt(b2*b2-4*a2*c2); d:=d*(((b2-buf)/2*a2)+((b2+buf)/2*a2));(*Вычисляем (x1- y1)(x2 + y2)*) Writeln('(x1 - y1)(x2 + y2)= ',d); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 4-ый класс) Ответ отправлен: 16.03.2008, 13:18

Вопрос № 127.518

Помогите решить задачу: Слово, что самое большое по длине поставить в начало предложения, при этом заменить буквы А на О, О на Я, Е на А, М на Н, Р на К, К на П. Переведено на русский язык. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 16.03.2008, 10:31

Отправлен: 16.03.2008, 02:28 Вопрос задал: Чечуженко Льоша (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станислав Васильевич Здравствуйте, Чечуженко Льоша! Программа в приложении Вот алгоритм ее работы: 1) Поиск максимально длинного слова. 2) Удаляем это слова из начальной строки. 3) Замена букв в нем. 4) Запись измененного слова(максимально длинного) в новою переменную. 5) Добавляем к этой новой переменной начальную строку. 5) Вывод результата. Желаю успехов и удачи !!! Приложение: Var s,New:string; i,j,x:integer; Pos:byte; Function MaxLenStr:string;(*Функция поиска самого длинного слова *) var Buf,Temp:string;(*Вспомогательные переменные*) begin buf:=''; temp:=''; s:=s+#32; for i:=1 to length(s) do(*Поиск всех слов {слово это набор символов разделенных пробелом} *) if s[i]<>#32 then buf:=buf+s[i] else Begin j:=length(buf);(* Сохраняем длину слова*) if Length(temp)<j then(*Если длина токо найденного слова больше длины уже найденного слова*) Begin temp:=buf;(*Сохраняем еще большое слово*) pos:=i-length(temp);(*Сохраняем позицию это слова*) end; buf:='';(*Очищаем буферную переменную*) end; Delete(s,pos,Length(Temp));(*Удаляем максимально длинное слово из строки*) For i:=1 to length(temp) do(*Меняем буквы в слове*) case Temp[i] of 'А':Temp[i]:= 'О'; 'О':Temp[i]:='Я'; 'Е':Temp[i]:='А'; 'М':Temp[i]:='Н'; 'Р':Temp[i]:='К'; 'К':Temp[i]:='П'; end; MaxLenStr:=temp; end; begin Write('Enter string: '); Readln(s); new:=MaxLenstr+' '+s;(*Записуем максимально длинное слово в начало строки а потом добавляем до этой строки строки*) Writeln(new);(*Вывод результата*) readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 4-ый класс) Ответ отправлен: 16.03.2008, 21:30

Вопрос № 127.611

Помогите пожалуйста решить 2 задачи.Их нужно решить двумя способами: первый - используя оператор цикла с параметром (т.е. for), и второй способ - через оператор цикла repeat. Задачи: 1) Необходимо вычислить заданную сумму S. Задано число членов суммы N. S=1/(3*1-2) + 1/(3*2-2) + ... + 1/(3*k-2) + ... 2) Необходимо вычислить заданную сумму S. Задано число членов суммы N. S=1/((2*1-1)*2*1*(2*1+1)) + 1/((2*2-1)*2*1(2*2+1)) + 1/((2*k-1)*2*k*(2*k+1)) Заранее огромное всем спасибо.

Отправлен: 16.03.2008, 17:33 Вопрос задала: Смирнова Дарья Сергеевна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Marked One Здравствуйте, Смирнова Дарья Сергеевна! Код в приложении. Удачи Приложение: {№1, первый способ} var n, i:integer; s:real; begin Write('Введите N: '); ReadLn(n); s:=0; for i:=1 to N do s:=s+1/(3*i-2); writeln('Сумма (S) равна: ', s); read(n); end. {№1, способ второй} var i, n:integer; s:real; begin write('Введите N: '); readln(n); s:=0; i:=1; repeat s:=s+1/(3*i-2); i:=i+1; until i>n; Writeln('результат: ', s); read(s); end. {№2, первый способ} var n, i:integer; s:real; begin Write('Введите N: '); ReadLn(n); s:=0; for i:=1 to N do s:=s+1/((2*i-1)*2*i*(2*i+1)) writeln('Сумма (S) равна: ', s); read(n); end. {№2, второй способ} var i, n:integer; s:real; begin write('Введите N: '); readln(n); s:=0; i:=1; repeat s:=s+1/((2*i-1)*2*i*(2*i+1)); i:=i+1; until i>n; Writeln('результат: ', s); read(s); end.

Ответ отправил: Marked One (статус: 8-ой класс) Ответ отправлен: 16.03.2008, 20:26 Оценка за ответ: 5

Вопрос № 127.620

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

Отправлен: 16.03.2008, 18:55 Вопрос задал: Paul11 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Paul11! Вторая программа в приложении. Удачи! Приложение: type PElem = ^TElem; TElem = record value : char; next : PElem; end; procedure Add(var el : PElem; a : char); var p : PElem; begin new(p); p^.next := el; p^.value := a; el := p; end; var el : PElem; s : string; i : integer; begin Write('Input string: '); ReadLn(s); for i := 1 to length(s) do Add(el,s[i]); { в el хранится указатель на список символов } delete(s,length(s)-2,3); WriteLn(s); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 18.03.2008, 14:54 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь

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