Сайт :: Правила форума :: Вход :: Регистрация
Логин:   Пароль:     
 12345ОСТАВИТЬ СООБЩЕНИЕ НОВАЯ ТЕМА НОВОЕ ГОЛОСОВАНИЕ
nirvana
● 10 января 2008, 18:35
Разделяй и властвуй.
LV8
HP
MP
Стаж: 11 лет
Постов: 1025
Euro Truck Simulator 2; Heroes of Might & Magic 3.5;
youtube
Долго думал все таки решил создать тему и посвятить ей все вопросы которые наверняка есть у форумчан насчет всяческих уроков лабораторок и тому подобному.
И вот у меня возникло пару вопросов. Кто может шарит в turbo pascal решите мне пожалуйста 3 задачи полностью с ответами! Нашел в сети пару подобных форумов с ответами, но что то ничего дельного я от них не добился! Скоро экзамены и что бы их сдавать надо решить эти задачи помогите!
вот первая задача:
Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице.
Вот еще 2:
http://ipicture.ru/uploads/080110/uXyKHpxZyL.JPG
Помогите кто может!!!
С каждым годом я убеждаюсь, что и у друзей бывает срок годности!
Blood Elf
● 10 января 2008, 18:39
шууууууууу
LV8
HP
MP
Стаж: 14 лет
Постов: 1231
ога) давай, я вместо тебя на экзамен ещё приду. могу так же подменить на вручении диплома и выпускном вечере, йоу :-)
чистый
HoRRoR
● 10 января 2008, 18:49
Ретро-геймер
LV6
HP
MP
Стаж: 5 лет
Постов: 1752
horror_x
Барби
Компилятором булочек
 nirvana @ 10 января 2008, 18:35 
Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице.

Полное условие в студию.

 nirvana @ 10 января 2008, 18:35 
Вот еще 2:

о_0 Ты мне на русский переведи сперва...
nirvana
● 10 января 2008, 18:58
Разделяй и властвуй.
LV8
HP
MP
Стаж: 11 лет
Постов: 1025
Euro Truck Simulator 2; Heroes of Might & Magic 3.5;
youtube
Блин ребята ну вы даете! Я ж все таки серьезно спрашиваю, неужели нет на форуме программеров?! Люди должны быть добрыми и всем помогать, а вот я злой и незнаю что уже делать, осталось нет ничего! :sad:
С каждым годом я убеждаюсь, что и у друзей бывает срок годности!
HoRRoR
● 10 января 2008, 19:08
Ретро-геймер
LV6
HP
MP
Стаж: 5 лет
Постов: 1752
horror_x
Барби
Компилятором булочек
 nirvana @ 10 января 2008, 18:58 
Блин ребята ну вы даете! Я ж все таки серьезно спрашиваю, неужели нет на форуме программеров?! Люди должны быть добрыми и всем помогать, а вот я злой и незнаю что уже делать, осталось нет ничего!

Я б помог, если б знал, чего от меня хотят в условии о_0
CLAUD
● 10 января 2008, 19:13
K.O.
LV1
Стаж: 5 месяцев
Постов: 106
силент хил оригинс, resident evil cod veronika на эмуле
ROMPER STOMPER
Я ТУПОЙ. НИЧЕМ ПОМОЧ НЕСМОГУ
СЛАВА РОSSИИ!
Last Romantic
● 10 января 2008, 19:39
Leo
LVMASTER
HP
MP
Стаж: 16 лет
Постов: 5125
nirvana, дашь мне Турбо Паскаль и объяснишь что к чему - попробую. Ибо на Дельфе программирую.
Романтиком быть выгодно. Почему ты поступаешь нелогично? Я романтик. Почему ты бедный? Я романтик. Почему у тебя труп в подвале? Я романтик.
HoRRoR
● 10 января 2008, 19:46
Ретро-геймер
LV6
HP
MP
Стаж: 5 лет
Постов: 1752
horror_x
Барби
Компилятором булочек
 Last Romantic @ 10 января 2008, 19:39 
nirvana, дашь мне Турбо Паскаль и объяснишь что к чему - попробую. Ибо на Дельфе программирую.

Консольное приложение в Дельфи.
alzarus
● 10 января 2008, 19:58
АВТОР FFF
LVMASTER
Стаж: 15 лет
Постов: 4551
olzarus
FFXI
Перенесено в "помощь".
-=[RJ]=-
● 10 января 2008, 20:02
LV3
HP
MP
Стаж: 2 года
Постов: 176
Сессия
Ф.Герберт "Дюна"
Могу помочь в решении типовых расчетов по математике из задачника Рябушко! :) Ну и просто по вышке! Стучите в личку! :)))

Исправлено: -=[RJ]=-, 10 января 2008, 20:03
Фанат Стругацких, Булычева и Кэмерона.
HoRRoR
● 10 января 2008, 20:11
Ретро-геймер
LV6
HP
MP
Стаж: 5 лет
Постов: 1752
horror_x
Барби
Компилятором булочек
Кто бы мне помог выучить вопросы по матанализу...
Drakosha
● 10 января 2008, 20:28
Черная и колючая
LV4
HP
MP
Стаж: 6 лет
Постов: 405
Allods Online
в небо
 nirvana @ 10 января 2008, 18:35 
Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице.

Мы что-то подобное делали, когда изучали Access, но я уже ни-фи-га не помню=( А в Бейсике когда делали, я не врубалась вообще.

Мне до 12.01 надо бы хоть что-то по "Поведению фирмы в условиях чистой конкуренции;монополии" . Никто не знает ,где найти? А то меня экономичка на экзамене сожрет...
Жизнь прекрасна, не смотря ни на что!
HoRRoR
● 10 января 2008, 20:36
Ретро-геймер
LV6
HP
MP
Стаж: 5 лет
Постов: 1752
horror_x
Барби
Компилятором булочек
Рррр, сорри, был шальной ентер на кнопке "Ответить".

 nirvana @ 10 января 2008, 18:35 
Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице.

Если предположить, что можно самому делать как тебе угодно, то на Дельфи я бы сделал так:

program Ы;

{$APPTYPE CONSOLE}

Type
TUser = Record
F,I,O: String;
Kv, Home: Integer;
Street, City: String;
end;
TAUser = Array of TUser;
var User: TAUser;

Function FindUser(ID: Integer; City, Street: String): Integer;
var n: Integer;
begin
For n:=ID To Length(User)-1 do begin
 If (User[n].City=City) And (User[n].Street=Street) Then
 begin
  Result:=n; Exit;
 end;
Result:=-1;
end;

var n: Integer=0;
begin
 While n<>-1 do
 begin
  n:=FindUser(n, Город, Улица);
  If n<>-1 Then
  begin
    With User[n] do WriteLn(Format('%s,%s,%d,%d',[City, Street, House, Kv]));
  end;  
end;
end;

Работает или нет - хз, но если я всё правильно понял, задумка, думаю, ясна. Надеюсь в Турбо Паскале типы есть? Ибо без них работу с БД не представляю возможным.

Исправлено: HoRRoR, 10 января 2008, 23:32
nirvana
● 10 января 2008, 23:13
Разделяй и властвуй.
LV8
HP
MP
Стаж: 11 лет
Постов: 1025
Euro Truck Simulator 2; Heroes of Might & Magic 3.5;
youtube
HoRRoR спасибо и на этом хоть что то конечно различии есть, но попробую разобрать хоть так. Благодарю за сотрудничество!
С каждым годом я убеждаюсь, что и у друзей бывает срок годности!
Last Romantic
● 11 января 2008, 08:13
Leo
LVMASTER
HP
MP
Стаж: 16 лет
Постов: 5125
 HoRRoR @ 10 января 2008, 19:46 
Консольное приложение в Дельфи.

Сам то пробовал код дельфефвский для консольного выражения потом запустить в паскале?

А так, нафик выносить все в функции и бегать несколько раз по циклам?
Не проще ли сбацать просто процедуру, где будет сразу выводится то, что нашлось?

Исправлено: Last Romantic, 11 января 2008, 13:14
Романтиком быть выгодно. Почему ты поступаешь нелогично? Я романтик. Почему ты бедный? Я романтик. Почему у тебя труп в подвале? Я романтик.
FFF Форум » ПОМОЩЬ » Помощь в учёбе (лабы, задачки, дз, шпоры) (помогаем чем можем...)Сообщений: 63  *  Дата создания: 10 января 2008, 18:35  *  Автор: nirvana
12345ОСТАВИТЬ СООБЩЕНИЕ НОВАЯ ТЕМА НОВОЕ ГОЛОСОВАНИЕ
     Яндекс.Метрика
(c) 2002-2019 Final Fantasy Forever
Powered by Ikonboard 3.1.2a © 2003 Ikonboard
Дизайн и модификации (c) 2019 EvilSpider