IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Reply to this topicStart new topic
> Паскаль, проги, СРОЧНО!
Al-Alex
сообщение June 1 2011, 22:33
Сообщение #1



МСМK
Иконка группы

Группа: Супермодераторы
Сообщений: 9267
Регистрация: 22.11.2005
Из: Салтыковка
Пользователь №: 2
Skype: al-alex.new
Реальное имя: Алексей
Учебная группа: ппс



надо срочно решить 2 задачки на паскале
кто может?
Прикрепленные файлы
Прикрепленный файл  IMG0047.jpg ( 122,56 килобайт ) Кол-во скачиваний: 45
 


--------------------
Осталось недолго!
Go to the top of the page
 
+Quote Post
Al-Alex
сообщение June 1 2011, 22:52
Сообщение #2



МСМK
Иконка группы

Группа: Супермодераторы
Сообщений: 9267
Регистрация: 22.11.2005
Из: Салтыковка
Пользователь №: 2
Skype: al-alex.new
Реальное имя: Алексей
Учебная группа: ппс



если кто решит - пришлите плиз на fillerm93@mail.ru

Если кто-то все же решится написать, то имейте в виду, что чем проще прога тем лучше. И в идеале с комментами с какими-нибудь.....

Всем кто поможет - от меня причитается.

Кстати если кто знает ответ на теор вопрос - тоже пришлите...

Сообщение отредактировал Al-Alex - June 1 2011, 22:59


--------------------
Осталось недолго!
Go to the top of the page
 
+Quote Post
Al-Alex
сообщение June 1 2011, 23:08
Сообщение #3



МСМK
Иконка группы

Группа: Супермодераторы
Сообщений: 9267
Регистрация: 22.11.2005
Из: Салтыковка
Пользователь №: 2
Skype: al-alex.new
Реальное имя: Алексей
Учебная группа: ппс



Забыл - вот еще одна x)
Прикрепленные файлы
Прикрепленный файл  IMG0045.jpg ( 132,3 килобайт ) Кол-во скачиваний: 19
 


--------------------
Осталось недолго!
Go to the top of the page
 
+Quote Post
BLL
сообщение June 1 2011, 23:24
Сообщение #4



МС
Иконка группы

Группа: Активисты
Сообщений: 728
Регистрация: 25.11.2006
Из: Москва, Марьино
Пользователь №: 85
Skype: bleonidl
Jabber:lbeschastny@gmail.com, bll@jabber.ru
Реальное имя: Леонид
Учебная группа: Каф.22



Цитата(Al-Alex @ June 2 2011, 00:08) *
Забыл - вот еще одна x)

Как-то так (язык Си):

Код
structure element
{
element *left;
element *right;
datatype data;
}

element *first;
element *last;

...

void add_after(element **last, element *current, element *newelem)
{
newelem->left = current;
newelem->right = current->right;
if ((current->right)==null)
*last = newelem;
else
current->right->left = newelem;
current->right = newelem;
}


Сообщение отредактировал BLL - June 2 2011, 12:09


--------------------
The world is curves, I've heard it said,
And straightway in it nothing lies.
This then my wish, before I'm dead:
To look through Lobachevsky's eyes.

©Roger Zelazny, Doorways in the Sand (1976)
Go to the top of the page
 
+Quote Post
BLL
сообщение June 1 2011, 23:25
Сообщение #5



МС
Иконка группы

Группа: Активисты
Сообщений: 728
Регистрация: 25.11.2006
Из: Москва, Марьино
Пользователь №: 85
Skype: bleonidl
Jabber:lbeschastny@gmail.com, bll@jabber.ru
Реальное имя: Леонид
Учебная группа: Каф.22



Дай Филе, пусть попробует переписать на Паскаль...


--------------------
The world is curves, I've heard it said,
And straightway in it nothing lies.
This then my wish, before I'm dead:
To look through Lobachevsky's eyes.

©Roger Zelazny, Doorways in the Sand (1976)
Go to the top of the page
 
+Quote Post
BLL
сообщение June 1 2011, 23:32
Сообщение #6



МС
Иконка группы

Группа: Активисты
Сообщений: 728
Регистрация: 25.11.2006
Из: Москва, Марьино
Пользователь №: 85
Skype: bleonidl
Jabber:lbeschastny@gmail.com, bll@jabber.ru
Реальное имя: Леонид
Учебная группа: Каф.22



А лучше так:
Код
void add_after(element **last, element *current, datatype &newdata)
{
element *newelem = new element;
newelem->data = newdata;
newelem->left = current;
newelem->right = current->right;
if ((current->right)==null)
*last = newelem;
else
current->right->left = newelem;
current->right = newelem;
}


Сообщение отредактировал BLL - June 2 2011, 12:09


--------------------
The world is curves, I've heard it said,
And straightway in it nothing lies.
This then my wish, before I'm dead:
To look through Lobachevsky's eyes.

©Roger Zelazny, Doorways in the Sand (1976)
Go to the top of the page
 
+Quote Post
Al-Alex
сообщение June 1 2011, 23:43
Сообщение #7



МСМK
Иконка группы

Группа: Супермодераторы
Сообщений: 9267
Регистрация: 22.11.2005
Из: Салтыковка
Пользователь №: 2
Skype: al-alex.new
Реальное имя: Алексей
Учебная группа: ппс



да ты сбрендил что-ли? Он если на паскале написать и то не поймет и не сможет объяснить, а ты перепиши...


--------------------
Осталось недолго!
Go to the top of the page
 
+Quote Post
~~HellHounD~~
сообщение June 2 2011, 06:44
Сообщение #8



Жутко ленивый.
Иконка группы

Группа: Администраторы
Сообщений: 2661
Регистрация: 22.11.2005
Из: Москва, Марьино
Пользователь №: 1
Skype: dudnikov.v
Реальное имя: Владимир



Списки:

program prog;



type
node_ptr = ^list_node;
list_node = record{Объявили запись элемента списка}
prev, next:node_ptr;{Указатели на предыдущий и последующий элементы}
data:integer;{Данные элемента списка}
end;

procedure add_node( var start: node_ptr; data: integer; position: integer);
var
node,ptr: node_ptr;
idx: integer;
begin
new(node);
node^.prev := nil;
node^.next := nil;
node^.data := data;
if(position > 0) then{проверяем, что номер узла существует}
begin
if(start = nil) then{если список пустой, то создаем его заново}
begin
start := node;
end
else if(position = 1) then
begin
node^.next := start;{ставим узел в начало списка}
start^.prev := node;
start := node;
end
else
begin
ptr := start;
idx := 2;
while (idx<position) and (ptr^.next <> nil) do{ищем узел с
заданным номером или последний узел}
begin
inc(idx);
ptr := ptr^.next;
end;
node^.next := ptr^.next;
ptr^.next := node;
node^.prev := ptr;{добавляем узел после заданного}
if( node^.next <> nil ) then
begin
node^.next^.prev := node;
end;
end;
end;
end;

procedure print_list( start: node_ptr);
begin
write( '[');
while( start <> nil ) do
begin
write( start^.data, ' ');
start := start^.next;
end;
writeln( ']');
end;

var
ptr: node_ptr;

begin
ptr := nil;
add_node( ptr, 1, 1);
print_list( ptr );
add_node( ptr, 7, 1);
add_node( ptr, 8, 2);
add_node( ptr, 13, 5);
print_list( ptr );
end.

Нужная процедура - add_node.


--------------------
Не говори мне что мне делать и я не скажу куда тебе идти.
Go to the top of the page
 
+Quote Post
real
сообщение June 2 2011, 11:55
Сообщение #9



б.р.
Иконка группы

Группа: Активисты
Сообщений: 12
Регистрация: 14.10.2008
Из: Общага МИФИ
Пользователь №: 200
Skype: laer-0 (Ефимов Василий)
Реальное имя: Василий Ефимов
Учебная группа: Б3-02



Задача 13.1
type



{определяем тип входного файла}

intype = record

sLastName:String;

iCourse:integer;

iaMarks: array[1..5]of integer;

end;



{определяем тип выходного файла}

outtype = record

sLastName:String;

iCourse:integer;

iEMark:integer;

end;

var

ts:String;

i:integer;



inElement:intype;

outElement:outtype;



outFile:file of outtype;

inFile:file of intype;



begin



{открываем и нициализируем для чтения входной файл}

assign(inFile,'inFile.bin');

reset(inFile);



{открываем и инициализируем для записи выходной файл}

assign(outFile,'outFile.bin');

rewrite(outFile);



while not EOF(inFile) do

begin

read(inFile,inElement);

Writeln('Считано:');

writeln('Фамилия: ',inElement.sLastName,', Курс: ',inElement.iCourse,

', Оценки: ',inElement.iaMArks[1],',',inElement.iaMArks[2],',',

inElement.iaMArks[3],',',inElement.iaMArks[4],',' ,

inElement.iaMArks[5]) ;



outElement.sLastName:=inElement.sLastName;

outElement.iCourse:=inElement.iCourse;

for i:=1 to 5 do

begin

outElement.iEMark:=outElement.iEMark+inElement.iaMArks[i];

end;

outElement.iEMark:=outElement.iEMark div 5;



Writeln('Записано:');

writeln('Фамилия: ',outElement.sLastName,', Курс: ',outElement.iCourse,

', Средняя оценка: ',outElement.iEMArk) ;



write(outFile,outElement);

end;



close (outFile);

close(inFile);



readln(ts);end.

Go to the top of the page
 
+Quote Post
Al-Alex
сообщение June 2 2011, 22:18
Сообщение #10



МСМK
Иконка группы

Группа: Супермодераторы
Сообщений: 9267
Регистрация: 22.11.2005
Из: Салтыковка
Пользователь №: 2
Skype: al-alex.new
Реальное имя: Алексей
Учебная группа: ппс



Всем, кто откликнулся, огромное спасибо!
... если бы это еще помогло ....


--------------------
Осталось недолго!
Go to the top of the page
 
+Quote Post
Fillerm
сообщение June 4 2011, 11:10
Сообщение #11



Заслуженный мастер спорта
Иконка группы

Группа: Преподаватели
Сообщений: 1563
Регистрация: 2.9.2007
Пользователь №: 138
Skype: Fillerm93, Fillerm
Реальное имя: Филипп
Учебная группа: P17-281



Спасибо всем огромное за помощь, зачёт я в итоге сдал. Спасибо!!! wacko.gif
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0




Текстовая версия Сейчас: 28th October 2021 - 18:17
Хотите такой же?