DoDgY

Посетитель
  • Публикации

    123
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные пользователем DoDgY


  1. кто может это написать на бейсике?Хелп пипл)))вообще не мне просто попросили))

    ________________________

    151. Дан текст, состоящий из n строк, 2  n  10. В каждой строке слова разделены произвольным количеством пробелов. Пробелы могут стоять перед первым словом и за последним. Проверить, являются ли слова в каждой строке текста упорядоченными по алфавиту. Если нет, то упорядочить их, не делая различия между строчными и прописными буквами. У каждого слова первую букву заменить прописной, а остальные буквы сделать строчными. Исходный и преобразованный тексты вывести в различные окна списка. Для решения задачи составить следующие подпрограммы:

     процедуру ввода исходного текста;

     процедуру вывода текста в окно списка;

     логическую функцию проверки упорядоченности слов в одной строке;

     функцию преобразования одного слова;

     процедуру сортировки слов в строке.

    _________________________

    138. О каждом из n товаров, 3  n  20, известно: название, стоимость производства единицы товара, цена единицы товара. Составить список товаров, производство которых принесет максимальную прибыль. Известно, что начальный капитал равен k. Значение параметра k задается с клавиатуры. Для каждого товара в списке указать объем произведенного товара. Полученный список упорядочить по алфавиту. Исходные данные и полученные результаты вывести в различные окна списка. Для решения задачи составить следующие подпрограммы:

     процедуру ввода массива исходных данных;

     процедуру вывода массива в окно списка;

     метод формирования строки для вывода информации;

     метод вычисления прибыли от производства одного товара;

     процедуру формирования нового списка;

     процедуру сортировки списка товаров.

    Примечание. Для решения задачи использовать следующую структуру:

    Private Structure Товар

    Public Название As String

    Public СтоимостьПроизводства As Single

    Public Цена As Single

    Public Function ФормированиеСтроки() As String

    Public Function Прибыль() As Single

    End Structure

    _______________________________________


  2. Пример класса-открой любой хелп по Делфи например и посмотри там объявления класса. Стандартного хотя бы. А пример файла тебе точно не приведёшь хотя бы потому что его можно представить как угодно. Можно как RuForce в виде хмл. А можно в двоичном виде. Как хочешь так и пишешь.

     

    блин точняг...хелп...вот я чайник...спс)))пошёл палить в хелпе)))


  3. DoDgY А не проще изучить Object Pascal?

    Team Ну мы создавали в инсте генератор случайных чисел в заданном диапазоне. Ничё сложного нет. Числа дробные. А сколько знаков сам решай. НИчё указывать ен надо просто при получении значения можешь отсечь скажем дальше 4го знака. Чё-нить типа printf("%3.2f");

     

    не хотел убивать на это время...но ладн если никто не может привести пример придётся искать ответ в учебниках... :rolleyes:

     

    не хотел убивать на это время...но ладн если никто не может привести пример придётся искать ответ в учебниках... :)

     

    аааааа....чума....

    ктонибудь может мне привести такой пример обявления класса(имеющий конструкторы и сформированный файл состоящий из записей следующей структуры: имя класса - число конструкторов) на object pascal

     

    сори мне либо совсем лень чёт искать либо я ничё не могу найти то,что мне нужно... :)


  4. вопрос теоретического характера)))

    в общем дан текстовый файл содержащий фрагмент программы на object pascal.

     

    нужно найти обьявления классов имеющие конструкторы и сформированный файл состоящий из записей следующей структуры: имя класса - число конструкторов

     

    ктонибудь может мне привести такой пример обявления класса(имеющий конструкторы и сформированный файл состоящий из записей следующей структуры: имя класса - число конструкторов) на object pascal


  5. самые удобные дни для всех и вся эт суббота и воскресенье!Желательно днём в мазовую погодку! :pray:

     

    есессно :D ,а если ещё ктонить предоставит :D будет клёво!

     

    Пьяные юзеры корбины зажигают в парке Бирюлёво))))

     

    айда в эту субботу???возле перекрёстка часиков в 5-6!или мона пораньше!тама до парка не долеко,да и закупиться тоже мона сразу тама)))

    зыы...правда я не знаю ни кого(((почти...

     

    Устное предупреждение >> Еще раз двойной пост подряд и +10 за флуд >> edited by KillerHT. All rights reserved


  6. отсортировать то я смогу!Меня интересует сам факт,как в типезированном файле мне различить запись под №1,2,3 чтобы я смог уже написать процедуру сортировки!И ведь Типизированный файл не разделяется на строки!

     

    тоесть я пишу:

    1) создание типизированного файла с данными;

    2) открываю для чтения;

    3) пишу процедуру,с помощью которой пользователь сможет выбрать вид сортировки (по фамилии или институту или курсу);

    4) я пишу по процедуре к каждому случаю(когда по фамилии сортировка,когда по институту и когда по курсу),тоесть там на первое место выносится либо фамилия,либо институт ,либо курс! ВОТ ОНА МОЯ ПРОБЛЕМА!КАК МНЕ ЭТО СДЕЛАТЬ???;

    5) я пишу процедуру сортировки;

     

     

    Я ПРАВИЛЬНО НАПИСАЛ Программу создания типизированного файла????

     

    и как мне проверить,что я записал в типизированный файл?


  7. TURBO PASCAL

     

    Имеется типизированный файл,состоящий из записей следующей структуры: (фамилия,институт,курс). В зависимости от ключа отсортировать его по первому,второму или третьему полю (т.е. в зависимости от того,как захочет пользователь отсортировать по фамилии или институту или курсу).

     

    плиизз...люди помогите...мне в понедельник её надо сдавать((((

     

    вот всё,что я пока смог сделать(создать типизированный файл) и то я не знаю прально ли написал или нет(((:

     

    program vvod;

    uses crt;

    type students=record

    fam:string[40];

    inst:string[40];

    kurs:byte;

    end;

    var

    f1:file of students;

    n:students;

    i:integer;

    begin

    clrscr;

    assign(f1,'file1.dat');

    rewrite(f1);

    for i:=1 to 3 do

    begin

    write('BBEDITE: ');

    writeln;

    readln (n.fam);

    readln (n.inst);

    readln (n.kurs);

    end;

    write (f1,n);

    close(f1);

    end.

     

     

    заранее спасибо :)


  8. Бред какой-то! Я в товей программе ни черта не понял - это не комплимент, понимаешь...

     

    P.S. Copy (S,1,1) = S[1].

     

     

    Однако прога пашет!!!

    while copy (s,1,1)=' ' do

    delete (s,1,1)

    пояснение:

    мы читаем символы на чиная с первой позиции содерхащая 1 символ в строке s,пока у нас этот символ равен пробелу - мы его удаляем!


  9. спасибо а вот мой вариант:

     

    program Ctpoki;

    uses crt;

    var

    s,s2:string;

    t,i:integer;

    u:char;

    begin

    clrscr;

    write ('Введите строку:');

    readln (s);

    write ('Введите букву:');

    readln (u);

    for i:=1 to length (s) do

    begin

    while copy (s,1,1)=' ' do

    delete (s,1,1);

    while copy (s,length (s),1)=' ' do

    delete (s,length (s),1);

    s:=s+' ';

    repeat

    t:=pos (' ',s);

    s2:=copy (s,1,t);

    if s2[1]=u then

    write (s2);

    delete (s,1,t);

    until

    length(s)=0;

    end;

    end.

     

     

    зы...

    :russian:

    ну правда она чуть пообьёмней!


  10. Как мне в Паскале в выше указанной задачи сделать так,чтобы он уменя выкидывал слова начинающиеся со всех других букв кроме 'А' (Б,б,В,в,Г,г...) при этом не используя 70 If?

    Можно обьявить в константе переменную равную этим буквам,но как её использовать,чтобы Паскаль её значение выкидывал?

    А ещё у меня вот такая фишка,что после первого слова начинающегося на 'А' он выводит все последуюшие слова!как это исправить?


  11. на turbo pascal!

    народ плиз помогите с задачей на строки!

     

     

    Из заданной строки выбрать и напечатать все слова начинающиеся с буквы 'А',

     

    Вот такая вот задачка!С виду безобидная, а решить её не получается!

    :russian: