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

Выпуск № 633
от 15.04.2008, 10:05

Вопрос № 131.296

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

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

Отвечает: Костя Симанович Здравствуйте, Тимощенко Елизавета Владимировна! Решение первой задачи в приложении. Удачи! Приложение: program basket; type dann = record fio : string; // фио учеников rost: integer; // рост в сантиметрах end; const n = 5; // кол-во записей можно поставить сколько надо var mass : array[1..n] of dann; // задаём массив i : integer; k : integer; // кол-во учеников удовлетворяющих условию begin k := 0; for i := 1 to n do begin writeln('введите фио ', i,' ученика.'); readln(mass[i].fio); writeln('введите рост ', i, ' ученика в сантиметрах.'); readln(mass[i].rost); end; // массив заполнен считаем учеников for i := 1 to n do begin if mass[i].rost >= 170 then begin writeln('Ученик ', mass[i].fio); writeln('Имеет рост = ', mass[i].rost); k := k + 1; end; end; if k = 0 then writeln('для секции учеников не найдено') else writeln('найдено ', k, ' кандидатов.'); readln; end.

Ответ отправил: Костя Симанович (статус: 3-ий класс) Ответ отправлен: 09.04.2008, 13:04

Отвечает: Пупорев Юрий Борисович Здравствуйте, Тимощенко Елизавета Владимировна! У меня решение первой задачи с использованием линейных массивов, а не записей, как в предыдущем ответе. Также решение второй задачи. В прцедере MyDelete(var s:str);единственный параметр - сама строка, но перед ней стоит служебное слово var, означающее, что после преобразований на экран выйдет новая строка. Если var убрать, то строка выведется на экран без изменений. Условие третьей задачи совсем не конкретное, хоть бы какие условия поставили. Приложение: Задача 1. Program RostUch; uses crt; type Mbyte=array[1..30] of byte; Mstr=array[1..30] of string[20]; var a:Mbyte; s:Mstr; n,i:integer; begin clrscr; write('Kolichestvo uchenikov: '); readln(n); for i:=1 to n do begin writeln('Uchenik # ',i); write('Familia: ');readln(s[i]); write('Rost:' );readln(a[i]); end; writeln; writeln('Ucheniki vyshe 170 sm:'); writeln; for i:=1 to n do if a[i]>170 then begin writeln(s[i]); end; readln; end. Задача 2. uses crt; type str=string; var s:str; i:integer; procedure MyDelete(var s:str); var i:integer; begin for i:=1 to length(s)do if (i=1)or((s[i]<>' ')and(s[i-1]=' ')) then begin delete(s,i,1); end; end; begin clrscr; write('s:');readln(s); MyDelete(s); write(s); readln end.

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

Вопрос № 131.299

Здравствуйте!помогите решить,пожалуйста: Структурное программирование. Задание 1. Вычислить выражение: y = t1 (2+a, 3b, c2) - t2 (b, a+2b, c) + t3 (a, b, c), где функция t1 (x, y, z) – вычисляет сумму наибольшего и наименьшего среди x, y и z, t2 (x, y, z) – среднее арифме- тическое параметров, t3 (x, y, z) = 3x+2y+z.

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

Отвечает: Белозёров Кирилл Михайлович Здравствуйте, Тимощенко Елизавета Владимировна! Программа в приложении Приложение: program z; uses Crt; var z,a,b,c:real; function t1(x,y,z:real):real; var i,j:real; begin if x>y then begin i:=x;j:=y;end else begin j:=x;i:=y;end; if i<z then i:=z; if j>z then j:=z; result:=i+j; end; function t2(x,y,z:real):real; begin result:=(x+y+z)/3; end; function t3(x,y,z:real):real; begin result:=3*x+2*y+z; end; begin write('vvedite a:'); readln(a); write('vvedite b:'); readln(b); write('vvedite c:'); readln(c); z:=t1(2+a,3*b,c*2)-t2(b,a+2*b,c)+t3(a,b,c); writeln(z); Readln; end.

Ответ отправил: Белозёров Кирилл Михайлович (статус: 1-ый класс) Ответ отправлен: 09.04.2008, 11:18

Вопрос № 131.300

Зравствуйте эксперты! Напишыте пожалуйста как на Паскале рисовать фигуры и т.д и вообще работать с графикой. Может есть ссылки где это все подробно описано?! Спасибо!

Отправлен: 09.04.2008, 10:46 Вопрос задал: Пономаренко Николай Николаевич (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Костя Симанович Здравствуйте, Пономаренко Николай Николаевич! посмотрите ссылки в приложении. это только первые строчки по запросу (паскаль+графика) в google Удачи. Приложение: http://rustud.ru/informatika/gl1 http://rsc-team.ru/cgi-bin/index.pl?rzd=2&group=lection&ind=21 http://graphinpas.narod.ru/ http://www.toehelp.ru/theory/informat/lecture07.html

Ответ отправил: Костя Симанович (статус: 3-ий класс) Ответ отправлен: 09.04.2008, 11:38 Оценка за ответ: 5 Комментарий оценки: Спасибо за помощь!

Вопрос № 131.311

Помогите пожалуйста выполнить: Тема "Одномерные массивы" 1. В ЭВМ вводятся фамилии и рост учеников 7-го класса. Вывести на экран фамилии тех учеников, рост которых больше 170 см (для оп- ределения кандидатов в баскетбольную команду). 2. Определить список участников гонки на собачьих упряжках, при- шедших к финишу последними.

Отправлен: 09.04.2008, 12:28 Вопрос задала: Тимощенко Елизавета Владимировна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: SHERRY Здравствуйте, Тимощенко Елизавета Владимировна! Решил первую задачку, ипользуя тип = запись. Действия поясняются, код в приложении. Удачи! Исправлено по просьбе отвечающего ----- ∙ Отредактировал: Устинов С.Е. (Профессионал) ∙ Дата редактирования: 09.04.2008, 17:05 Приложение: TYPE { определяем тип нашего массива } klass = record rost: integer; fam: string[20]; end; CONST k = 5; { количество человек всего } var ms: array [1..k] of klass; { данные храним в массиве } i,r: integer; f: string[20]; b: boolean; begin for i:=1 to k do { заполняем данные } begin write('Vvedi familiju: '); readln(f); write('Vvedi rost: '); readln(r); ms[i].rost := r; ms[i].fam := f; end; b:=true; writeln; for i:=1 to k do { выводим результат } if ms[i].rost > 170 then begin write(ms[i].fam, ' '); b := false; end; if b then writeln('Ne byt` nam 4empionami po basketbolu :((('); readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 9-ый класс) Ответ отправлен: 09.04.2008, 13:41

Вопрос № 131.329

Уважаемые эксперты!!! помогите пожалуйста решить 2 задачи. 1. дан файл f , элементы которого являются действительными числами. найти наименьшее из значений элементов с четными номерами. 2. дан файл, содержащий различные даты, каждая дата это число,месяц и год. найти самую позднюю дату Заранее очень благодарен!

Отправлен: 09.04.2008, 14:26 Вопрос задал: Смирнов Сергей (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: SHERRY Здравствуйте, Смирнов Сергей! Решение первой задачки. Сделал то, что нужно. Единственное отличие - лень было ручками вводить числа и поэтому я их генерировал случайно. Поэтому в файле не вещественные числа, а целые. Думаю для Вас не будет проблемой исправить потом этот недостаток. Код в приложении. Приложение: var f: file of integer; d: TDateTime; ch, i, min: integer; begin AssignFile(f, '1.bin'); Rewrite(f); randomize; for i:=0 to Random(10)+10 do begin ch := random(50); write(f, ch); end; Reset(f); i := 0; min:=999999; while i<FileSize(f)-2 do begin Seek(f, i); read(f, ch); inc(i, 2); if ch<min then min := ch; write(ch:5); end; writeln; writeln(min); Close(f); readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 9-ый класс) Ответ отправлен: 09.04.2008, 19:59 Оценка за ответ: 4

Вопрос № 131.395

Дана строка. Определить, сколько в ней символов.

Отправлен: 09.04.2008, 18:49 Вопрос задал: Федосеев Павел Юрьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Федосеев Павел Юрьевич! Вообще-то в строке столько символов, какова длина этой строки, т.е. k:=length(s);

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

Отвечает: Евчик Сергей Александрович Здравствуйте, Федосеев Павел Юрьевич! Вам может помочь функция length(s) где s-переменная типа string. Как вариант можно использовать Ord(s[0])-в нулевой позиции строки содержится ее длина. Надеюсь я вам помог.

Ответ отправил: Евчик Сергей Александрович (статус: 3-ий класс) Ответ отправлен: 09.04.2008, 19:42

Вопрос № 131.396

Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформулировать два множества, первое из которых содержит все простые числа из данного множества. а второе - все составные.

Отправлен: 09.04.2008, 19:01 Вопрос задал: Федосеев Павел Юрьевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Федосеев Павел Юрьевич! Решение Вашей задачи с комментариями в приложении. Код рабочий, тестировал. Приложение: uses crt; var m,m1,m2:set of byte; {множества чисел} a,b,i:integer; {a,b-начало и конец диапазона чисел} function Prost(x:integer):boolean; var i:integer; {функция, определяющая простые числа} begin for i:=2 to x div 2 do if x mod i=0 then begin Prost:=false; break; end else Prost:=true; end; begin clrscr; Write('a=');readln(a); Write('b>a =');readln(b); m:=[a..b];m1:=[];m2:=[];{множество m-указываем диапазон} {zapolnenie mnogestv} {множества m1,m2-пустые} for i:=a to b do if i in m then begin if Prost(i) then include(m1,i) {простые в m1} else include(m2,i); {составные в m2} end; {проверим, что у нас получилось} writeln('Mnogestvo prostyh chisel:'); for i:=a to b do if i in m1 then begin write(i,' '); end; writeln; writeln('Mnogestvo sostavnyh chisel:'); for i:=a to b do if i in m2 then begin write(i,' '); end; readln end.

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

Вопрос № 131.416

Погоите,кто-нибудь решить задачку....за ранее премного благодарен! Два простых числа называются "близнецами", если они отличаются друг от друга на 2 (например, 41 и 43). Напечатать все пары "близнецов" из отрезка [n, 2n], где n — заданное натуральное число больше 2.

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

Отвечает: Marked One Здравствуйте, Денисов Игорь Александрович! Код в приложении. Для определения простое ли число, использованна функция эксперта SHERRY из вопроса №124311. Удачи!!! Приложение: 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; var i, n, x:integer; begin Write('Введите N: '); ReadLn(n); for i:=n to 2*n do begin x:=i+2; if prost(i) and prost(x) and (x<=2*n) then Writeln(i, ' и ', i+2); end; ReadLn; end.

Ответ отправил: Marked One (статус: Студент) Ответ отправлен: 09.04.2008, 22:55 Оценка за ответ: 4

Отвечает: Verena Здравствуйте, Денисов Игорь Александрович! Для решения Вашей задачи можно задать функцию проверки на простоту, которой проверять каждые парные числа на отрезке. Вообще, можно было бы уменьшить число проверок, возможно, введя какие-то флаги, чтобы не проверять дважды одно число, но это загромоздит код. А так мы просто задаём цикл, в котором i будет меняться от n до n-2 (последняя возможная пара - это n-4 и n-2, поэтому рассматривать отрезок дальше не имеет смысла), и проверяем текущее и парное ему значения на простоту (если оба числа простые - выводим их на экран). PS: Есть отличия от предыдущего решения в варианте реализации цикла - отсутствует дополнительная проверка. Удачи! Приложение: Var n, i: word; function Prost (a: word): boolean; {Функция проверки, простое ли число} Var i: integer; begin Prost:= true; {Начальное значениефункции} if (a<=1) then Prost:= false; {Простые числа строго больше 1 } for i:=2 to a div 2 do {Для доказательства простоты достаточно проверить делимость на числа от 2 и до половины данного числа} if a mod i = 0 then begin Prost:= false; break; end; {Если хоть раз поделилось - не простое} end; begin readln (n); {Считываем n} i:= n; {Начинаем с левого конца отрезка} while (i+2<=2*n) do {И двигаемся, пока парное текущему число не выйдет за границы отрезка} begin if (Prost (i)) and (Prost (i+2)) then {Если текущее число и парное ему - простые} writeln (i, ' - ', (i+2)); {Выводим их на экран} inc (i); {Наращиваем число на 1} end; end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 09.04.2008, 23:00 Оценка за ответ: 5

Вопрос № 131.417

Здравствуйте глубоко уважаемые и многознающие эксперты.У меня к Вам такой вопрос.Надо составить программу на Паскале для поиска минимального и максимального элементов в трёхмерном целочисленном массиве.Заранее большое СПАСИБО.

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

Отвечает: Verena Здравствуйте, Плескацевич Андрей Казимирович! А в чём, в общем-то, проблема? Работа с трёхмерным массивом происходит точно так же, как с одномерным, двумерным или сколько-угодно-мерным. Просто для доступа к элементу будет использоваться три индекса, соответственно, и для обработки массива будет использоваться три цикла. То есть Вы объявляете массив, например, так: Var a: array [1..10, 1..10, 1..10] of integer; Заполняете его как-нибудь так: for i:=1 to n1 do {n1, n2, n3 - три размерности массива} for j:=1 to n2 do for h:=1 to n3 do readln (a[i, j, h]); И совершенно стандартным образом ищете минимальный и минимальный элементы: min:= a[1, 1, 1]; max:= min; for i:=1 to n1 do for j:=1 to n2 do for h:=1 to n3 do begin if (a[i, j, h] > max) then max:=a[i, j, h]; if (a[i, j, h] < min) then min:=a[i, j, h]; end; После прохода по всем циклам, в перем енных будут нужные значения. Удачи! --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 09.04.2008, 22:21

Отвечает: Marked One Здравствуйте, Плескацевич Андрей Казимирович! Вот полный код программы. Удачи!!! Приложение: program q131417; const N=5; {Размер массива a} Var a:array [1..N, 1..N, 1..N] of Integer; {Трехмерный массив a} min, max, i, j, l:integer; {max-максимальный элемент массива a} {min-минимальный элемент массива a} {j, l, i-счетчики для циклов} begin randomize; {Инициируем генератор случайных чисел для заполнения массива a} WriteLn('Массив:'); {Заполняем массив a случайными числами} for i:=1 to N do for j:=1 to N do for l:=1 to N do begin a[i, j, l]:=random(50)-25; Write(a[i,j,l], ' '); end; WriteLn; min:=a[1, 1, 1]; {Начальные значения минимального и максимального элемента массива} max:=a[1, 1, 1]; for i:=1 to N do {Перебираем весь массив} for j:=1 to N do for l:=1 to N do begin if a[i, j, l]>max then {Если текущий элемент больше максималного, то max:=тек. эл.} max:=a[i, j, l] else {Иначе, если тек. эл. меньше минимального, то} if a[i, j, l]<min then min:=a[i, j, l]; {min:=тек. эл.} end; WriteLn('Максимальный элемент: ', max); {Вывод рез-тов} WriteLn('Минимальный элемент: ', min); ReadLn; end.

Ответ отправил: Marked One (статус: Студент) Ответ отправлен: 09.04.2008, 22:34

Вопрос № 131.423

Помогите,господа, решить задачку.... Составить программу вычисления наибольшего общего делителя двух натуральных чисел.

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

Отвечает: Gh0stik Здравствуйте, Денисов Игорь Александрович! Пожалуйста.... var a,b,x,y:longint; begin  clrscr;  write('Введите первое число a=');readln(a);  write('Введите второе число b=');readln(b);  x:=a; y:=b;  while (a<>b) do   if a>b then a:=a-b else b:=b-a;  writeln('НОД(',x,',',y,')=',a);  readln; end. Также рекомендую прочесть и такую статейку: Примеры реализации алгоритма Евклида. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW: http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 09.04.2008, 21:51 Оценка за ответ: 4

Отвечает: SHERRY !!! Здравствуйте, Денисов Игорь Александрович! Ещё как вариант - в приложении. Вариант конечно интереснейший :))), НО НЕВЕРНЫЙ!!! Ошибки такие: 1) Переменные a и b, описаны как константы! Возникает вопрос как у Вас работает оператор readln(a, b);? 2) if (a mod i)=0 and (b mod i)=0 будет также ошибка компиляции, поскольку верное написание такое: if (a mod i=0) and (b mod i=0) 3) Самое интересное, чему же все-таки равен НОД(10,20) используя Ваш алгоритм? :) Подсказка ВЕРНЫЙ ответ 10. В целом более уникального алгоритма нахождения НОД я не видел! ----- ∙ Отредактировал: Gh0stik (Академик) ∙ Дата редактирования: 10.04.2008, 19:18 Приложение: const a = 10; b = 13; var i,d,t: integer; begin readln(a, b); if a>b then t:=b else t:=a; for i:=1 to (t div 2) do begin if (a mod i)=0 and (b mod i)=0 then d:=i; end; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 9-ый класс) Ответ отправлен: 09.04.2008, 21:55 Оценка за ответ: 5

Вопрос № 131.442

Здравствуйте, помогите пожайлуста с пмощью оператора IF сделать, вот это:Дано целое N>0, за которым следует N вещественных чисел. Определить, сколько среди них отрицательных.

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

Отвечает: SHERRY Здравствуйте, Daggett! const N = 5; { определяем количество чисел } var ms: array [1..N] of real; { массив, в котором будем хранить числа } i, c: integer; { вспомогательные переменные } begin c:=0; for i:=1 to n do readln(ms[i]); { считываем N чисел с клавиатуры } for i:=1 to n do IF ms[i] < 0 then inc(c); { посчитываем количество отрицательных элементов } writeln('Vi vveli ', c, ' otricatelnih 4isel'); { выводим результат на экран } readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 9-ый класс) Ответ отправлен: 10.04.2008, 00:38

Отвечает: Устинов С.Е. Здравствуйте, Daggett! Пользоваться массивом в такой задаче совершенно не обязательно - ведь хранить сами числа не требуется. Да и два цикла - тоже не самое лучшее :) Предлагаю свою реализацию решения Вашей задачи (в приложении). Удачи! Приложение: var n,t,k,i:integer; begin write('N='); readln(n); k:=0; writeln('Vvedite ',n,' chisel'); for i:=1 to n do begin readln(t); if t<0 then inc(k); end; writeln('Kolichestvo otricatelnyh=',k); readln; end. --------- Ждешь квалифицированного ответа? Задай правильно вопрос!

Ответ отправил: Устинов С.Е. (статус: Профессионал) Украина, Славянск Организация: SlavComp WWW: Физико-математический факультет СГПУ ICQ: 4343069 ---- Ответ отправлен: 10.04.2008, 01:35

Вопрос № 131.446

вот еще вопросик есть, за раннее спасибо: VAR X,Y:ARRAY[1..70] OF REAL; K:1..69; Преобразовать массив Х по следующему правилу (восполь- зоваться массивом Y как вспомогательным): а) все отрицательные элементы массива Х перенести в его начало, а все остальные - в конец, сохраняя ис- ходное взаимное расположение как среди отрицатель- ных, так и среди остальных элементов; б) элементы массива Х циклически сдвинуть на k позиций влево.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Daggett! Решение вашей задачи в приложении. Учтены все условия задачи, код протестирован, работает. Правда тестировал я его при размерности массива от 10 20, 70-это очень много. Приложение: uses crt; var x,y:array[1..70]of real; k:1..69; i,j,t:integer; r:real; begin clrscr; randomize; write('k=');readln(k); writeln('Ischodny massiv:'); for i:=1 to 70 do {заполняем массив случайными вещественными} begin {числами из интервала (-4,6)} x[i]:=random(10)+random-4; write(x[i]:5:1); end; readln; j:=0; for i:=1 to 10 do if x[i]<0 then begin j:=j+1; y[j]:=x[i]; {заносим в массив У отрицательные} end; t:=j; for i:=1 to 10 do if x[i]>=0 then begin t:=t+1; y[t]:=x[i]; {после отрицательных заносим положительные} end; writeln('Otsortirovanny massiv:'); for i:=1 to 10 do write(y[i]:5:1); readln; {второе условие - сдвиг влево на к позиций} for j:=1 to k do begin r:=y[1]; {запоминаем первый элемент} for i:=1 to 9 do begin y[i]:=y[i+1]; {сдвигаем влево на 1 элемент} end; y[10]:=r; {на последнее место ставим первый элемент} end; {повторяем это к раз} writeln; writeln('Sdvinutyj massiv:'); for i:=1 to 10 do write(y[i]:5:1); readln; end.

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

Вопрос № 131.447

. VAR A:ARRAY[1..10,1..10] OF INTEGER; Заполнить массив А следующим образом: а) 0 0 0...0 0 1 0...0 0 0 2...0 ... 0 0 0...9 б) 1 2 ...10 11 12...20 21 22...30 ... 91 92...100 в) 1 2 3...10 0 1 2...9 0 0 1...8 ... 0 0 0...1 Откорректировано в соответствии с сообщением автора в мини-форуме. ----- ∙ Отредактировал: Gh0stik (Академик) ∙ Дата редактирования: 10.04.2008, 00:56

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

Отвечает: Gh0stik Здравствуйте, Daggett! Поскольку программы очень похожи, то ответ обобщим: var a:array[1..10,1..10] of integer;   i,j:integer; begin   for i:=1 to 10 do for j:=1 to 10 do {необходимо вставить строку соответсвующую варианту} {вывод результата на экран}   for i:=1 to 10 do begin   for j:=1 to 10 do write(a[i,j]:4);     writeln;   end; end. Соответствующие варианты: а) if i=j then a[i,j]:=i-1 else a[i,j]:=0; б) a[i,j]:=10*(i-1)+j; в) if i<=j then a[i,j]:=j-i+1 else a[i,j]:=0; Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW: http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 10.04.2008, 01:11 Оценка за ответ: 5

Вопрос № 131.462

Дан массив 15 элементов.Записать в этом же массиве с начала все кратные трем числа,а затем все остальные сохраняя порядок их следования.Решить с помощью одной подпрограммы.

Отправлен: 10.04.2008, 05:52 Вопрос задала: Лиманская Юлия Вадимовна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Лиманская Юлия Вадимовна! Программа в приложении. Удачи! Приложение: uses crt; const n=15; type Ta=array[1..n]of integer; var a:Ta; b,c:integer; procedure change(var a:Ta;b,c:integer); var d:integer; begin while ((a[c-1]mod 3)>0)and(c>b)do begin {перестановка элементов массива} d:=a[c]; a[c]:=a[c-1]; a[c-1]:=d; dec(c); end; for b:=1 to n do begin {только для подсветки чисел кратных 3-ем} if(a[b]mod 3)=0 then textcolor(15); {вывод} write(a[b]:4); textcolor(7); end; writeln; end; begin {массив формируеися случайно} randomize; for b:=1 to n do begin a[b]:=random(100); {подсвечиваем кратные элементы} if(a[b]mod 3)=0 then textcolor(15); {выводим} write(a[b]:4); textcolor(7); end; writeln; {сортировка массива} for b:=1 to n-1 do for c:=b+1 to n do if ((a[b]mod 3)>0)and((a[c]mod 3)=0)then change(a,b,c); readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 131.463

Информация о товаре хранится в следующем виде:наименование,дата выпуска,дата поступления в продажу,фирма-производитель,закупочная цена,цена продажи,еденица измерения,количество поступившего и кол-во проданного.Вывести на экран информацию только той партии товара,кот.полностью продана.Решить с помощью:тип данных запись и подпрограмм.Заранее спасибо))

Отправлен: 10.04.2008, 05:56 Вопрос задала: Лиманская Юлия Вадимовна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Лиманская Юлия Вадимовна! Написал я Ваш манускрипт. Там при желании еще можно текста лишнего, не относящегося собственно к программе, добавить. Но алгоритм работы программы нормальный, выдает то, что нужно. Код в приложении. Там практически один русский текст транслитом, так что все должно быть понятно. Приложение: uses crt; type tovar=record {собственно сама запись с полями по условию} nam:string[20]; vyp:string[20]; post:string[20]; firma:string[20]; cnz:real; cnp:real; ed:string[20]; kps:real; kpr:real; end; var sp:array[1..50]of tovar;{массив записей или список товаров} n,i:integer; begin clrscr; write('Kolichestvo vidov tovara='); readln(n); for i:=1 to n do begin writeln('Tovar # ',i); write('Naimenovanie: ');readln(sp[i].nam); write('Data vypuska: ');readln(sp[i].vyp); write('Data postuplenia: ');readln(sp[i].post); write('Firma: ');readln(sp[i].firma); write('Zakupochnaia cena: ');readln(sp[i].cnz); write('Cena prodagi: ');readln(sp[i].cnp); write('Edenica: ');readln(sp[i].ed); write('Kolichestvo postupilo: ');readln(sp[i].kps); write('Kolichestvo prodano: ');readln(sp[i].kpr); end; writeln; writeln('Polnostju prodano:'); writeln; for i:=1 to n do if sp[i].kps=sp[i].kpr then {если получено=продано то выводим} begin write(sp[i].nam,' ',sp[i].vyp,' ',sp[i].post,' ',sp[i].firma,' '); {эти две строчки в одну} writeln(sp[i].cnz:5:2,' ',sp[i].cnp:5:2,' ',sp[i].ed,' ',sp[i].kps:5:2,' ',sp[i].kpr:5:2);{эти две строчки в одну} writeln; end; readln end.

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

Вопрос № 131.472

Уважаемые эксперты помогите мне с этой задачкой! 1. Обработка матриц. Дана вещественная матрица A(n,m). Отсортировать элементы матрицы по строкам, используя сортировки: - простым включением; - быстрая сортировка. а) Разработать программу, которая упорядочивает строки цело-численной матрицы по убыванию их характеристик. Характеристика строки – про-изведение элементов, являющихся совершенными числами. Если таковых элемен-тов строке нет, то характеристикой строки считать максимальный элемент. Алго-ритм построения матрицы оформить в виде подпрограммы. б) Даны две целочисленные матрицы A(k,l) и D(l,c). Осуществить произведение матриц. ЗАРАНЕЕ СПАСИБО!

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Kristi_ag! Привожу решение первой и третьей задач. Я правда не понял первая и вторая задачи это одна задача или две. Если одна, то считайте что я только показал как сделать сортировку строк матрицы простым включением. Код двух задач в приложении. Про умножение матриц надо посмотреть математическую теорию, потому что не зная как матрицы умножаются на бумаге, программный код не понять, а я в двух словах тоже не расскажу. Про методы сортировки тоже лучше почитать в учебниках, там все написано конкретно и понятно. Приложение: 1. Сортировка. uses crt; var R:array[1..15,1..15]of integer; n,m,i,j,k,x,p:integer; begin clrscr; write('n=');readln(n); write('m=');readln(m); writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin R[i,j]:=random(20); write(R[i,j]:3); end; writeln; end; readln; for i:=1 to n do {собственно сортировка включениями} for j:=2 to m do for k:=1 to j-1 do if R[i,j]>R[i,k] then begin x:=R[i,j]; for p:=j-1 downto k do R[i,p+1]:=R[i,p]; R[i,k]:=x; end; {конец сортировки} for i:=1 to n do begin for j:=1 to m do begin write(R[i,j]:3); end; writeln; end; readln; end. 2.Умножение матриц. uses crt; var A,D,U:array[1..10,1..10]of integer; k,l,c,i,j,r:integer; begin clrscr; randomize; write('k=');readln(k); write('l=');readln(l); write('c=');readln(c); writeln('Matrica A:'); for i:=1 to k do begin for j:=1 to l do begin A[i,j]:=random(9)+1; write(A[i,j]:3); end; writeln; end; readln; writeln('Matrica D:'); for i:=1 to l do begin for j:=1 to c do begin D[i,j]:=random(9)+1; write(D[i,j]:3); end; writeln; end; readln; for r:=1 to k do for j:=1 to c do begin U[r,j]:=0; for i:=1 to l do begin U[r,j]:=U[r,j]+A[r,i]*D[i,j]; end; end; for i:=1 to k do begin for j:=1 to c do write(U[i,j]:5); writeln; end; readln; end.

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

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