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

Выпуск № 604
от 16.03.2008, 18:35

Вопрос № 126.685

Помогите пожалуйста!!! Эти задачи нужно через одномерный массив решить(очень прошу с коментариями)ну там фамилии как константы задаются)) 1)Среди списка фамилий найти самую короткую 2)В списке фамилий найти сколько фамилий на букву "А" Вопрос жизни и смерти.....зараннее огромное спасибо!!!

Отправлен: 10.03.2008, 19:54 Вопрос задал: Shtamburg Andrew (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Shtamburg Andrew! Программа с комментариями в приложении. Приложение: program q126685; uses crt; var sp:array[1..50]of string;//массив фамилий n,i,k,min,imin:integer; begin clrscr; write('n=');readln(n); //вводим размерность массива writeln('Vvedite spisok familij:'); for i:=1 to n do begin readln(sp[i]); //вводим фамилии end; min:=length(sp[1]);imin:=1; //ищем самую короткую фамилию for i:=1 to n do //у которой самая малая длина(length) if length(sp[i])<min then begin min:=length(sp[i]); imin:=i; end; k:=0; for i:=1 to n do if sp[i][1]='А'then begin k:=k+1; //считаем фамилии, начинающиеся на букву А end; Writeln('samaia korotkaia familia: ',sp[imin]); writeln('Na bukvu A ',k,' familii'); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 5-ый класс) Ответ отправлен: 10.03.2008, 20:41 Оценка за ответ: 5

Отвечает: Marked One Здравствуйте, Shtamburg Andrew! В приложении, комментарии там же. Будут вопросы, то пишите Удачи!!! убрана директива {$APPTYPE CONSOLE} - она используется в Delphi. Эксперт сам обратил внимание на это в мини-форуме. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 10.03.2008, 21:25 Приложение: {№1} program Project1; const N=10; //Длина массива с фамилиями var Surnames: array [1..N] of String; //Массив с фамилиями длиной N i, //Счетчик для цикла поиска самой короткой фамилии Smallest:integer; //Длина самой короткой фамилии begin for i:=1 to n do readLn(surnames[i]); //заполняем массив элементами smallest:=length(surnames[1]); //Первое значение длины for i:=1 to N do //Цикл поиска if length(surnames[i])<smallest then //если длина текущего элемента массива меньше, то smallest:=length(surnames[i]); //изменяем длину Write('The Length of The smallest surname is: '); //Вывод длины самой короткой фамилии WriteLn(smallest); readln(i); end. {№2} const N=10; //Длина массива с фамилиями var Surnames: array [1..N] of String; //Массив с фамилиями длиной N i, //Счетчик для цикла поиска самой короткой фамилии countofA:integer; //Четчик фамилий на латинскую A begin for i:=1 to n do readLn(surnames[i]); //заполняем массив элементами countofA:=0; //Инициализация счетчика for i:=1 to N do //Цикл поиска if surnames[i][1]='A' then //если текущая фамилия начинается на А, то countofa:=countofa+1; //увеличиваем счеичик Write('Count of surnames with A is: '); //Вывод кол-ва WriteLn(countofa); readln(i); end.

Ответ отправил: Marked One (статус: 7-ой класс) Ответ отправлен: 10.03.2008, 21:16 Оценка за ответ: 5

Вопрос № 126.714

Помогите пожалуйста написать програму на Паскале на тему процедуры и функции.Условие:Вывести на екран векторы,сложеные с елементов целочисловых матриц A(n,m) и B(c,d) кратные L. N,c,d,m,<=15,L-целое.

Отправлен: 10.03.2008, 22:44 Вопрос задал: Соловьёв Дмитрий Олександрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Соловьёв Дмитрий Олександрович! Задача не очень сложная, я обошелся двумя процедурами-ввода и вывода. Пешение в приложении с комментариями. адача построена очень просто, поэтому легко разберетесь. Приложение: program q126714; uses crt; type Tmass=array[1..50]of integer; Tmatr=array[1..15,1..15]of integer; var a,b:Tmatr; p,q:Tmass; L,n,m,c,d,i,j:integer; procedure Vvod(n,m:integer;var a:Tmatr); begin randomize; for i:=1 to n do //создаем матрицу begin for j:=1 to m do begin a[i,j]:=random(10)+1; //случайные числа из интервала[1,10] write(a[i,j]:3); end; writeln; end; end; procedure Vyvod(n,m:integer;a:Tmatr;var p:Tmass); var k:integer; //получаем вектора и выводим на экран begin k:=0; for i:=1 to n do for j:=1 to m do if a[i,j] mod L=0 then begin k:=k+1; //считаем элементы кратные L p[k]:=a[i,j]; //создаем из них вектор end; for i:=1 to k do //выводим вектор на экран write(p[i],' '); end; begin clrscr; write('n=');readln(n); //задаем размерность первого массива write('m=');readln(m); writeln('Matrica A:'); Vvod(n,m,a); //вводим массив А write('c=');readln(c); //задаем размерность второго массива write('d=');readln(d); writeln('Matrica B:'); Vvod(c,d,b); //вводим массив В write('L=');readln(L); //вводим число L writeln('Vector P:'); Vyvod(n,m,a,p); //получаем и выводим на экран вектор Р(из массива А) writeln; writeln('Vector Q:'); //получаем и выводим на экран вектор Q(из массива B) Vyvod(c,d,b,q); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 5-ый класс) Ответ отправлен: 10.03.2008, 23:33

Вопрос № 126.779

Уважаемые эксперты, помогите пожалуйста запрограммировать метод хорд, только желательно с пояснениями, а то препод 2 поставит. Заранее огромное спасибо.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Семин Алексей Юрьевич! Смотрите приложение. Алгоритм метода можно найти тут. Удачи! Приложение: const h=0.00001; g=0.000000001; var a,b:real; {сама функция Y:=X^3 - 5} function F(x:real):real; begin F:=x*x*x-5; end; {апроксимация производной} function E(x,y:real):real; begin E:=(F(x)*h)/(F(x+h)-y); end; begin {вводим первую итерацию} write('Enter X:');readln(a); {вычисляем апроксимацию производной} b:=E(a,b); {повторяем пока приращение не будет меньше определенной величины} while abs(b)>g do begin {следующий шаг} a:=a-b; b:=E(a,b); end; writeln('X:',a:12:10,' Y:',F(a):12:10); readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 126.788

Здравствуйте!!! Написать программу с использованием переменных типа запись с полями, указанными ниже.Вывести на экран всю информацию о книгах, изданных 2003году. Поля записи Название книги Автор Год издания Кол. страниц Заранее огромное спасибо!!!!!!!

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

Отвечает: Marked One Здравствуйте, Бардин Сергей Сергеевич! Программа в приложении. Данные о книгах вводятся с клавиатуры Удачи!!! Приложение: program Otv; Type TBookInfo = record Title, Author : string; Pages, Year : integer; end; const N=10; NeedYear=2003; var BookInfo:array[1..N] of TBookInfo; i:Integer; begin for i:=1 to n do begin Write('ь'); WriteLn(i); Write('‚ўҐ¤ЁвҐ Ё¬п  ўв®а : '); ReadLn(BookInfo[i].Author); Write('‚ўҐ¤ЁвҐ ­ §ў ­ЁҐ: '); ReadLn(BookInfo[i].Title); Write('‚ўҐ¤ЁвҐ Ј®¤ Ё§¤ ­Ёп: '); ReadLn(BookInfo[i].Year); Write('‚ўҐ¤ЁвҐ Є®«-ў® бва ­Ёж: '); ReadLn(BookInfo[i].Pages); end; for i:=1 to n do begin if BookInfo[i].Year=NeedYear then begin Write('Љ­ЁЈ  ь'); WriteLn(i); Write('Ђўв®а: '); WriteLn(BookInfo[i].Author); Write('Ќ §ў ­ЁҐ: '); WriteLn(BookInfo[i].Title); Write('Љ®«-ў® бва ­Ёж: '); WriteLn(bookInfo[i].Pages); Write('ѓ®¤ Ё§¤ ­Ёп: '); WriteLn(BookInfo[i].Year); end; end; ReadLn(i); end.

Ответ отправил: Marked One (статус: 7-ой класс) Ответ отправлен: 11.03.2008, 15:56

Отвечает: Пупорев Юрий Борисович Здравствуйте, Бардин Сергей Сергеевич! Решение задачи в приложении. Приложение: program knigi; uses crt; type kniga=record //тип запись avtor:string[20]; god:integer; str:integer; end; kn=array[1..30]of kniga;//массив записей var sp:kn; n,i,j:integer; begin clrscr; write('n=');readln(n); for i:=1 to n do //вводим данные о книгах begin write('avtor: ');readln(sp[i].avtor); write('god: ');readln(sp[i].god); write('str: ');readln(sp[i].str); end; writeln; writeln('Spisok knig 2003 goda:'); writeln; for i:=1 to n do if sp[i].god=2003 then //выбираем книги 2003 года и выводим их на экран begin writeln(sp[i].avtor,' ',sp[i].god,' god ',sp[i].str,' str'); end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 5-ый класс) Ответ отправлен: 11.03.2008, 16:07

Вопрос № 126.807

Пожалуйста помогите решить задачу в pascal на тему Матричние преобразования...Условие: В квадратной матрице P поменять местами елементи побочной диагонали и К-того столбца , предварительно отсортировав елементи диагонали по-убиванию.

Отправлен: 11.03.2008, 17:01 Вопрос задал: Зарубенко Максим Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Зарубенко Максим! Решил задачу по-проще, с использованием дополнительных массивов. Это не совсем правильно, зато понятно и наглядно. Можно провести сортировку диагонали и перемену местами элементов матрицы без дополнительных массивов, но я запутался со вложенными циклами при сортировке. Решение в приложении. Приложение: uses crt; var E:array[1..20,1..20]of integer; a,b:array[1..20]of integer; n,k,i,j,x:integer; begin clrscr; write('n=');readln(n); write('k=');readln(k); writeln('Ischodnaja matrica:'); randomize; for i:=1 to n do begin for j:=1 to n do begin E[i,j]:=random(20); write(E[i,j]:4); end; writeln; end; readln; for i:=1 to n do //выделяем побочную диагональ for j:=1 to n do if j=n-i+1 then a[i]:=E[i,j]; for i:=1 to n-1 do for j:=1 to n-1 do if a[j]<a[j+1] then //сортируем ее begin x:=a[j];a[j]:=a[j+1];a[j+1]:=x; end; for i:=1 to n do for j:=1 to n do if j=k then b[i]:=E[i,j]; //выделяем столбец К writeln('Rezultat:'); for i:=1 to n do begin for j:=1 to n do begin if j=k then E[i,j]:=a[i] //заполняем матрицу по условию else if j=n-i+1 then E[i,j]:=b[i]; write(E[i,j]:4); end; writeln; end; readln end.

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

Отвечает: Verena Здравствуйте, Зарубенко Максим! Не очень поняла, зачем здесь дополнительные массивы, предлагаю другой вариант. Элементы побочной диагонали удовлетворяют условию i+j=n+1 или, выражая через одну переменную индекса, (i, n-i+1). Таких элементов в квадратной матрице порядка n будет n. Сортировку элементов побочной диагонали можно производить аналогично сортировке одномерного массива (я делаю это методом пузырька). Остальное, думаю, будет ясно из комментариев. Удачи! Приложение: Var n, i, j, t, k: integer; a: array [1..25, 1..25] of integer; begin writeln ('Vvedite n: '); {Ввод данных} readln (n); writeln ('Vvedite matritzu A: '); for i:=1 to n do for j:=1 to n do begin writeln ('A[', i, ', ', j, ']='); read (a[i, j]); end; writeln ('Vvedite k: '); readln (k); {Вывод начальной матрицы} writeln; for i:=1 to n do begin for j:=1 to n do write (a[i, j]:3); writeln; end; {Сортировка методом пузырька} for i:=1 to n-1 do for j:=i+1 to n do if a[i, n-i+1] < a[j, n-j+1] then {Если элемент меньше} begin {Меняем их местами} t:= a[i, n-i+1]; a[i, n-i+1]:= a[j, n-j+1]; a[j, n-j+1]:= t; end; {Обмен} for i:=1 to n do begin t:= a[i, n-i+1]; {Меняем местами элемент с побочной диагонали} a[i, n-i+1]:= a[i, k]; {С элементом к-ого столбца} a[i, k]:= t; end; {Вывод результата} writeln; for i:=1 to n do begin for j:=1 to n do write (a[i, j]:3); writeln; end; end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 11.03.2008, 19:11 Оценка за ответ: 5 Комментарий оценки: Огромное ВАМ спасибо !!! Виручили! Буду рекоммендовать Ваш сайт всем друз"ям и знакомим)

Вопрос № 126.809

здравствуйте уважаемие работники сайта! Помогите пожалуйста решить проблему которая заключается в решении задачи в turbo pascal. Условие: Сощитать суму елементов главних диагоналей матриц Х(n,n) и Y(m,m). Примечание N, m <= (меньше ровно) 25. Зарание спасибо!

Отправлен: 11.03.2008, 17:07 Вопрос задал: Зарубенко Максим Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Verena Здравствуйте, Зарубенко Максим! Элементы на главной диагонали квадратной матрицы имеют равные индексы (т.е., например, для матрицы 3х3 это будут элементы (1,1), (2,2), (3,3)) и их количество равно размерности матрицы. Поэтому подсчитать их сумму можно с помощью одного цикла с числом итераций, равным размерности матрицы. Решение Вашей задачи в приложении. Удачи! Приложение: Type matr = array [1..25, 1..25] of integer; {Тип матрицы} Var m, n, i, j: integer; x, y: matr; function Summ (a: matr; n: integer): integer; {Функция рассчёта суммы элементов главной диагонали} Var s, i: integer; begin s:= 0; {Обнуляем сумму} for i:=1 to n do {Проходим по главной диагонали} s:= s+a[i, i]; Summ:= s; {Возвращаем значение} end; begin writeln ('Vvedite n: '); {Ввод данных} readln (n); writeln ('Vvedite matritzu X: '); for i:=1 to n do for j:=1 to n do begin writeln ('x[', i, ', ', j, ']='); read (x[i, j]); end; writeln ('Vvedite m: '); readln (m); writeln ('Vvedite matritzu Y: '); for i:=1 to m do for j:=1 to m do begin writeln ('y[', i, ', ', j, ']='); read (y[i, j]); end; writeln ('Summa v X: ', Summ (x, n)); {Вывод результата} writeln ('Summa v Y: ', Summ (y, m)); end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 11.03.2008, 18:07

Вопрос № 126.825

Уважаемые эксперты! Прошу Вас, помогите решить задачи. Обе задачи надо решать через массивы, желательно решать используя динамическое программирование. №1 Железная дорога с односторонним движением имеет N станций. Известны цены билетов от i-той станции до j-ой (i < j, т.к. в обратную сторону проезда нет). 1)Найти минимальную стоимость проезда от начала до конца (с учётом возможной экономии за счёт пересадок). 2)На каких станциях нужно сделать пересадки. №2 Имеется K произвольных положительных чисел х1, х2, …, хК и число N. 1)Выяснить, можно ли получить число N, складывая некоторые из чисел х1, х2, …, хК (каждое число можно использовать только по одному разу). 2)Какие числа были использованы.

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

Отвечает: Delph Здравствуйте, MissM! В приложении - вариант решения второй задачи. Идея решения состояла в использовании рекурсии (подпрограмма прямо или косвенно вызывает сама себя). Недостаток программы в том, что программа выводит лишь одно из возможных решений (но даже с этим недостатком программа получилась большой и сложной). Если для Вас важно, чтобы выводились все решения, сообщите мне об этом, я подумаю, как улучшить программу. Приложение: Program Pr126825_2; uses CRT; Const M = 48; { Функция перевода числа в его строковое отображение } Function IntToStr(k: Integer): String; var i, x: Integer; s1, s2: String; begin s1 := ''; x := abs(k); Repeat s1 := s1 + CHR(x mod 10 + ORD('0')); x := x div 10; Until x = 0; if k < 0 then s2 := '-' else s2 := ''; for i := Length(s1) downto 1 do s2 := s2 + s1[i]; IntToStr := s2; end; Var Massiv: Array[1..M] of Integer; N: Integer; Res: String; { Результат поисков } { Рекурсивная процедура для поиска подходящих комбинаций } Procedure Test(k, Summ: Integer; str: String); var j: Integer; s: String; begin if Summ = N then Res := str; if k < M then begin j := k + 1; Test(j, Summ, str); if Summ + Massiv[j] <= N then begin if str = '' then s := IntToStr(Massiv[j]) else s := str + ' + ' + IntToStr(Massiv[j]); Test(j, Summ + Massiv[j], s); end; end; end; Var i: Integer; Begin ClrScr; Randomize; Res := ''; WriteLn('Исходный массив чисел (случайное заполнение):'); for i := 1 to M do begin Massiv[i] := Random(1000); Write(Massiv[i]: 4); if i mod 16 = 0 then WriteLn; end; WriteLn; Write('N = '); ReadLn(N); Test(1, 0, ''); if Res <> '' then WriteLn(N, ' = ', Res) else WriteLn('Не найдено ни одной подходящей комбинации!'); ReadLn; End. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 13.03.2008, 10:01 Оценка за ответ: 4 Комментарий оценки: Спасибо!

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