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

Выпуск № 585
от 26.02.2008, 09:05

Вопрос № 124.003

Доброго времени суток! Помогите с задачей: Даны символы S1,... Sn. Известно, что символ S1 отличен от пробела и что среди S1,S2... имеется хотя бы один пробел. Рассматривающиеся S1.. Sn - символы, предшествующие первому пробелу (n заранее неизвестно). Преобразовать последовательность - удалить из нее все символы, не являющиеся буквами(латинскими).

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

Отвечает: Шемет Станіслав Васильович Здравствуйте, The_aunt_cat! вот вам программа токо не пойму а причем здесь пробелы. Приложение: VAr s:string; i:integer; b:boolean; begin Readln(s); repeat b:=true; for i:=1 to length(s) do if not(s[i] in ['A'..'z']) then begin delete(s,i,1); b:=false; end; until b ; writeln(s); readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 6-ой класс) Ответ отправлен: 20.02.2008, 11:02 Оценка за ответ: 5 Комментарий оценки: Спасибо так изощряются наши преподы)

Отвечает: Boriss Здравствуйте, The_aunt_cat! Я полагаю, что мой вариант точнее соответствует заданию (здесь не стока, а массив): Приложение: uses CRT; const N = 1000; lats: Set of char = ['A'..'z']; VAR symb: array[1..N] of char; i, k, m: Integer; BEGIN ClrScr; for i :=1 to N do symb[i]:=chr(Random(223) + 32); {Заполнение} if symb[1] = ' ' then symb[1]:='b'; {Изменяем на какой-то} m:=0; for i :=2 to N do if symb[i] = ' ' then begin m := i -1; Break; {Закончили поиск. Немедленный выход из цикла} end; {Показ с выделением цветом того, что обрабатывать будем} TextAttr:=$1E; for i :=1 to m do Write(symb[i]); TextAttr:= 7; for i:=m+1 to N do Write(symb[i]); WriteLn; WriteLn; i:=1; while i < m do begin if symb[i] in lats then begin {Сдвигаем все влево и уменьшаем m} dec(m); for k:= i to m do symb[k]:=symb[k+1]; end else inc(i) end; for i := 1 to m do Write(symb[i]); WriteLn; END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 20.02.2008, 11:21 Оценка за ответ: 5 Комментарий оценки: Спасибо большое!

Вопрос № 124.081

Здравствуйте! Помогите пожалуйста написать программу,которая исправляла бы ошибку(ставила бы пробел после запятой,если его нет) в введенном тексте. Заранее спасибо. С уважением,Saiks.

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

Отвечает: -=Dr. Штопор=- Здравствуйте, Saiks! Код в приложении, работает как под TurboPascal, так и в Pascal ABC. Проверить работу в качестве консольного приложения Delphi не имею возможности. ____________________________ Tantum possumus, quantum scimus Приложение: program zpt; var s,ss:string; BEGIN writeln('Введите строку'); readln(s); while pos(',',s)<>0 do begin if s[pos(',',s)+1]<>' ' then begin ss:=ss+copy(s,1,pos(',',s))+' '; delete(s,1, pos(',',s)); end else begin ss:=ss+copy(s,1,pos(',',s)+1); delete(s,1,pos(',',s)+1); end; end; writeln(ss); end. --------- Tantum possumus, quantum scimus

Ответ отправил: -=Dr. Штопор=- (статус: 6-ой класс) Ответ отправлен: 20.02.2008, 18:58

Отвечает: Зенченко Константин Николаевич Здравствуйте, Saiks! Программа в приложении. Удачи! Приложение: program q124081; var a:string; b:integer; begin write('Enter:'); readln(a); b:=0; repeat {ищем зaпятую после которой не стоит пробел} repeat inc(b) until (a[b]=',')and(a[b+1]<>' ')or(b>length(a)); {если не достигли конца строки вставляем пробел} if b<length(a)then insert(' ',a,b+1); {повторяем пока не проверим всю строку} until b>length(a); {выводим результат} writeln(a); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 20.02.2008, 18:59 Оценка за ответ: 5

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Saiks! Программа в приложении. Удачи! Приложение: function correct(s:string):string; var res : string; begin res := ''; while pos(',',s) > 0 do begin res := res + copy(s,1,pos(',',s)); if copy(s,pos(',',s)+1,1) <> ' ' then res := res + ' '; delete(s,1,pos(',',s)); end; res := res + s; correct := res; end; var s : string; begin ReadLn(s); WriteLn(correct(s)); Readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 20.02.2008, 19:08

Вопрос № 124.082

Здравствуйте!Помогите пожалуйста в решение задачи: 1)составить программу решения исходной задачи 2)описать алгоритм, отладить программу и получить результат Стоимость перевозки 1 т груза – 240,8 руб . Известно также количество перевезенного груза (т ) у каждого из предполагаемых водителей . Определить стоимость (руб .) перевезенного груза каждым из водителей .

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

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Demonic! Программа в приложении. Алгоритм: 1. вводится количество водителей 2. для каждого водителя считывается вес перевезенного груза и выводится его стоимость. Удачи! Приложение: const cost = 240.8; function price(v:real):real; begin price := cost*v; end; var k, i : integer; v : real; begin WriteLn('Vvedite kol-vo voditelej: '); ReadLn(k); for i := 1 to k do begin WriteLn('Vvedite ves gruza, kotoryj perevez ',i,' voditel (v tonnah):'); readLn(v); WriteLn('Stoimost: ', price(v):5:2,' rubley'); end; Readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 20.02.2008, 19:16 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович !!! Здравствуйте, Demonic! Создаем массив, з в котором будем хранить нашиы даные о стоимости (руб .) перевезенного груза каждым из водителей. Теперь в циыкле зчитуем считаем количество груза которое перевезли и розчитуем рассчитываем стоимость его перевозки и сохраняем еэту стоимость в массив. Выводим на еэкран стоимость перевозки грузов. Ответ переведен на русский язык, исправлены грамматические ошибки. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 21.02.2008, 21:20 Приложение: Const n=10; Cost=240.8; Var M:array[1..n] of real; i:intger; Begin for i:=1 to n do Begin Write('Количество груза '); Readln(m[i]); m[i]:=m[i]*Cost; end; for i:=1 to n do Writeln('Стоимость груза ',m[i]); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 6-ой класс) Ответ отправлен: 21.02.2008, 01:21 Оценка за ответ: 5

Вопрос № 124.084

Здравствуйте !Помогите пожалуйста в решение задачи: 1)составить программу решения исходной задачи 2)описать алгоритм, отладить программу и получить результат В бригаде имеется 10 работников , у каждого работника своя часовая тарифная ставка (руб .) и определенное количество отработанных часов в месяц . Рассчитать сумму основной заработной платы (руб .) и сумму премии (руб .) работникам , которая начисляется в размере 30% от суммы основной оплаты .

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

Отвечает: Максим Кант !!! Здравствуйте, Demonic! на ваш вопрос Текст вопроса: Здравствуйте !Помогите пожалуйста в решение задачи: 1)составить программу решения исходной задачи 2)описать алгоритм, отладить программу и получить результат В бригаде имеется 10 работников , у каждого работника своя часовая тарифная ставка (руб .) и определенное количество отработанных часов в месяц . Рассчитать сумму основной заработной платы (руб .) и сумму премии (руб .) работникам , которая начисляется в размере 30% от суммы основной оплаты . Рассчитывается заработная плата и премия только для одного работника. В ответе вместо пояснения, что нужно вводить используются надписи "www" и "eee". ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 20.02.2008, 21:20 Приложение: program p124084; var n,m,w,z:real; begin write ('www'); !!! и что же здесь нужно вводить?! read (n); write ('eee'); !!! а здесь?! read (m); z:=m*n; w:=(z/100)*30; write ('zar',z); write ('prem',w); readkey; end.

Ответ отправил: Максим Кант (статус: 1-ый класс) Ответ отправлен: 20.02.2008, 19:35 Оценка за ответ: 5

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Demonic! Программа в приложении. Алгоритм: 1. Считать данные о всех работниках (тарифная ставка и отработанное время) 2. Вывести для каждого работника размер зар. платы и премии. Если будут вопросы, обращайтесь. Удачи! Приложение: const N = 10; {количество работников} percent = 0.3; {процент от суммы зар. платы, начисляемый как премия} type TWorker = record { информация о работнике } tariff : real; { тарифная ставка } time : real; { отработанное время } end; function bonus(w : TWorker):real; { рассчитывает размер премии } begin bonus := w.tariff*w.time*percent; end; var i : integer; v : real; w : array[1..N] of TWorker; begin { vvod dannyh o rabotnikax } for i := 1 to N do begin WriteLn('Tarifnaya stavka ',i,' rabotnika: '); readLn(w[i].tariff); WriteLn('Otrabotannoe vremya (chasov): '); ReadLn(w[i].time); end; { raschet i vyvod informacii o zar plate i premii } for i := 1 to N do begin WriteLn('Rabotnik #',i,':'); WriteLn('Zar plata: ',w[i].time*w[i].tariff:5:2,' premiya: ',bonus(w[i]):5:2); end; Readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 20.02.2008, 21:15 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Demonic! алгоритм е этой программы очень простой заводим запись с такими полями как : CostHour - Стоимость одно часа работы WorkHour - Количество отработанных часов WorkCost - Стоимость работы работника Prime - Премия работника Теперь создаем массив, в котором будем хранить наших работников, их у нас 10. После еэтого создаем цыкл цикл и в цыкле цикле заполняем инфу. информацию для каждого работника Исправлены грамматические ошибки. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 21.02.2008, 21:25 Приложение: const n=10; Type TRabotnik=record CostHour:word; WorkHour:Word; WorkCost:real; Prime:real; end; Var M:array[1..n] of TRabotnik; I:integer; begin For i:=1 to n do Begin Write('Стоимость одного часа работы '); Readln(m[i].CostHour); Write('Отработанные часы '); Readln(m[i].WorkHour); m[i].WorkCost:=m[i].CostHour*m[i].WorkHour; m[i].Prime:=WorkCost*0.3; end; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 6-ой класс) Ответ отправлен: 21.02.2008, 01:10 Оценка за ответ: 5

Вопрос № 124.129

Всем привет парни)))помогите сделать мне программу:Дан массив целых чисел.Найти сумму и количиство всех элементов,кратных 3 и 5.

Отправлен: 20.02.2008, 22:38 Вопрос задал: Bandos (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Bandos! Программа в приложении. Удачи! Приложение: const N = 10; var i, count, summ : integer; A : array[1..N] of integer; begin { заполняем массив случайными числами и вывводим его на экран } randomize; for i := 1 to N do begin A[i] := random(50); WriteLn(A[i]); end; { ищем все числа кратные 3 и 5, считаем их сумму } count := 0; summ := 0; for i := 1 to N do if (A[i]mod 3=0)and(A[i]mod 5=0) then begin inc(count); summ := summ + A[i] end; { выводим результат } WriteLn('Kol-vo: ',count); WriteLn('Summa: ', summ); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 20.02.2008, 22:53

Отвечает: Verena Здравствуйте, Bandos! Программа совершенно элементарная, решить её не представляет никакого труда. Идём в цикле по массиву и проверяем каждый элемент на кратность трём и пяти, а кратен он будет, если делится без остатка на 3 и делится без остатка на 5, что проверяется оператором mod, который берёт остаток от деления одного числа на другое. Например, 10 mod 2 = 0, потому что остаток от деления 10 на 2 равен 0. А 5 mod 3 = 2, потому что остаток от деления 5 на 3 равен 2. К тому же, например, 7 mod 10 = 7. Если мы хотим задать в if два условия, которые будут выполняться одновременно, то используем логический оператор and - условия справа и слева от and должны быть заключены в скобки. Вот решение: Var a: array [1..100] of integer; {Объявляем массив} i, n, s, k: integer; {Объявляем переменные} Begin writeln ('Vvedite n:'); {Ввод данных} readln (n); writeln ('Vvedite massiv:'); for i:=1 to n do readln (a[i]); k:= 0; s:= 0; {Обнуляем переменный для суммы и количества} for i:=1 to n do {В цикле идём по массиву} if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then {Если элемент без остатка делится на 3 и на 5} begin inc (k); {Наращиваем количество} s:= s+ a[i]; {Добавляем к сумме} end; writeln ('Kol-vo elementov, kratnih 3 i 5: ', k); {Выводим результат} writeln ('Summa elementov, kratnih 3 i 5: ', s); end. P.S.: Здесь вообще-то и девушки есть. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 20.02.2008, 22:57

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