KMA 
Долгожитель
|
     
Только из уважения к miss graffiti, и чтобы окончательно добить эту задачу, пишу решение этой функции, т. е. то, о чем мы с miss graffiti говорили на форуме (код можно считать универсальным).
function sunnOtr (Var i:byte; a: matrix):integer;
Var s: integer;
j: byte;
flag: boolean;
begin
j:=1;
flag:=false;
s:=0;
repeat
if a[i,j]<0
then flag:=true;
inc (j)
until flag or (j=col);
if flag
then for j:=1 to col do
s:=s+a[i,j];
sunnOtr:=s;
end;
col это какая-то константа, а matrix тип описанный ранее (matrix=array [1..row, 1..col] of integer;).
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 29 дек. 2005 9:45 | IP
|
|
miss_graffiti
Долгожитель
|
 
KMA, один вопросик. ответа на него я не знаю, так что предлагай...
что передаст твоя функция в основную программу, если отрицательных не обнаружит?
а что должна передать?
__________________________________
офф. если не секрет, куда поступать собираешься?
хорошо пишешь...
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 29 дек. 2005 9:51 | IP
|
|
KMA
Долгожитель
|
Воооооот, вот где я против этих функций. Была бы процедура поставили бы какой-нибудь флажок, и если он ложь, то ничего преобразовывать не надо. Вот почему я говорил что эта задача решается функцией не рационально.
Была идея на счет приведения переменных, но я как программист на С++ знаю только на этом языке такую возможность, на Pascale не встречал, если она есть то расскажите, у меня в справочнике ее не было.
________________
в какой-нибудь технический вуз, на информационные системы и технологии.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 29 дек. 2005 9:59 | IP
|
|
Guest
Новичок
|
задание
в заданом массиве а1 а2 ...ан поменять местами максимальный и минимальный элементы вывести на печать полу ченный массив !
НУЖНО СРОЧНО ПЛИЗЗЗ ХЕЛП
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 29 дек. 2005 21:11 | IP
|
|
miss_graffiti
Долгожитель
|
Guest,
1. незачем писать по 3 сообщения.
2. в чем проблема? ищите min и max (стандартное задание. в любом учебнике примеры есть), запоминаете их положение в массиве.
потом, пользуясь доп.переменной, меняете местами.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 29 дек. 2005 21:39 | IP
|
|
KMA
Долгожитель
|
Ввод и вывод матрицы можно здесь взять:
[a] http://exir.ru/cgi-bin/ikonboard/topic.cgi?forum=3&topic=8&start=50[/a]
Ну уж найти максимальный и минимальный сможет я думаю, даже обезьяна. Бери даже самый плохой учебник по программированию, и ты его найдешь. Я полностью согласен с miss graffiti, убедительная просьба не посылать такие задачи.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 30 дек. 2005 12:17 | IP
|
|
Diamond666
Удален
|
В текстовом файле хранится список товаров. Для каждого товара указаны его название,стоимость единицы товара в тыс. руб.,кол-во и единица измерения(напрмер, 100шт.,20кг).
Написать программу, выполняющую следующие действия:
1. Корректировку или дополнение списка с клавиатуры.
2. Сортировку по названию товара или по общей стоимости.
3. Вывод на экран информации о товаре, название которого введено с клавиатуры.
4. Запись списка в файл под тем же или новым именем.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 10 янв. 2006 6:43 | IP
|
|
KMA
Долгожитель
|
Мы тебе с радостью поможем, задачка прикольная. Какие идеи есть с корректировкой??? Как ты предлагаешь искать цены в товаре??? Есть вообще что-нибудь, что тебе совсем не понятно??? Или вся задача туго идет???
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 10 янв. 2006 11:20 | IP
|
|
Diamond666
Удален
|
KMA У меня с этим туго  , поэтому и обращаюсь к спецам  Смотрю я на это условие и страшно становится.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 10 янв. 2006 12:42 | IP
|
|
Guest
Новичок
|
HELP!! Горит задачка, до 12 января надо сдать...
Девушке в 11 классе задали, попросили меня написать, так как с компами общаюсь, думают что я программер, а я Паскаль лет 6 назад последний раз открывал.
Создать текстовый файл, содержащий сведения о процессорах (модель,тактовая частота,стоимость). Вывести в текстовый файл информацию о процессорах, стоимость которых не превышает суммы, вводимой пользователем,упорядочив их по возрастанию частоты. Вывести на экран модель и тактовую частоту наилучшего из подходящих по стоимости процессоров.
Есть часть проги, но там не текстовый формат и нет сортировки, помогите кто может
program processors;
uses crt;
type processor=record
model : string;
frequency : integer;
cost : real;
end;
var proc : processor;
bin : file of processor;
txt : text;
ui : real;
begin
Assign(bin,'proc.dat');
Assign(txt,'proc.txt');
Reset(bin);
Rewrite(txt);
Write('Enter frequency: ');
ReadLn(ui);
While not eof(bin) do
begin
Read(bin,proc);
If proc.cost > ui then
begin
WriteLn(proc.model,' ',proc.frequency,'Mhz ',proc.cost:4:2,' rub.');
WriteLn(txt,proc.model,' ',proc.frequency,'Mhz ',proc.cost:4:2,' rub.');
end;
end;
Close(txt);
Close(bin);
end.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 10 янв. 2006 14:33 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
