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

Выпуск № 586
от 27.02.2008, 09:35

Вопрос № 124.190

Здравствуйте, уважаемые эксперты! Могли бы вы помочь мне решить задачи по Паскалю: 1. Дана последовательность из n вещественных чисел. Преобразовать ее по следующему правилу: все отрицательные элементы перенести в ее нача-ло, а все остальные в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов. (по одномерным массивам) 2. В библиотеке для каждого заказывающего книгу читателя заполняется карточка: фамилия, дата заказа, дата выдачи книги. Определить, сколько заказов было не удовлетворено.(по записям) Огромное спасибо заранее!

Отправлен: 21.02.2008, 10:34 Вопрос задала: Томина Наталья (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Томина Наталья! Первая программа в приложении. Удачи! Приложение: uses crt; const N = 10; var m, m1: array[1..N] of real; i, k : integer; begin Randomize; for i:= 1 to N do begin k := random(100)-50; m[i] := k/4.5; WriteLn(m[i]:5:2); end; k := 0; for i := 1 to N do if m[i] < 0 then begin Inc(k); m1[k] := m[i]; end; for i:= 1 to N do if m[i] >= 0 then begin Inc(k); m1[k] := m[i]; end; Writeln; for i := 1 to N do WriteLn(m1[i]:5:2); Readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 21.02.2008, 17:46 Оценка за ответ: 5 Комментарий оценки: Спасибо большое Николай Владимирович!!! Я вам очень признательна!☺ Я рада,что есть такие замечательные люди...отзывчивые,такие как вы!Благодарна вам.

Вопрос № 124.276

Здравствуйте уважаемые эксперты, помогите пожалуйста составить программу: Написать программу с использованием переменных типа запись с полями: (Телевизор (марка)) (Страна (поставщик)) (Год выпуска) (цена) Вывести информацию о указанной марке телевизора. Считать из файла информацию, указанную для известной произвольной марки, или предложить свою версию для считывания информации.

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

Отвечает: Шемет Станіслав Васильович Здравствуйте, Дебелов Владимир Валентинович! Вот вам программа правда здесь немного больше чем вы просили. Просто я очень увлекся. Приложение: const n=10; Type Ttv=record Model:string[50]; Country:string[50]; Year:word; Cost:word; end; var m:array[1..n]of Ttv; f:file of ttv; i,j:integer; Procedure Write_Array; begin for j:=1 to n do Begin Write('марка '); Readln(m[j].Model); Write('поставщик'); Readln(m[j].Country); Write('Год выпуска '); Readln(m[j].Year); Write('Цена '); Readln(m[j].Cost); Writeln; end; end; Procedure Write_File; begin Rewrite(f); for i:=1 to j do Write(f,m[i]); close(f); end; Procedure Read_File; begin Reset(f); j:=0; repeat inc(j); read(f,m[j]); until eof(f); close(f); end; Procedure Write_Screen; Begin for i:=1 to j do begin Writeln('марка ',m[j].Model); Writeln('поставщик ',m[j].Country); Write('Год выпуска ',m[j].Year); Write('Цена ',m[j].Cost); Writeln; end; end; Begin assign(f,'<путь к файлу>'); Repeat writeln('Зчитать информацыю о телевизорах из файла введите 0'); writeln('Записать информацию о телевизорах в файл 1'); writeln('Заполнить информацию о теливизорах введите 2'); writeln('Вывести информацию о телевизорах на монитор введите 3'); writeln('Выйти введите 4'); Readln(i); Writeln; case i of 0:Read_file; 1:Write_File; 2:Write_Array; 3:Write_Screen; end; until i=4; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 6-ой класс) Ответ отправлен: 21.02.2008, 22:59 Оценка за ответ: 5 Комментарий оценки: Спасибо большое!!! программа классно работает. очень приятно что есть такие грамотные специалисты, а то у меня как я не пытался так и не получилась эта програмка, ЕЩЁ раз спасибо!!!

Вопрос № 124.284

Уважаемые эксперты! Помогите пожалуйста ответить на вопрос( массив в паскале) Написать типовой алгоритм обработки массивов поиск минимального элемента Заранее спасибо

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, ksana09! Программа в приложении. Удачи! Приложение: const n=10; var a:array[1..n]of integer; i,j:integer; begin{создаем массив с помощью генератора случайных чисел} randomize; for i:=1 to n do begin{генерируем число и выводим} a[i]:=random(100); write(a[i]:4); end; j:=1;{настраиваемся на массив} for i:=2 to n do{если меньше запоминаем индекс} if a[i]<a[j] then j:=i; {выводим результат} write('Minimun:=',a[j]) end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 21.02.2008, 21:54

Отвечает: Николай Владимирович / Н.В. Здравствуйте, ksana09! Это очень просто: изначально предполагаете, что первый элемент массива минимальный и сохраняете его номер (1) в переменную min. Перебираете все элементы массива начиная со второго и сравниваете значение текущего элемента со значением элемента массива, записанного в массиве под номером min. Если значение меньше, то заменяете min на номер текущего элемента. В итоге в переменной min будет сохранен номер ячейки с минимальным значением. В приложении реализация данного кода. Удачи! Приложение: const N = 10; var M : array[1..N] of integer; function findMin:integer; var i, min : integer; begin min := 1; for i := 2 to N do if M[i] < M[min] then min := i; findmin := min; end; var i : integer; begin randomize; for i := 1 to N do begin M[i] := random(100); WriteLn(M[i]); end; WriteLn; WriteLn('MIN: ', M[findmin]); ReadLn; end.

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

Вопрос № 124.310

1)Дан массив целых чисел. Найти количество элементов массива, значения которых положительны и не превосходят заданного числа А. 2)Дан двумерный массив. Найти сумму отрицательных и положительных элементов данного массива. 3)Дана строка. Подсчитать сколько слов в данной строке.

Отправлен: 22.02.2008, 00:38 Вопрос задал: Симачков Сергей Юрьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: SHERRY !!! Здравствуйте, Симачков Сергей Юрьевич! Код первых двух задач в приложении. Третья пару дней назад обсуждалась. Вопрос номер 123903. Удачи! Ни в одной задаче не объявлены константы. Неправильно решена первая задача: требовалось, чтобы элемент массива не превосходил заданного числа А. Добавлены ответы на вопрос 123903. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 22.02.2008, 21:58 Приложение: Первая задача. const N = 10; !!! var ms: array [1..n] of integer; {предположим, имеем массив размером n, в котором хранятся целые числа} count,i,A:integer; {~~~~} begin {допустим, что массив заполнен и ЦЕЛОЕ число А задано} count:=0; for i:=1 to n do if ms[i]>o and ms[i]>A then inc(count); !!! неверно. В вопросе сказано "не превосходят заданного числа А", а тут с точностью наоборот. Ниже приведена правильная строка: if (ms[i]>0) and (ms[i]<=A) then inc(count); {ответ в переменной count} end. Вторая задача. const N = 10; M = 10; !!! var ms: array [1..n, 1..m] of integer; {предположим, имеем массив размером n*m, в котором хранятся целые числа} sum1,sum2,i,j:integer; {~~~~} begin {допустим, что массив заполнен} sum1:=0; sum2:=0; for i:=1 to n do for j:=1 to m do if ms[i,j]>0 then sum1:=sum1+ms[i,j] else sum2:=sum2+ms[i,j]; {сумма отрицательных элементов в переменной sum2, положительных - в sum1} end. ======================== Ответы на вопрос 123903 ======================== Составить программу, определяющую количество слов в произвольном тексте, введенном с клавиатуры. заранее спасибо!!! Отправил: Бардин Сергей Сергеевич (Посетитель) Дата отправки: 19.02.2008, 18:10 Поступило ответов: 3 Состояние: В очереди (до окончания - менее 2 суток) Ответить В другую рассылку Редактировать вопрос Удалить вопрос Ответы Отвечает: Артём1983 Здравствуйте, Бардин Сергей Сергеевич! Смотрите код программы в приложении. Приложение: {123903} uses crt; var s:string; i,word_counter:integer; begin clrscr; write('введите строку = '); readln(s); for i:=1to length(s)do begin if s[i]=' ' then inc(word_counter); if i=length(s) then inc(word_counter); end; writeln('в строке ',word_counter,' слов.'); readln; end. Ответил: Артём1983 (статус: 9-ый класс) Дата отправки: 19.02.2008, 23:37 Редактировать ответ Удалить ответ Отвечает: Николай Владимирович / Н.В. Здравствуйте, Бардин Сергей Сергеевич! Программа в предложении. Отличается от предыдущей тем, что между словами и в конце и (или) начале строки может быть введено любое количество пробелов. Удачи! Приложение: function Trim(const S: string): string; var I, L: Integer; res : string; begin L := Length(S); I := 1; while (I <= L) and (S[I] <= ' ') do Inc(I); if I > L then res := '' else begin while S[L] <= ' ' do Dec(L); Res := Copy(S, I, L - I + 1); end; Trim := res; end; Function CountWords(s : String) : Integer; var res : integer; begin {delete double spaces} s := Trim(s); While pos(' ', s) > 0 do delete(s, pos(' ',s), 1); res := 0; s := Trim(s); While pos(' ',s)>0 do begin s := copy(s, pos(' ',s)+1, Length(s) - pos(' ', s)); s := Trim(s); inc(res) end; CountWords := res+1; End; var s : string; count : integer; begin WriteLn('Vvedite predlozhenie:'); ReadLn(s); WriteLn('Slov: ',CountWords(s)); ReadLn; end. Ответил: Николай Владимирович / Н.В. (статус: Профессионал) Дата отправки: 19.02.2008, 23:56 Редактировать ответ Удалить ответ Отвечает: Шемет Станіслав Васильович Здравствуйте, Бардин Сергей Сергеевич! Вот вам программа Приложение: Var s:string; i,j:integer; b:boolean; begin b:=true; j:=1; readln(s); for i:=1 to length(s) do if b and (s[i]=#32) then begin b:=false; inc(j); end else b:=true; Writeln(j); readln; end. Ответил: Шемет Станіслав Васильович (статус: 4-ый класс) Дата отправки: 20.02.2008, 00:11 --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 6-ой класс) Ответ отправлен: 22.02.2008, 01:09

Отвечает: Шемет Станіслав Васильович !!! Здравствуйте, Симачков Сергей Юрьевич! Вот программа в приложении Неверно решена первая задача. Требовалось найти элементы не превышающие заданное число А. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 22.02.2008, 22:09 Приложение: const n=100; Var i,col,A:integer; M:array[1..n] of integer; Begin randomize; for i:=1 to n do m[i]:=random(100); Readln(A); col:=0; for i:=1 to n do if (m[i]>0)and(m[i]>A) then !!! неверно. требуется, чтобы элемент не превышал заданное число А. Ниже приведена правильная строка: if (m[i]>0)and(m[i]<=A) then inc(col); Writeln(col); readln; end. const n=25; n1=25; var m:array[1..n,1..n1] of integer; i,j:integer; Min,Max:integer; begin Randomize; for i:=1 to n do for j:=1 to n1 do if m[i,j]<0 then Min:=Min+m[i,j] else Max:=Max+m[i,j]; Writeln('Max= ', max); Writeln('Min= ,Min); Readln; end. Var s:string; i:byte; col:byte; B:boolean; begin b:=true; col:=0; Readln(s); for i:=1 to length(s) do if (s[i]=#32)and b then begin inc(col); b:=false; end else if s[i]<>#32 then b:=true; Writeln(col); Readln; end. --------- Любовь это прекрасно!!!

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

Вопрос № 124.311

Дано целое число N. Необходимо определить является ли оно простым числом. Помогите решить ;) Вроде просто, а не получается..

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

Отвечает: SHERRY Здравствуйте, Константин Олегович! Функция (в приложении) вернёт TRUE, если число простое и FALSE в противном случае. Если вопрос состоит ещё и в скорости работы алгоритма, то можно делить на все нечётные числа >2, т.к. они не будут являться простыми. Удачи! Приложение: function prost(var ch:integer):boolean; var rez:boolean; z,r:integer; begin rez:=true; z:=ch; for r:=2 to (z div 2) do begin if (z mod r) = 0 then begin rez:=false; break; end; end; prost:=rez; end; --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 6-ой класс) Ответ отправлен: 22.02.2008, 00:57 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Константин Олегович! Вот программа: Можно зделать и проще чем приложении просто в приложении при большых числах в 2 раза уменьшаеться количество повторов цикла вот более простой вариант: Var N:integer; i:integer; b:boolean; begin Readln(n); n:=abs(n); i:=n-1; b:=true; for i:=i to 2 do if n mod i=0 then begin b:=false; Break; end; if b then Write('Prost') else Write('NoProst'); Readln; end. Приложение: Var N:integer; B:boolean; i,j:integer; begin Readln(N); if n>5 then i:= n div 2 else i:=n-1; b:=true; for j:=2 to i do if not (n mod j <>0) then begin b:=false; break; end; if n=2 then b:=false; if n=1 then b:=true; if b then Write('Prost') else Write('NoProst'); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 6-ой класс) Ответ отправлен: 22.02.2008, 02:20

© 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