Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Май 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 59
от 22.05.2005, 22:30

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 2

Вопрос № 20955: Доброе время суток, помогите решить следующие задачи. Заранее благодарен. 1) В массиве А определить строку, содержащую наименьший элемент. Проверить, является ли данный элемент единственным. Если нет - выдать соответствующее сообщение и закончить...

Вопрос № 20955
Доброе время суток, помогите решить следующие задачи. Заранее благодарен.
1) В массиве А определить строку, содержащую наименьший элемент. Проверить, является ли данный элемент единственным. Если нет - выдать соответствующее сообщение и закончить работу. Если да - упорядочить массив по элементам данной строки.
2) Даны 2 текстовых файла с именами Name1 и Name2. Добавить в начало 1 / конец 2 каждой строки файла Name1 соответствующую строку файла Name2. Если файл Name2 короче файла Name1, то оставшиеся строки файла Name1 не изменять.
Отправлен: 16.05.2005, 22:17
Вопрос задал: Lonelywolf (статус: Посетитель)
Всего ответов отправлено: 2
Отвечает: Malish
Здравствуйте, Lonelywolf!
1: как найти и проверить понятно
uses crt;
const n=4;
var a:array [0..n,0..n] of integer;
stroka,i,j,flag,min:integer;
begin
clrscr;
randomize;
for i:=0 to n do
for j:=0 to n do
A[i][j]:=random(100);
for i:=0 to n do
begin
for j:=0 to n do
write(A[i][j],' ');
writeln;
end;
flag:=0;
min:=A[0][0];
stroka:=0;
for i:=0 to n do
for j:=0 to n do
begin
if A[i][j] begin
min:=A[i][j];
stroka:=i;
flag:=0;
end;
if min=A[i][j] then
flag:=flag+1;
end;
if flag>1 then
writeln('Element povtoryaetsya : ', min)
else
writeln('Stroka : ', stroka,' element : ', min);
readln;
end.
а вот как сортировать не понятно! Уточно что ты хотел сказать!
2: Не совсем понятно условие!!! Уточни!!! Надо в конец строки файла Name1 вставить соответствующую строку из файла Name2 ???? Или что???
Ответ отправил: Malish (статус: Студент)
Отправлен: 17.05.2005, 00:31
Отвечает: sir henry
Здравствуйте, Lonelywolf!
Это называется не "помогите решить", а "сделайте за меня".
В чем конкретно у Вас загвоздка?
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 17.05.2005, 05:54

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Другие рассылки этой тематики 		Отписаться
Вспомнить пароль
В избранное