Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2009, 17:00   #1
Zender91
Новичок
Джуниор
 
Регистрация: 12.06.2009
Сообщений: 2
Лампочка Помогите написать 2 програмки.

Доброго времени суток. Помогите написать 2 программы, вот и сами условия:
Ввести с клавиатуры несколько строк текста. Узнать сколько в каждой строке слов, и длину самого большого слова.

Создать масив записей структура какого:
Товары
Стул мъягкий / Стул твердый / Стул на колесах / Цена

Основа / Материал / Основа
Оббивка / Цвет / Оббивка
Цвет / Количество колес
а) Вывести стоимость всех слульев.
b)вывести список мъягких стульев с оббивкой красного цвета и стоимостью 150-300 рублей.
с)Изъять из списка стулья с количеством колес.
Заранее спасибо.
Zender91 вне форума Ответить с цитированием
Старый 12.06.2009, 17:12   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Сами что - нибудь придумали????
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 12.06.2009, 17:27   #3
Zender91
Новичок
Джуниор
 
Регистрация: 12.06.2009
Сообщений: 2
По умолчанию

Вот ссылка на задачи, там должна быть таблица, но на форуме ее не показвает http://dump.ru/file/2890449
Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
Сами что - нибудь придумали????
Вот есть похожая программа на мою вторую там где таблицей нужно:

PHP код:
uses crt;
type zap=record
     author
,title:string;
     case 
tag:Integer of
     1
:(price:Integer);
     
2:(year:Integer;journal:string);
     
3:(date:string;news:string);
     
end;
var 
katalog:array[1..20]of zap;
i,j,k,l:byte;
ch:char;

procedure vvod;
begin clrscr;
repeat 
  i
:=i+1;
with katalog[i] do
 
begin
  write
('lnput type of editions: 1-book,2-journal,3-newspaper');
readln(tag);
  case 
tag of
1
:begin
write
('author of book: '); readln(author);
write('title of book: ');   readln(title);
write('price of book: ');  readln(price);
end;
2:begin
write
('author of article In journal:'); readln(author);
write('tltle of article:');               readln(title);
write('name of journal: ');          readln(journal);
write('year :');                      readln(year);
end;
3:begin
write
('author of article In newspaper: '); readln(author);
write('tltle of article In newspaper: ');   readln(title);
write('name of newspaper: ');          readln(news);
write('date :');    readln(date);
end;
end;
end;
writeln('continue?Y/N');
    
ch:=readkey;
until ch=upcase('N');
end;

procedure vyvod;

{var 
tag:integer;}
begin
clrscr
;
for 
j:=1 to i do
with katalog[j] do
case 
tag of
1
begin
writeln
('books: ',author,' ',title,' ',price);     readln;
end;
2:begin
writeln
('|ournals:',journal,' ',year,' ',author,' ',title);     readln;
end;
3:begin
writeln
('newspaper: ',news,' ',date,' ',author,' ',title);    readln;
end;
end;
end;

procedure task1;
var 
kol:integer;
fl:boolean;
begin clrscr;
for 
j:=1 to I do  begin
kol
:=1;
fl:=false;
for 
k:=1 to j-do
if 
katalog[j].author=katalog[k].author then fl:=true;
If 
fl=false then begin
for l:=j+1 to i do
if 
katalog[l].author=katalog[j].author then kol:=kol+1;
writeln('author',katalog[i].author,'has works= ',kol);
end;
end;
readln;
end;
procedure task2;
var 
tmp:integer;
flag:boolean;
begin clrscr;
writeln('lnput journal"s edition year');
readln(tmp);
 
clrscr;
flag:=false;
writeln('journals In ',tmp' year');
for 
j:=1 to I do    begin
if katalog[j].year=tmp then
begin
writeln
(katalog[j].journal);flag:=true;
end;
end;
if 
flag=false then
writeln
('journals not exist In katalog In year ',Tmp);
readln;
end;

procedure endprog;
begin clrscr;
gotoxy(15,10); writeln('Do you want to exit from program? y/n');
ch:=readkey; If ch='y' then halt(0);
end;

procedure menu;
begin
repeat
cLrscr
;
gotoxy(21,3);   writeln('MENU');
gotoxy(15,5);   writeln('1. Input database');
gotoxy(15,7);   writeln('2. Show database');
gotoxy(15,9);   writeln('3. Number of author"s works .');
gotoxy(15,11);   writeln('4. Journals In current year.');
gotoxy(15,13);   writeln('5. Exit');
ch:=readkey;
case 
ch of
'1':vvod;
'2':vyvod;
'3':task1;
'4':task2;
'5':endprog;
end;
until ch='5';
end;
begin
clrscr
;
i:=0;
menu;
end
Мне нужно сделать почти так само, только в этом коду что я закинул там таблица по которой делалась задача немного не такая.
Zender91 вне форума Ответить с цитированием
Старый 12.06.2009, 20:50   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

По поводу первой!!!
Допустим введена одна строка и слова разделяются пробелом, то необходимо посчитать пробелы и увеличить кол-во слов на 1
Код:
...
kol := 0;
for i := 1 to Length(stroka) do
    if (stroka[i] = ' ') then
        Inc(kol);
Writeln ('Количество слов ', Inc(kol));
...
И поиск слов
Код:
dlina := 0;
tempdlina := 0;
for i := 1 to Length(stroka) do
    if (stroka[i] <> ' ') then
        Inc(tempdlina)
    else if (tempdlina > dlina) then
          begin
              dlina := tempdlina;
              tempdlina := 0;
          end;
Writeln ('Длина самого большого слова = ', dlina);
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите сдать экзамен!!! Нужен код деревьев двоичного поиска и еще 2 програмки Девчонка Помощь студентам 8 18.01.2008 19:02
Програмки в Паскаль. Помогите решить...а то зачета никогда не видать Верчик Помощь студентам 4 21.12.2007 10:50
помогите в написании одной програмки Илюха Общие вопросы Delphi 17 12.10.2007 07:55
Простые програмки на TPascal cL1zMa Помощь студентам 9 13.06.2007 16:32