помогите, срочно надо паскаль Дан текст, в котором после знаков препинания могут отсутствовать пробелы. Вставить пробелы после каждого знака препинания, а если это тире, то и перед этим знаком и каждое слово, стоящее после точки написать с большой буквы.
Помогите сделать тест с подсчетом результатов и возможностью добавления тестового задания. Наполняемость не имеет значения.
Ребят, помогите пожалуйста, очень нужна помощь, асемблер не знаю вообще, а на нем надо составить уравнение: (sin^2альфа-2cos^2альфа)/(5sinальфа*cosальфа+3) и задание: Дан одномерный массив из 40 1-значных положительных и отрицательных чисел. Расположить массив в памяти. Произвести замену всех отрицательных элементов массива на 0. Вывести исходный и итоговый массив на экран.
Code: Дан список товаров, содержащий следующие данные: название товара, стоимость покупки, стоимость продажи, количество проданного товара. вывести список товаров отсортировав его по полученной прибыли. вот, может кому надо будет Code: program zap6; uses crt; type tovar=record name:string; pro,kol,pok,qwe,pri:integer; end; var f,c:array[1..20] of tovar; i,n,j,max:integer; pr:tovar; begin clrscr; write('Введите кол-во товаров: '); readln(n); for i:=1 to n do begin writeln; writeln('Товары',i); write('Введите название товара: '); readln(f[i].name); write('Введите стоимость покупки: '); readln(f[i].pok); write('Введите стоимость продажи: '); readln(f[i].pro); write('Введите кол-во товара*: '); readln(f[i].kol); end; for i:=1 to n do begin f[i].pri:=(f[i].pro-f[i].pok)*f[i].kol; for j:=i+1 to n do begin f[j].pri:=(f[j].pro-f[j].pok)*f[j].kol; if f[j].pri>f[i].pri then begin pr:=f[j]; f[j]:=f[i]; f[i]:=pr; end; end; end; writeln; for i:=1 to n do writeln(i,' товар "',f[i].name,'" (',f[i].pri,' прибыль)'); readln end. new задача: Создать модуль с подпрограммами: propose, replacetext, forma, endpos. Используя указанные подпрограммы выполнить следующее задание. Текст представляет собой адрес, преобразовать этот текст заменяя ул. на улица, д. на дом, название улицы может содержать несколько слов, которые надо записать с заглавной буквы и удалить лишние пробелы.
2Catsy. Вот немного переработанный и рабочий вариант Добермана Code: const znaki = [',', '.', '!', '?', ':', ';']; var t, tx: text; s: string; i, len: integer; begin assign (t, 'c:\xxx.txt'); reset (t); assign (tx, 'c:\yyy.txt'); rewrite (tx); while not eof (t) do begin readln (t, s); len := length (s); for i := 1 to len do begin if (s[i] in znaki) and (s[i+1] <> ' ') then insert(' ', s, i+1); end; write (tx, s[i]); end; close (t); close (tx); end.
Catsy, тогда код цикла for будет таким Code: for i := 1 to len do if (str [i] in znaki) and (str [i + 1] <> ' ') then begin insert (' ', str, i + 1); if str [i] = '.' then begin c := upcase (str [i + 2]); delete (str, i + 2, 1); insert (c, str, i + 2); end; end;
кто может помочь с С++... надо решать простенькие задачки... 1. в массиве из 5 элементов найти максимум и минимум 2. Сост. прогу, которая содержит 3 функции, вычисл. квадрат заданного числа, куб и разность между этими двумя функциями 3. Напис. прогу, в кот. +,-,*,/. с помощью swich case. При этом кажд. из этих действий описать в отдельной формуле. 4. напис. прогу для работы с указателем в режиме "калькулятор". +,-,*,/ . Пользователь должен ввести 2 числа и операцию, комп вышлет результат.
создал, тока нужно еще название улицы (стостящие не из двух слов) чтоб писалось с заглавной буквы (оба слова)
У меня вот какая задачка на Делфях Есть текстовый файл с данными, такого вида: #data1 name\data2 Нужно чтоб программа могла 2 действия на выбор I при нахождении двух последовательных одинаковых имен перемещала строку с именем\data2 и data1 (который выше) рандомно на несколько строк вниз, чтоб имена не повторялись подряд. II перемещала имена (которые повторяются на примерно равные промежутки друг от друга, первое имя не трогаем) считывала все это из 1 файла, затем писала во второй #data1 (для примера написал 1,2,3, могут присутвовать буквы,цифры, знаки) имя (в имени могут присутствовать пробелы, знаки, но не "\") \ (разделение имени от данных слешем всегда) прочие данные (все на одной строке, может присутствовать "\") Вот пример работы, цветом выделено то, что перемещаем. Code: До обработки [COLOR=YellowGreen]#1a Jack\...[/COLOR] #2t Cris\... #3f Chack\... #4q Mr_Devil\... #5u J Bush\... #6r Dr J Evil\... [COLOR=DarkOrange]#7ii Jack\... #8q Jack\...[/COLOR] #9.4 Kyle\... #10 Kenny\... Code: После обработки (перемещение на равные промежутки) [COLOR=YellowGreen]#1a Jack\...[/COLOR] #2t Cris\... #3f Chack\... #4q Mr_Devil\... [COLOR=DarkOrange]#7ii Jack\...[/COLOR] #5u J Bush\... #6r Dr J Evil\... #9.4 Kyle\... #10 Kenny\... [COLOR=DarkOrange]#8q Jack\...[/COLOR] Заранее примного благодарен.
Задача: написать на любом языке программирования, который вам нравиться): переформировать строку "Bugtrack for guru!!!!" из 21 байта, в бинарную строку из 24 байт. Причем из заданной строки берутся последовательно по 7 бит, и записывается в новую строку. Кто поможет - тому еще 6ти знак дам))
Препод озадачил задачкой про робота=( суть такова: “Глупый” робот движется по клеткам прямоугольного поля n x m случайным образом. Начальное положение робота - клетка (0,0). Необходимо написать алгоритм, в результате которого робот попадет в клетку (n-1, m-1) Робот может двигаться за один шаг только на одну клетку вверх (север), влево (запад), вправо (восток) или вниз (юг) и не может выходить за границы поля. Каждый следующий шаг робота определяется случайным образом с помощью генератора случайных чисел. Попытка выхода за границы поля считается неправильным шагом, и робот насильно возвращается в предыдущую неправильному шагу клетку поля. Необходимо подсчитать общее количество шагов, сделанных роботом и количество неправильных шагов. Ниже приведена структура программы. Жирным шрифтом выделены фрагменты, которые необходимо воспроизвести полностью, как есть. Короткими комментариями (нежирный шрифт) определены места для самостоятельной вставки кода программы. Необходимо строго следовать инструкциям, воспроизводить в коде программы указанные в комментариях имена переменных. Сами комментарии воспроизводить не нужно. Ниже сам текст программы, который нужно дополнить: Таблица по которой он должен двигаться по вертикали 7 клеток по горизонтали 10, координаты- Верхний левый клетка - (0, 0) Верхний правый клетка - (0, m-1) Нижний левый клетка - (n-1, 0) Нижниый правый клетка - (n-1, m-1) Буду очень благодарен за помощь, с меня плюс, большой=)
на С++ завтра надо сдавать помогите плз, неуспеваю сам 1.в одномерном массиве состоящем из n-целых элементов вычислить: - минимальный по модулю элемент массива - сумму модулей элементов массива расположенного после первого элемента равного 0 преобразовать массив таким образом чтобы в первой его половине располагались элементы стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях 2. написать программу которая считывает английские и выводит на экран только строки не содержащие 2значных чисел 3. 1) описать струкруту MARSH содержащую следующие поля: - название начального пункта маршрута - название конечного пункта машрута - название маршрута 2) написать программу выполняющие следующие действия: - ввод с клавиатуры данных в массив состоящий из 8ми эл-в типа MARSH; записи должны быть упорядочены по номерам маршрута - вывод на экран информации о маршруте, № которого введен с клавиатуры, если таких маршрутов нет, выдать на дисплей соответствующее сообщение
Вообще-то в эот понятие много чего входит. В меру своих возможностей состряпал тут пару строчек, вот, что получилось: Исходник P.S. ОО среда Паскаля = Delphi =))
delphi 5/7 без разницы! Создать абстрактный класс с виртуальной функцией- площадью и методом определения количества краски необходимой для зарисовки фигуры (количество краски на единицу площади задать самастаятельно ). Создать производные классы : прямоугольник, круг, прямоугольный треугольник трапецию со своими собственными функциями площади! Использовать эти объемы для определения количества краски необходимой зарисовки указанной фигуры!!! ================= У кого есть какие-то похожие задания помогите или напишите эту/сам ничего не понимаю не мой профиль\= флуд в репу + гарантирован! заранее спасибо
Я правильно понял задание что, например, из последовательности: Code: 0100.0001 0100.0001 0100.0001 0100.0001 0100.0001 0100.0001 0100.0001 (эта последовательность эквивалентна строке "AAAAAAA") Надо получить получить: Code: 0010.0000 0101.0000 0010.1000 0001.0100 0000.1010 0000.0101 0000.0010 0100.0001 ?
lab, первая задача на коленке #include <iostream> using namespace std; /* 1.в одномерном массиве состоящем из n-целых элементов вычислить: - минимальный по модулю элемент массива - сумму модулей элементов массива расположенного после первого элемента равного 0 преобразовать массив таким образом чтобы в первой его половине располагались элементы стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях */ int main() { const int n = 10; int min; int Array[n]={2,3,4,-5,-1,0,7,-4,9,-5}; min=Array[0]; int minIndex; for(int i=1;i<n;i++) { if(Array>0&&Array<min) { min=Array; minIndex=i; } else if (Array<0&&(-Array<min)) { min = -Array; minIndex=i; } } int zeroIndex; int summ=0; for(int i=0;i<n;i++) { if(Array==0) { zeroIndex=i; break; } } for(int i=zeroIndex;i<n;i++) { if(Array>0) summ+=Array; else summ+=(-Array); } int modifyArray[n]={0}; int k=0; int m=n/2; for(int i=0;i<n;i++) { if(i%2==0) { modifyArray[k] = Array; k++; } else { modifyArray[m] = Array; m++; } } cout<<"Minimal number has index "<<minIndex<<" and it is "<<min<<endl; cout<<"Summ is "<<summ<<endl; for(int i=0;i<n;i++) { cout<<modifyArray<<" "; } cout<<endl; return 0; }
