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

Выпуск № 649
от 01.06.2008, 05:05

Вопрос № 137.878

Вводится последовательность, 0-конец последовательности. Подсчитать, сколько в ней отрицательных чисел, и найти сумму положительных чисел.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Sanq4! Решение задачи в приложении. Приложение: uses crt; var a,sum,k:integer; begin clrscr; writeln('Vvedite chisla:'); k:=0;sum:=0; repeat readln(a);{вводим число} if a>0 then sum:=sum+a{если положительное, считаем сумму} else if a<0 then k:=k+1;{если отрицательное-количество} until a=0; writeln('Summa=',sum,' Kolichestvo=',k); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Практикант) Ответ отправлен: 26.05.2008, 20:07

Вопрос № 137.879

Дана последовательность из N чисел. Определить, сохраняет ли данная последовательность знак.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Sanq4! Программа в приложении выводит истину если знак сохраняется и ложь в противном случае. Удачи! Приложение: const n=10; var a:array[1..n]of integer; b:integer; begin {создаем в цикле последовательность и выводим её} randomize; for b:=1 to n do begin a[b]:=random(20)-10; write(a[b]:4); end; {проверяем условие} for b:=1 to n-1 do if (a[b]*a[b+1])<0 then break; {выводим результат} writeln(a[b]*a[b+1]>=0:8,b:5); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 137.881

Вводится последовательность из n произвольных чисел. Определить, сколько раз данная последовательность меняет знак.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Sanq4! Смотрите приложение. Удачи! Приложение: const n=10; var a:array[1..n]of integer; b,c:integer; begin {создаем в цикле последовательность и выводим её} randomize; for b:=1 to n do begin a[b]:=random(20)-10; write(a[b]:4); end; {проверяем услoвие} c:=0; for b:=1 to n-1 do if (a[b]*a[b+1])<0 then inc(c); {выводим результат} writeln(' Result:',c:3); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 137.883

Вводится последовательность из N целых чисел. Найти количество отрицательных и положительных чисел данной последовательности.

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

Отвечает: SHERRY !!! Здравствуйте, Sanq4! Результаты будем хранить в массиве. Массив содержит всего два индекса: TRUE и FALSE. TRUE - количество положительных элементов. FALSE - количество отрицательных элементов. inc(ms[a>=0]); - число ноль НЕ относится к положительным! Следовательно правильная запись для данной задачи: if a=0 then else inc(ms[a>0]); ----- ∙ Отредактировал: Gh0stik (Академик) ∙ Дата редактирования: 27.05.2008, 23:20 (MCK) Приложение: const N = 5; {количество элементов последовательности} var ms: array [false..true] of integer; {массив результатов (счётчики)} i,a: integer; {вспомогательные переменные} begin ms[true]:=0; ms[false]:=0; {инициализация счётчиков} for i:=1 to n do begin readln(a); {считываем с клавиатуры целое число} inc(ms[a>=0]); {если число больше либо равно нулю, то индекс элемента массива принимает значение TRUE и увеличивает на единичку счётчик положительных чисел. В противном случае - выражение a>=0 принимает значение FALSE и увеличивается на единичку счётчик отрицательных чисел} end; writeln('Pologitelnih ',ms[true], ' otricatelnih ',ms[false]); {вывод результатов на экран} readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 10-ый класс) Ответ отправлен: 26.05.2008, 20:23

Вопрос № 137.884

Вводится последовательность из N вещественных чисел. Найти сумму наибольшего и наименьшего чисел данной последовательности.

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

Отвечает: Абельхарисов Руслан / Marked One Здравствуйте, Sanq4! Задача с пояснениями в прилождении. Будут вопросы, обращайтесь в минифорум. Удачи!!! Приложение: const {кол-во элементов в последовательности} N=10; var {последовательность из N элементов} a: array [1..N] of real; {Максимальный и минимальный элемент} max, min: real; {Счетчик для For} i: integer; begin {Включаем генератор случайных чисел} randomize; {Перебираем весь массив a} for i:=1 to N do begin {Приравниваем текущий элемент массива к случайному числу} a[i]:=random(50)-25+random; {выводим это число} write(a[i]:8:3); end; {Инициируем значения максимального и минимального числа} max:=a[1]; min:=a[1]; {В цикле перебираем весь массив и ищем макс. и мин. число} for i:=1 to N do {если тек. эл. больше максимального, изменяем значение максимального} if a[i]>max then max:=a[i] {Иначе} else {Если тек. эл. меньше, то изменяем минимальный} if a[i]<min then min:=a[i]; writeLn; {Выводим сумму} Write('Max + Min = ', max+min:6:3); readln; end.

Ответ отправил: Абельхарисов Руслан / Marked One (статус: Студент) Ответ отправлен: 26.05.2008, 20:32

Отвечает: Verena Здравствуйте, Sanq4! А я бы не стала решать такую задачу через массив. Зачем хранить N чисел, если мы используем только две из них? Можно считывать их по ходу в одну переменную и сравнивать с текущим минимальным и текущим максимальным, переписывая эти переменные при необходимости. Такой вариант решения в приложении. Приложение: Var a, min, max: real; n, i: integer; begin readln (n); {Считываем число элементов} readln (a); {Считываем первый элемент} min:= a; max:=a; {И инициализируем им min и max} for i:=1 to n-1 do {Считываем остальные элементы в цикле} begin readln (a); if (a<min) then min:=a; {Если попадается меньший, чем min, переписываем} if (a>max) then max:=a; {Если попадается больший, чем max, переписываем} end; writeln ('Summa:', (max+min):5:3); {Выводим сумму с форматированием (пять символов под целую часть, 3 под дробную} readln; {Ждём реакции пользователя} end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 26.05.2008, 20:40

Вопрос № 137.885

Вводится последовательность из N вещественных чисел. Найти наибольшее число.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Sanq4! Программа в приложении. Удачи! Приложение: var a,b:real; n:integer; begin {вводим число элементов последовательности} repeat write('Enter N:'); readln(n); until n>0; {вводим первое значение, пока оно есть максимальное} write('Enter number:'); readln(b); {в цикле вводим все остальные и проверяем условие} while n>1 do begin write('Enter number:'); readln(a); if a>b then b:=a; dec(n); end; {выводим результат} writeln('Maximum:',b:20:10); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 137.892

здаравствуйте! помогите пожалуйста решить задачу! задача на тему обратотка символьной информации! задача звучит так: оперделить количестово шипящих букв в каждом слове и определить слово в котором етих букв больше!

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

Отвечает: Костя Симанович Здравствуйте, Коваль Максим Владимирович! В приложении вариан решения задачи с пояснениями. Задача работает с русскими буквами, разделитель между словами пробел. Надеюсь помог. Удачи. Приложение: program ship; uses Crt; {Множество шипящих букв} const cChar: set of char = ['С', 'с', 'Ш', 'ш', 'Щ', 'щ' ]; var s,sl,slmax: string; k,kmax,i: integer; begin ClrScr; Writeln('Vvedite stroku: '); Readln(s); kmax:=0; if s[1]=' ' then Delete(s,1,1); {Первый символ пробел} if s[Length(s)]=' ' then Delete(s,Length(s),1); {последний символ пробел} Writeln; While s<>'' do {проверяем, что строка не пусая} begin if Pos(' ',s)>0 then {копируем подстроку до первого пробела} begin {в sl и удаляем её из основной строки} sl:=Copy(s, 1, Pos(' ', s)-1); Delete(s, 1, Pos(' ', s)); end else {если пробелов нет} begin sl:=s; s:=''; end; {нашли очередное слово - sl} Write(sl); k:=0; for i:=1 to Length(sl) do {считаем кол-во шипящих букв} if sl[i] in cChar then Inc(k); Writeln(' = ',k); {выводим кол-во шипящих букв} if k>kmax then {ищем строку с макс. кол-ом шипящих букв} begin kmax:=k; slmax:=sl; end; end; Writeln; Writeln('max: ',slmax); Readln; end.

Ответ отправил: Костя Симанович (статус: 4-ый класс) Ответ отправлен: 27.05.2008, 15:56

Вопрос № 137.921

Доброго времени суток эксперты. Помогите с задачей, я ее решил, но частично: Дана целочисленная прямоугольная матрица. Определить номер первого из столбцов, содержащих хотя бы один нулевой элемент(оформить в виде подпрограммы). И в чем разница между функцией и процедурой. Если не трудно обьясните на данной задаче Приложение: uses crt; const n=6;m=7; var D:array[1..n,1..m] of integer; k:array[1..n] of integer; i,j:byte; x:integer; procedure MikkiMous(var x:integer); var i,j:byte; {локальные переменные} begin for i:=1 to n do for j:=1 to m do if d[i,j]=0 then x:=j; writeln('столбец: ',x); end; begin clrscr; {основная программа} randomize; writeln('Matrix'); { Формирование массива} for i:=1 to n do for j:=1 to m do d[i,j]:=random(11)-1; { -1;10} for i:=1 to n do begin {вывод матрицы} for j:=1 to m do write(d[i,j]:5); writeln;end; mikkiMous(x); {вызов процедуры} readln; end.

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

Отвечает: Verena Здравствуйте! Сначала о задаче. Вы не учли, что должен выводиться первый столбец с нулём, к тому же, логичнее обходить матрицу по столбцам. Можно сделать так: procedure MikkiMous(var x:integer); var i,j:byte; {локальные переменные} fl: boolean; begin fl:= false; x:= 0; for j:=1 to m do {Цикл по столбцам} begin for i:=1 to n do {Цикл по строкам} if d[i,j]=0 then {Если нашли ноль} begin x:=j; {Запоминаем столбец} fl:= true; {Выставляем флаг} break; {Прерываем цикл} end; if fl then break; {Если флаг сработал - прерываем и внешний цикл} end; if fl then writeln('столбец: ', x) {Проверяем, был ли ноль} else writeln ('Нет нулей'); end; Процедура не имеет собственного возвращаемого значения, её нельзя использовать в выражениях, зато можно получить из неё несколько значений через параметры по ссылке (передатся со словом var). Функция же сама возвращ ает значение (можно использовать в выражениях типа a:=func1(b)+func2(b)), но вернуть можно только одно значение конкретного типа. procedure имя_процедуры (var параметры_по_ссылке; ...; параметры_по_значению;...) function имя_функции (параметры_по_значению): тип_возвращаемого_значения Ваша задача в виде функции выглядит так: function MikkiMous: integer; var i,j:byte; {локальные переменные} fl: boolean; begin fl:= false; MikkiMous:= 0; for j:=1 to m do begin for i:=1 to n do if d[i,j]=0 then begin MikkiMous:=j; fl:= true; break; end; if fl then break; end; if fl then writeln('столбец: ', MikkiMous) else writeln ('Нет нулей'); end; Удачи! --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 26.05.2008, 23:06 Оценка за ответ: 5 Комментарий оценки: Довольно полный и хороший ответ. Все бы так отвечали. большое спасибо

Вопрос № 137.927

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

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

Отвечает: SHERRY Здравствуйте, VanHelsing! Помогу Вам с третьей задачей. Код в приложении. Приложение: const n = 4; {количество маршрутов} Type Route = record {наш тип содержит} start, finish: string[50]; {имя начального конечного пунктов} time: integer; {время} end; var ms: array [1..n] of route; {массив нашего типа Route} i: integer; {вспомогательная переменная-счётчик} s: string[50]; {строка для поиска} b: boolean; {переменная логического типа - с её помощью будем узнавать найдено ли что-либо по запросу} begin b:=true; {инициализация} for i:=1 to n do {заполняем данные о маршрутах} begin Writeln('Type data for #',i); Readln(ms[i].start); {начальный пункт} Readln(ms[i].finish); {конечный} Readln(ms[i].time); {время} end; writeln; writeln('Type name'); readln(s); {считываем строку для поиска по месту отправки/прибытия} for i:=1 to n do {поиск} if (ms[i].start = s) or (ms[i].finish = s) then {если значение совпадает с введёным} begin writeln(ms[i].start, ' -> ', ms[i].finish); {то выведем на экран пункт отправки и прибытия} b:=false; {логической перенная сигнализирует о наличии результата поиска} end; if b then writeln('Sorry. Nothing found..'); {если ничего не было найдено, то вывести на экран надпись} b:=true; {подготовка к поиску по времени} writeln; write('Less then 30 minutes to '); for i:=1 to n do if ms[i].time < 30 then {алгоритм тот же: если время до какого-либо пункта меньше 30 минут,то выведем на экран название сего пункта} begin write(ms[i].finish, ' '); {вывод на экран названия пункта прибытия} b:=false; {показываем наличие результата поиска} end; if b then write('<nothing>'); {если поиск результатов не дал, то выводим надпись} readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 10-ый класс) Ответ отправлен: 27.05.2008, 00:14 Оценка за ответ: 5

Отвечает: Пупорев Юрий Борисович Здравствуйте, VanHelsing! Решение первой задачи в приложении. Приложение: Задача 1. uses crt; type Tmatr=array[1..20,1..20]of integer; {определяем тип матрицы для передачи его в функцию} var a:Tmatr; n,m,i,j:integer; function NulStb(p:Tmatr):integer; var k,nl:integer; begin k:=0; for j:=1 to m do begin nl:=0; for i:=1 to n do if p[i,j]=0 then nl:=nl+1;{считаем ноли в солбцах} if nl>0 then k:=k+1;{если ноли есть, считаем столбец} end; NulStb:=k;{присваиваем значение функции} end; begin {начало программы} clrscr; randomize; write('Vvedite kolichestvo strok: ');readln(n); write('Vvedite kolichestvo stolbcov: ');readln(m); writeln('Matrica:'); for i:=1 to n do {создаем и выводим на экран матрицу} begin for j:=1 to m do begin a[i,j]:=random(10)-3; write(a[i,j]:4); end; writeln; end; writeln; writeln('Kolichestvo stolbcov s nylevymi elementami = ',NulStb(a)); {вызываем функцию и она выдает результат} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Практикант) Ответ отправлен: 27.05.2008, 09:10

Вопрос № 137.936

програмирование на паскаль. Для каждого символа заданого текста указать сколько раз он встречается в тексте.Сообщение об одном символе должно печататься не более одного раза. Пожалуйста помогите решить эту трудную задачу.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Клаткевич Денис Консантинович! Решение Вашей "трудной" задачи в два действия (перебор строки и вывод на экран) с необходимыми пояснениями в приложении. Приложение: uses crt; var s:string; i,j,k:integer; begin clrscr; write('Text: ');readln(s); {символы, которые можно вывести на экран начинаются с номера кода 32 (пробел)} i:=32; while i<=255 do {перебираем все символы} begin k:=0; for j:=1 to length(s) do if chr(i)=s[j] then {если они встречаются в строке} begin k:=k+1; {считаем их} end; if k>0 then {если символ встречен хоть раз, выодим его и количество на экран} writeln('Simvol ',chr(i),' vstrechaetsa ',k,' raz(a)'); i:=i+1; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Практикант) Ответ отправлен: 27.05.2008, 12:12

Отвечает: Arshvin Здравствуйте, Клаткевич Денис Консантинович!В вашем случае можно воспользоваться либо статическим массивом диапазона от 0 до 255, чтобы можно было отслеживать количество вхождения в файл всех символов, в том числе и служебных (коды которых от 0 до 31 кодовой страницы), либо воспользоваться динамическими структурами данных, такими как списки. В приложении приведу основной момент реализации первого метода (проверять написанное мной некогда но суть должна быть понятна). Если нужно будет пояснение по спискам то напишите на минифоруме (тут будет пример немного больше) Приложение: ... Var Symbol: array[0..255] of word; {Предполагается что один символ может в тексте встречаться не более 65535 раз} f:file of byte; {предполагаю что вы текст будете читать с файла} buf:byte; Flag:boolean; c:char; Begin assign(f,'test.txt'); reset(f); {Далее цикл чтения данных из файла} while not(Eof(f)) do {пока не конец файла} begin read(f,buf);{Читаем байт, он же символ из файла в переменную} inc(Symbol[buf]); {Данной операцией мы сделали увеличение на единицу число повторений символа с кодом в переменной buf, используя данных код в качестве индекса массива} end; Close(f); {Закрываем файл} {Далее вы осуществляете вывод интересующей вас информации о количестве повторений символа, например следующим образом} WriteLn('Для получения информации о повторении любого символа в файле наберите его код и нажмите Enter. Для выхода нажмите два раза ESC'); Flag:=false; Repeat {$i-} {Отключаем проверку ввода/вывода что бы при вводе не получилась у нас исключительная ситуация} readln(buf); {$I+} If IOResult<>0 then Begin WriteLn('Введен неверный код символа!!!'); Continue; End; WriteLn('Символ с кодом ',buf,' был встречен ',Symbol[Buf],' раз'); If buf = 27 then {Данное условие нужно чтобы отследить двойное "нажатие" ESC, то есть точнее ввода числа 27} Begin If flag then break Else Flag:=True; End Else Flag:=false {If buf = 27 then} Until false; End. если же вам не надо вводить коды символов а хотите чтобы программа реагировала на нажатие букв то вместо ReadLn в цикле вывода используете функцию ReadKey, которая возвращает символ CHAR... и тогда немного модифицируем наш цикл ввода .... Repeat c:=ReadKey; If c = #27 then {Данное условие нужно чтобы отследить двойное нажатие ESC} Begin If flag then break Else Flag:=True; End Else Flag:=false {If c = #27 then} Case c of #13: WriteLn('Символ с кодом ''ENTER'' был встречен' ,Symbol[ord(c)],' раз'); #27: WriteLn('Символ с кодом ''ESC'' был встречен' ,Symbol[ord(c)],' раз'); Else WriteLn('Символ с кодом ',c,' был встречен ',Symbol[ord(c)],' раз'); Until false; End. {Ну вот примерно так должно быть}

Ответ отправил: Arshvin (статус: 8-ой класс) Ответ отправлен: 27.05.2008, 12:35

Вопрос № 137.942

Здраствуйте,у меня просьба написать программу: В программу пользователь должен ввести количество медалей разного достоинства,завоеваное каждой командой-участницей, а программа - подсчитать общее число медалей и соответствующее число очков, после чего упорядочить список в соответствии с набранным количеством очков, которое определяется по сл. правилу: за золотую медаль команда получает 7 очков, за серебрянную - 6, за бронзу - 5. Рекомендуемый вид экрана во время работы программы приведен ниже Итоги Олимпийских игр введите в одной строке количество золотых,серебрянных и бронзовых медалей. Австрия -> 3 5 9 Германия -> 12 9 8 Канада -> 6 5 4 Китая -> 0 6 2 Корея -> 3 1 2 Норвегия -> 10 10 5 Россия -> 9 6 3 США -> 6 3 4 Финляндия -> 2 4 6 Япония -> 5 1 4 Приложение: Данные по очкам и медалям надо вывести в таблице: Итогия летней Олимпиады в Пекине, 2008 г. Страна Золото Серебро Бронза Всего Очков 1 Германия 12 9 8 29 178 2 Норвегия 10 10 5 25 155 3 Россия 9 6 3 18 114 и тд.....

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Шичкина, Анна, Сергеевна! Решение задачи в приложениии. Использовал массив записей и форматированный вывод текста. Текст вводил транслитом, чтобы удобнее копировать, замените на русский. Отдельные моменты программы с комментариями. Приложение: uses crt; type Tolimp=record {тип запись с полями} name:string[20]; gold:byte;{кол. золотых} silv:byte; {кол. серебряных} bron:byte; {кол. бронзовых} summ:byte; {всего медалей} reit:word; {всего очков} end; var sp:array[1..30]of Tolimp; {массив записей, список стран и их результатов} n,i,j:integer; x:Tolimp; {переменная типа запись для сортировки} begin clrscr; write('Kolichestvo stran:');readln(n); for i:=1 to n do begin write('Strana: ');readln(sp[i].name); write('Zoloto: ');readln(sp[i].gold); write('Serebro: ');readln(sp[i].silv); write('Bronza: ');readln(sp[i].bron); sp[i].summ:=sp[i].gold+sp[i].silv+sp[i].bron; sp[i].reit:=sp[i].gold*7+sp[i].silv*6+sp[i].bron*5; end; clrscr; {очищаем экран} writeln('Itogi Olimpijskih igr'); writeln; For i:=1 to n do begin write(sp[i].name);{вводим название страны} gotoXY(10,i+2); {устанавливаем курсор в 10-ю позицию строки} write(sp[i].gold:4,sp[i].silv:4,sp[i].bron:4); {вводим все остальное с выделением 4-х позиций под число} writeln; end; readln;{читаем} {сортировка обменом (метод "пузырька") по убыванию рейтинга } for i:=1 to n-1 do for j:=1 to n-1 do if sp[j].reit<sp[j+1].reit then begin x:=sp[j]; sp[j]:=sp[j+1]; sp[j+1]:=x; end; clrscr; {очищаем экран} {выводим 10 пробелов, текст} writeln(' ':10,'Itogi letnej Olimpiady v Pekine, 2008g.'); writeln; {пустая строка} {выводим заголовки колонок} write('Strana':10,'Zoloto':10,'Serebro':10,'Bronza':10,'Vsego':8,'Ockov':10); writeln; {пустая строка} for i:=1 to n do begin write(i:2,' ',sp[i].name);{номер,пробел,страна} gotoXY(10,i+3); {курсор в позицию 10 каждой стороки} {выводим все остальное} write(sp[i].gold:8,sp[i].silv:10,sp[i].bron:10,sp[i].summ:10,sp[i].reit:10); writeln; end; readln end.

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

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