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

Выпуск № 626
от 08.04.2008, 06:35

Вопрос № 130.155

Помогите, пожалуйста решить задачи: 1)по теме Подпрограммы. Условие: Даны шести элементные векторы х, y, z и квадратные матрицы А, В и С шестого порядка. Вычислить: (Ах,By)+(Cx,y)/(x,By). 2)по теме Записи. описать процедуру Ирония судьбы (С), которая печатает фамилии двух (любых) жителей из списка С, живущих в разных городах по одному и тому же адресу. Спасибо. Приложение: Приложение ко второму вопросу: type строка=packed arra [1..20] of char; житель=record; фамилия, город:строка; адрес:record; улица:строка; дом, квартира: 1..999 End; End; список=array [1..15] of житель;

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Asdfaq! По второй задаче: Вы приводите тип packed array [1..20] of char; В Паскале нет смысла писать packed, т.к. упаковка массива происходит автоматически (см. Help Turbo Pascal). Поэтому нужно просто писать fam:string[20]; Если название улицы, номер дома и квартиры никакой роли не играют, их можно объединить в строке адрес(правда записывать надо по одному стандарту, например Лесная 20-25). Столько ненужной писанины убавится. Если же это все важно, то напишите, будем добавлять писанину, если конечно сами не справитесь. Просто везде вместо sp[i].adr нужно писать sp[i].adr.ulc; + sp[i].adr.dom; + sp[i].adr.kvr;. Описание процедуры увеличится почти в шесть раз. Я поставил в программе n=3, чтобы быстрее тестировать. Проверите программу, замените 3 на 15. Код программы в приложении. Приложение: uses crt; const n=3; type gitel=record fam,gor:string[20]; adr:string[20]; end; sp_gt=array[1..n] of gitel; var sp:sp_gt; i:integer; Procedure Sluch(b:sp_gt); var i,j:integer; begin for i:=1 to n do for j:=1 to n do if (i<>j)and(sp[i].adr=sp[j].adr)and(sp[i].gor<>sp[j].gor) then begin writeln(sp[i].fam); writeln(sp[j].fam); readln; exit; end; end; begin clrscr; for i:=1 to n do begin writeln('Zapis ',i); write('Familia:');readln(sp[i].fam); write('Gorod:');readln(sp[i].gor); write('Adres:');readln(sp[i].adr); end; writeln; writeln('Givut po odnomu adresu:'); Sluch(sp); end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 02.04.2008, 10:59 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за программу и подробное описание, попробовал переделать ее согласно первоначальному условию, действительно вышло нерационально и громостко

Вопрос № 130.159

Здравствуйте уважаемые эксперты, будьте добры помочь вот в чем: вывести положительные элементы последовательности из 20 чисел, входящих в интервал (-3;3). Заранее благодарен!

Отправлен: 02.04.2008, 08:36 Вопрос задал: Хаустов Денис Игоревич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Командин Константин Евгениевич Здравствуйте, Хаустов Денис Игоревич! Думаю алгоритм может выглядить следующим образом: var s,e,r,d:real;{s - начальное значение e - конеченое, r - результат вычисления шага d - размер шага} l,i:integer;{i - индекс цикла, l- количество шагов} begin l:=20; s:=-3; e:=3; d := (abs(s)+abs(e))/l; {определили размер шага} writeln('shag:',d:5:4); for i:=1 to l do begin r := s + (d*i); if r > 0 then writeln(r:5:4); end; end.

Ответ отправил: Командин Константин Евгениевич (статус: 2-ой класс) Ответ отправлен: 02.04.2008, 09:02 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: Пупорев Юрий Борисович Здравствуйте, Хаустов Денис Игоревич! Поскольку у вас сказано, что нужно вывести положительные элементы последовательности из 20 чисел, входящих в интервал (-3;3), а о харктере последовательности ничего не говорится, то можно принять, что это последовательность случайных чисел. Поскольку у вас указан интервал (-3,3) и вы не опечатались то по правилам в массив должны входить числа >-3 и <3, числа видимо вещественные. Исходя из всего сказанного я и написал программульку, код которой в приложении. Приложение: uses crt; var a:array[1..20]of real; i:integer; begin clrscr; randomize; writeln('Ishodny massiv:'); for i:=1 to 20 do begin a[i]:=random(5)+random-3; write(a[i]:6:2); end; writeln; writeln('Pologitelnye elementy:'); for i:=1 to 20 do if a[i]>0 then write(a[i]:6:2); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 02.04.2008, 09:09 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!

Вопрос № 130.160

уважаемые эксперты, помогите пожалуйста решить данную задачу:в целочисленном массиве 5 на 4 отсортировать столбцы. с пасибо за внимание

Отправлен: 02.04.2008, 08:40 Вопрос задала: Залилова Регина Рафиковна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Залилова Регина Рафиковна! Поскольку вы не написали в каком порядке отсортировать, я сделал по возрастанию. Если нужно по убыванию в строчке if a[k,j>a[k+1,j] замените знак > на <. Код в приложении. Приложение: uses crt; var a:array[1..5,1..4]of integer; i,j,k,x:integer; begin clrscr; randomize; writeln('Ishodnaia matrica:'); for i:=1 to 5 do begin for j:=1 to 4 do begin a[i,j]:=random(20); write(a[i,j]:3); end; writeln; end; readln; for j:=1 to 4 do for i:=1 to 4 do for k:=1 to 4 do if a[k,j]>a[k+1,j] then begin x:=a[k,j]; a[k,j]:=a[k+1,j]; a[k+1,j]:=x; end; writeln('Sortirovannaia matrica:'); for i:=1 to 5 do begin for j:=1 to 4 do begin write(a[i,j]:3); end; writeln; end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 02.04.2008, 09:41

Отвечает: Жиляев М. Ю. Здравствуйте, Залилова Регина Рафиковна! Сортировка производится по возрастанию методом пузырьков. Код с коментариями в приложении. Приложение: uses crt; {подключение модуля crt} const n=5; {количество строк} m=4; {количество столбцов} var i,j,k,q:integer;{q-дополнительная переменная, i,j,k-счетчики} a:array [1..n,1..m] of integer;{матрица} begin clrscr; {очистка экрана} writeln('Исходная матрица'); randomize; {инициализация генератора случайных чисел} for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(20);{присвоение случайного числа} write(a[i,j]:5); {вывод его на экран} end; writeln; end; writeln; writeln('Отсортированная матрица'); for j:=1 to m do for i:=1 to n-1 do for k:=i+1 to n do if a[k,j]<a[i,j] then begin {сортируем по возростанию} q:=a[i,j]; a[i,j]:=a[k,j]; a[k,j]:=q; end; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5);{отсортированная матрица} writeln; end; readln; end.

Ответ отправил: Жиляев М. Ю. (статус: 1-ый класс) Ответ отправлен: 03.04.2008, 01:19

Вопрос № 130.179

Помогите пожалуйста решить эту задачу: Задан массив размером 10 надо сформировать 2 массива размером 5, включая в первый элементы исходного массива с четными индексами, а во второй - с нечентыми. (В цикле выполнять P(I)=X(2*I), T(I)=X(2*I-1) при I=1, . . . , 5. );

Отправлен: 02.04.2008, 11:27 Вопрос задал: Штурба Анатолий Васильевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Койлыбаев Алмас Здравствуйте, Штурба Анатолий Васильевич! Программа в приложении Приложение: var a:array[1..10]of integer; b,c:array[1..5]of integer; i:integer; begin randomize; writeln('Ishodnyi massiv'); for i:=1 to 10 do begin a[i]:=random(100); write(a[i],' '); end; writeln; for i:=1 to 5 do begin b[i]:=a[i*2]; c[i]:=a[i*2-1]; end; writeln('Massiv s 4etnymi elemntami'); for i:=1 to 5 do write(b[i],' '); writeln; writeln('Massiv s ne 4etnymi elemntami'); for i:=1 to 5 do write(c[i],' '); end.

Ответ отправил: Койлыбаев Алмас (статус: 1-ый класс) Ответ отправлен: 02.04.2008, 11:41

Вопрос № 130.181

Дана матрица z=[Zij] размером (m*p) m=4, p=3 |1,2 2,7 -1,1 | z=|0,0 0,5 3,8 | |2,5 -3,0 7,7 | |4,1 0,0 0,0| составить программу нахождения и печати номера строки и номера столбца, на пересечении которых расположены наибольший и наименьший элементы матрицы Z.

Отправлен: 02.04.2008, 11:38 Вопрос задал: Штурба Анатолий Васильевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Койлыбаев Алмас Здравствуйте, Штурба Анатолий Васильевич! Программа в приложении Приложение: program max_min; uses crt; var z:array[1..3,1..4]of integer; i,j,max,min,max_stroka,max_stolbec,min_stroka,min_stolbec:integer; begin clrscr; randomize; writeln('ishodnyi massiv'); for i:=1 to 3 do begin for j:=1 to 4 do begin z[i,j]:=random(100); write(z[i,j],' '); end; writeln; end; max:=z[1,1]; min:=z[1,1]; for i:=1 to 3 do for j:=1 to 4 do begin if(z[i,j]>max)then begin max:=z[i,j]; max_stroka:=i; max_stolbec:=j; end; if(z[i,j]<min)then begin min:=z[i,j]; min_stroka:=i; min_stolbec:=j end; end; writeln('Maximalnyi element nahoditsya na perese4enii ',max_stroka,'-i stroki i ',max_stolbec,'-go stolbca'); writeln('Minimalnyi element nahoditsya na perese4enii ',min_stroka,'-i stroki i ',min_stolbec,'-go stolbca'); end.

Ответ отправил: Койлыбаев Алмас (статус: 1-ый класс) Ответ отправлен: 02.04.2008, 11:58 Оценка за ответ: 3

Вопрос № 130.193

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

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

Отвечает: Койлыбаев Алмас Здравствуйте, Mamontenok! N2. Программа в приложении. Не забываем что на диске С должен быть файл file.txt Приложение: program f_string; uses crt; var f:file of char; c:char; slovo,dlina:integer;{koli4estvo komponent} begin clrscr; assign(f,'C:file.txt'); reset(f); slovo:=1;{fail ne pustoi} while not eof(f) do begin read(f,c); if c<>' ' then dlina:=dlina+1 else slovo:=slovo+1; end; writeln('v faile ',slovo,'-komponent',' srednyaya dlina komponenty=',dlina div slovo); end.

Ответ отправил: Койлыбаев Алмас (статус: 1-ый класс) Ответ отправлен: 02.04.2008, 13:22 Оценка за ответ: 5 Комментарий оценки: Спасибо большое, ваш ответ мне очень пригодится) Надеюсь и на дальнейшую вашу поддержку... С уважением, Мамонтенок

Отвечает: Пупорев Юрий Борисович Здравствуйте, Mamontenok! Решение первой задачи в приложении. Приложение: uses crt; var f:file of char; n,i,j,r,max,imax:integer; a:array[1..50]of char; c:char; begin clrscr; write ('n=');readln(n); assign(f,'simvol'); rewrite(f); i:=0; repeat readln(c); write(f,c); i:=i+1; until i>n; close(f); reset(f); i:=0; while (not eof(f)) and (i<=n)do begin i:=i+1; read(f,a[i]); end; writeln('Massiv simvolov:'); for i:=1 to n do write(a[i],' '); writeln; max:=0;imax:=1; for i:=1 to n do begin r:=0; for j:=1 to n do if a[i]=a[j] then begin r:=r+1; if r>max then begin max:=r; imax:=i; end; end; end; writeln('Samy chasty simvol=',a[imax]); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 02.04.2008, 14:14 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Задача, несомненно, решена правильно... Правда я переработал ее немного, так как слишком громоздко проверять каждый символ по нескольку раз, даже если он уже повторялся в начале -- я ввел несколько дополнительных циклов, которые разбивают провепку вхождения на 2 этапа: проверку до последующего символа, и проверку остальных символов, включая проверяемый. Это упрощает решение в несколько раз, на мой взгляд! Еще раз спасибо...)

Вопрос № 130.206

Уважаемые Эксперты. Помогите пожалуйста с написаноем программ: 1. В двумерном массиве (4*5) поменять местами строки, содержащие наибольшее и наименьшее значения, предположив, что такие строки – единственные. 2. В действительной матрице размера 6*9 поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственны. Отсортировать матрицу по убыванию. Заранее спасибо.

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

Отвечает: Койлыбаев Алмас Здравствуйте, Федосов Александр Иванович! N1. Программа в приложении Приложение: program massiv; uses crt; var z:array[1..4,1..5]of integer; i,j,max,min,max_stroka,min_stroka:integer; begin clrscr; randomize; writeln('ishodnyi massiv'); for i:=1 to 4 do begin for j:=1 to 5 do begin z[i,j]:=random(100); write(z[i,j],' '); end; writeln; end; max:=z[1,1]; min:=z[1,1]; for i:=1 to 4 do for j:=1 to 5 do begin if(z[i,j]>max)then begin max:=z[i,j]; max_stroka:=i; end; if(z[i,j]<min)then begin min:=z[i,j]; min_stroka:=i; end; end; writeln('kone4nyi massiv'); for i:=1 to 4 do begin for j:=1 to 5 do if(i<>max_stroka)and(i<>min_stroka)then write(z[i,j],' ') else if(i=max_stroka)then write(z[min_stroka,j],' ') else write(z[max_stroka,j],' '); writeln; end; end.

Ответ отправил: Койлыбаев Алмас (статус: 1-ый класс) Ответ отправлен: 02.04.2008, 14:43 Оценка за ответ: 5 Комментарий оценки: Большое спасибо.

Отвечает: Пупорев Юрий Борисович Здравствуйте, Федосов Александр Иванович! Прикладываю решение первой и второй задачи. Первая задача вроде дублирует предыдущего автора, но спосо перестановки строк у меня более унивеосальный. Вторая задача в первой своей части дублирует первую, только в ней вместо 20 элементов надо ввести 54. Сортировка матрицы выполнена путем растягивания ее в линейный массив, сортировка в массиве, и обратное сворачивание массива в матрицу. Этот способ может пригодиться и в будущем. В прграмме выводятся ряд промежуточныз результатов для проверки, если не нужны, их можно убрать из программы. Приложение: Задача 1. uses crt; var M:array[1..4,1..5]of integer; i,j,max,min,imax,imin,x:integer; begin clrscr; writeln('Vvedite 20 elementov matricy:'); for i:=1 to 4 do for j:=1 to 5 do read(M[i,j]); readln; clrscr; writeln('Ishodnaia matrica:'); for i:=1 to 4 do begin for j:=1 to 5 do write(M[i,j]:3); writeln; end; readln; max:=M[1,1];min:=M[1,1];imax:=1;imin:=1; for i:=1 to 4 do for j:=1 to 5 do if M[i,j]>max then begin max:=M[i,j]; imax:=i; end else if M[i,j]<min then begin min:=M[i,j]; imin:=i; end; writeln('max=',max,' imax=',imax); writeln('min=',min,' imin=',imin); readln; for j:=1 to 5 do begin x:=M[imin,j]; M[imin,j]:=M[imax,j]; M[imax,j]:=x; end; for i:=1 to 4 do begin for j:=1 to 5 do begin write(M[i,j]:3); end; writeln; end; readln; end. Задача 2. uses crt; var M:array[1..6,1..9]of integer; a:array[1..54]of integer; i,j,max,min,imax,imin,k,x:integer; begin clrscr; writeln('Vvedite 54 elementa matricy:'); for i:=1 to 6 do for j:=1 to 9 do read(M[i,j]); readln; clrscr; writeln('Ishodnaia matrica:'); for i:=1 to 6 do begin for j:=1 to 9 do write(M[i,j]:3); writeln; end; readln; max:=M[1,1];min:=M[1,1];imax:=1;imin:=1; for i:=1 to 6 do for j:=1 to 9 do if M[i,j]>max then begin max:=M[i,j]; imax:=i; end else if M[i,j]<min then begin min:=M[i,j]; imin:=i; end; writeln('max=',max,' imax=',imax); writeln('min=',min,' imin=',imin); readln; for j:=1 to 9 do begin x:=M[imin,j]; M[imin,j]:=M[imax,j]; M[imax,j]:=x; end; writeln('Perestanovka:'); for i:=1 to 6 do begin for j:=1 to 9 do begin write(M[i,j]:3); end; writeln; end; readln; writeln; k:=0; for i:=1 to 6 do for j:=1 to 9 do begin k:=k+1; a[k]:=M[i,j]; {превращаем матрицу в линейный массив} end; for i:=1 to k-1 do for j:=1 to k-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 k do {выводим его для проверки} write(a[i],' '); writeln; readln; writeln('Sortironka:'); for i:=1 to 6 do begin for j:=1 to 9 do begin M[i,j]:=a[j+9*(i-1)];{создаем матрицу} write(M[i,j]:3); end; writeln; end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 02.04.2008, 17:18 Оценка за ответ: 5 Комментарий оценки: большое спасибо.

Вопрос № 130.224

Доброе время суток! Помогите пожалуйста в таком вопросе: дана матрица 5*5. Поменять в каждой строке местами наибольший и наименьший элементы. Если можно с алгоритмом. Заранее большое спасибо

Отправлен: 02.04.2008, 15:13 Вопрос задал: Vlad Cepesh (статус: 4-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станислав Васильевич Здравствуйте, Vlad Cepesh! Алгоритм: 1)вводим 2 переменные для хранения индексов минимального и максимального елементов. 2)Предположим что максимальный и минимальный елемент имеют один и тот же индекс(это тогда когда вся строка или матрица содержит одинаковые елементи). 3)Делаем цикл по всем столбцам и строкам матрицы. 4) ищем среди строк минимальный и максимальный елемент, когда находим то сохраняем его индекс в наши переменные которые ввели на первом шаге. 5) когда доходим до конца строки матрицы меняем местами минимальный и максимальный елемент. Приложение: Const n=5; Var i,j,min,max:byte; Buf:integer; M:array[1..n,1..n] of integer; Procedure Write_Matrix; Begin For j:=1 to n do For i:=1 to n do if i=n then Writeln(m[i,j]) else Write(m[i,j],#32); Writeln; end; Begin Randomize; For i:=1 to n do For j:=1 to n do M[i,j]:=random(10); Write_Matrix; min:=1; Max:=1; For j:=1 to n do For i:=1 to n do Begin if m[i,j]<m[Min,j] then Min:=i; if m[i,j]>m[Max,j] then Max:=i; If i=n then Begin Buf:=m[Min,j]; M[min,j]:=M[max,j]; m[max,j]:=buf; end; end; Write_Matrix; Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс) Ответ отправлен: 02.04.2008, 18:44 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное!!!

Отвечает: Marked One Здравствуйте, Vlad Cepesh! Код в приложении. Вот в кратце алгоритм: 1)заполняем массив 2)выводим первоначальный массив 3)ищем, перебирая все элементы массива, самый маленький, запоминаем его место в массиве 4)Ищем самый большой элемент 5)меняем их местами 6)выводим рез-тат Перед поиском мы сохраняем первый элемент массива (1,1), начинаем перебор всей матрицы с помощью цикла For, если текущий элемент меньше, то изменяем значения переменной для хранения минимального числ на значение текущего. Поиск максимального элемента почти такой же. Используя сохраненые "координаты" минимального и максимального элемента меняем из местами. Удачи!!! Приложение: var Matrix:array [1..5, 1..5] of Integer; min, max, minx, miny, maxx, maxy, i, j: integer; begin randomize; for i:=1 to 5 do for j:=1 to 5 do Matrix[i,j]:=random(50); for i:=1 to 5 do begin for j:=1 to 5 do Write(Matrix[i,j], ' '); writeLn(''); end; min:=Matrix[1,1]; minx:=1; miny:=1; for i:=1 to 5 do for j:=1 to 5 do if matrix[i, j]<min then begin min:=matrix[i,j]; minx:=i; miny:=j; end; max:=Matrix[1,1]; maxx:=1; maxy:=1; for i:=1 to 5 do for j:=1 to 5 do if Matrix[i,j]>max then begin max:=Matrix[i,j]; maxx:=i; maxy:=j; end; Matrix[maxx,maxy]:=min; Matrix[minx,miny]:=max; writeln(''); for i:=1 to 5 do begin for j:=1 to 5 do Write(Matrix[i,j], ' '); writeLn(''); end; readln; end.

Ответ отправил: Marked One (статус: 10-ый класс) Ответ отправлен: 02.04.2008, 19:15 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное!!!

Вопрос № 130.236

Добрый день. Мне необходимо написать программу вычисления суммы элементов одномерного массива А(N), которые одновременно присутствуют в массиве В(N).Заранее благодарю, надеюсь на Вашу помощь.

Отправлен: 02.04.2008, 16:44 Вопрос задала: Дедик Дарья Анатольевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Дедик Дарья Анатольевна! Программа в приложении. Удачи! Приложение: const n=10; var a,b:array[1..n]of integer; c:boolean; d,i,j:integer; begin randomize; {создаем массив А} for i:=1 to n do begin a[i]:=random(30); write(a[i]:4); end; writeln; {создаем массив В} for i:=1 to n do begin b[i]:=random(30); write(b[i]:4); end; writeln; {суммируем} d:=0; for i:=1 to n do begin c:=false; {проверяем наличие} for j:=1 to n do if a[i]=b[j] then c:=true; if c then inc(d,a[i]); end; {вывод результата} writeln('Summa:',d) end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 02.04.2008, 17:54 Оценка за ответ: 5 Комментарий оценки: Большое спасибо,ув.Константин Николаевич.Вы мне очень помогли.Как раз то, что мне нужно, и ,главное, вовремя. Ещё раз спасибо и успехов Вам.

Отвечает: Шемет Станислав Васильевич Здравствуйте, Дедик Дарья Анатольевна! Программа в приложении. Удачи !!! Приложение: const n=100; Var B,A:array[1..n] of integer; sum,i,j:integer; Begin For i:=1 to n do Readln(a[i]); For i:=1 to n do Readln(b[i]); For i:=1 to n do For j:=1 to n do if a[i]=b[j] then Begin sum:=sum+a[i]; Break; end; Writeln('Summa: ',sum); Radln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс) Ответ отправлен: 02.04.2008, 18:21 Оценка за ответ: 5 Комментарий оценки: Спасибо большое Станислав Васильевич. Ваш ответ мне очень помог.Вы дали мне наиболее простой ответ на мой вопрос, что для меня очень удобно.Успехов и удачи Вам!

Вопрос № 130.247

Здравствуйте, помогите, пожалуйста, выполнить задания по паскалю... Задание1. Составить программу с использованием оператора CASE для решения следующей задачи: Для целого числа N от 30 до 35 напечатать фразу "Мне N лет", учитывая при этом, что при некоторых значениях N слово "лет" надо заменить на слово "год" или "года". Задание2. Составить программу расчета значений функции y(x) на интервале [a,b] в n равноотстоящих точках. Значения a, b, n вводить с клавиатуры. Предусмотреть контроль правильности ввода исходных данных (а<b, n>1) Функция y(x) y=5*(1-e^-2x)*sin(4пx+30градусов) Дополнительное условие: Найти наибольшее из знчений функции в расчетных точках с нечетными номерами. Заранее благодарю!..

Отправлен: 02.04.2008, 17:51 Вопрос задала: Николь Lost (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Marked One Здравствуйте, Николь Lost! Первая задача в приложении Удачи!!! Приложение: {№1} var Age:integer; begin Write('Введите возраст(от 30 до 35): '); ReadLn(Age); case Age of 30, 35: WriteLn('Мне ', age, ' лет'); 31 : WriteLn('Мне ', age, ' год'); 32, 33, 34 : WriteLn('Мне ', age, ' года'); else WriteLn('Age<30 или Age>35'); end; ReadLn; end.

Ответ отправил: Marked One (статус: 10-ый класс) Ответ отправлен: 02.04.2008, 18:37 Оценка за ответ: 5

Вопрос № 130.270

Помогите пожалуйста сделать сортировку. Сортировка должна происходить по третьей оцеке и должна менять весь массив, но у меня сортируется только вся третья строка. Дан список учеников класса и отметки каждого из учеников за выпол-нение двух контрольных работ. Требуется: подсчитать число учеников, выполнивших первую работу на 5; подсчитать число учеников, выполнив-ших обе работы на 5. Упорядочить список учеников по среднему баллу за обе контрольные работы. Приложение: Модуль: unit sort_mas; interface const n=5; type Tstudent=record name:string[20]; o1,o2:byte; o3:real; end; mas=array[1..30]of tstudent; procedure sort(var x:mas); implementation procedure sort(var x:mas); var c,l:real; i,j:integer; begin l:=0; x[i].o3:=(x[i].o1+x[i].o2)/2; repeat l:=0; for i:=1 to n-1 do for j:=1 to n-1 do if x[i].o3>x[i+1].o3 then begin c:=x[i].o3; x[i].o3:=x[i+1].o3; x[i+1].o3:=c; end; l:=1; until l=0; end;end. Программа: program jimm0b; uses crt, sort_mas; procedure view(x:mas); var i:integer; begin clrscr; for i:=1 to n do writeln(x[i].o1,x[i].o2,x[i].o3); end; procedure create_random(var x:mas); var i,j:integer; begin for i:=1 to n do begin write('vvedite uchenika'); readln(x[i].name); x[i].o1:=random(4)+2; x[i].o2:=random(4)+2; end;end; procedure create (var x:mas); var i,j:integer; begin for i:=1 to n do begin write('vvedite uchenika'); readln(x[i].name); write('vvedite 1 ocenky'); readln(x[i].o1); write('vvedite 2 ocenky'); readln(x[i].o2); end; end; var a:mas; Ch,i,j,l1,k:integer; l,c:real; begin clrscr; randomize; writeln('1-vvod mas'); writeln('2-random'); writeln; repeat write('vvedite #pynkta'); readln(ch); case ch of 1:Create(a); 2:create_random(a); else writeln('povtorite vvod'); end; until (ch=1) or (ch=2); clrscr; for i:=1 to n do a[i].o3:=(a[i].o1+a[i].o2)/2; sort(a); view(a); For i:=1 to n do begin if a[i].o1=5 then inc(k); end; for i:=1 to n do begin if (a[i].o1=5) and (a[i].o2=5) then inc(l1); end; write('pervaia rabota',k:5); write('obe raboty',l1:3); readln; end.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Муратов Дмитрий Анатольевич! Вот вы пишете: for i:=1 to n-1 do for j:=1 to n-1 do if x[i].o3>x[i+1].o3 then begin c:=x[i].o3; x[i].o3:=x[i+1].o3; x[i+1].o3:=c; end; Здесь вы сортируете только средний балл,а нужно сортировать весь массив записей, т.е. for i:=1 to n-1 do for j:=1 to n-1 do if x[j].o3>x[j+1].o3 then begin c:=x[j]; x[j]:=x[j+1]; x[j+1]:=c; end; Сейчас у вас отсортированы все строчки записи, и фамилии и обе оценки и средний балл. Заметьте также, что индекс нужно писать не i, а j.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 02.04.2008, 21:16 Оценка за ответ: 5

Вопрос № 130.275

здраствуйте помогите пожалуйста в написании программы.... условие" с помощью procedure разработать программу решения задачи на нахождения произведения наимених положительных элементов нечетных столбцов матрица A? размерности 4*7"

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

Отвечает: Койлыбаев Алмас Здравствуйте, Польских Дмитрий Иванович! Посмотри вот это, думаю все правильно :). Приложение: const m=4; n=7; var a:array[1..m,1..n]of integer; i,j,min,f:integer; procedure proizv; begin for i:=1 to m do begin for j:=1 to n do if(min>a[i,j])and(a[i,j]>0)and(j mod 2<>0)then min:=a[i,j]; f:=f*min; end; end; begin randomize; f:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10)-5; write(a[i,j]:4); end; writeln; end; min:=100; proizv; writeln('Proizvedenie naimenshyh elementov=',f); end.

Ответ отправил: Койлыбаев Алмас (статус: 1-ый класс) Ответ отправлен: 02.04.2008, 21:38 Оценка за ответ: 5 Комментарий оценки: пасиба огромное

Вопрос № 130.283

Здравстуйте! Помогите пожалуста с задачами по Паскалю. 1)Дано: натуральное n , действительные a1,....,аn Вычислить: а1+а2*(а2-1)+...+an*(an-1)...(an-n+1) 2)Дано: натуральное n , действительные а1,...,аn.Выяснить образуют ли возрастающую последовательность числа:a1,...,an,2*a1,3*a2,...,(n+1)an.

Отправлен: 02.04.2008, 21:46 Вопрос задал: FAT32 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шемет Станислав Васильевич Здравствуйте, FAT32! Программа в приложении . Удачи !!!! Приложение: Var Sum,i,j,n:word; Begin Write('n: '); Readln(n); Write('a1: '); Readln(i); Sum:=i; For i:=2 to n do Begin write('a',i,':'); Readln(j); if i<>n then sum:=sum+j*(j-1) else Sum:=sum+j*(j-n+1); end; Write('Sum: ',sum); Readln; end. (*---------------------------------------------------------------------------------------------*) Var N,i,j,x:integer; B:boolean; Begin Write('N: '); Readln(n); Write('a1:'); REadln(x); For i:=2 to n do Begin Write('a',i,':'); Readln(j); if x<j*i then b:=true else b:=false; x:=i*j; end; If b then Writeln('Vozrastaet') else Writeln('Ne Vozrastaet'); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс) Ответ отправлен: 03.04.2008, 00:04

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