Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Для студентов заданной группы, имеющие средний балл, больший 4.5, вывести фамилию и средний балл https://www.cyberforum.ru/ pascal/ thread1653773.html Для студентов заданной группы,имеющие средний балл,больший 4.5,вывести фамилию,имя,отчество и средний балл. ФИО\|год рождения\|пол\|физика\|математика\|информатика\|стипендия С клавиатуры:program onetwo; type student=record group:string; surname,otch:string; name:string; sex:string;	Найти сумму ряда с заданной точностью Pascal \sum_{k=1}^\infty \frac{(-1)^k{(k+1)x}^k}{3^k} n и Е (Е=10-6)
Pascal Работа со списком товаров https://www.cyberforum.ru/ pascal/ thread1653693.html Программа должна содержать меню и обеспечивать ввод-вывод в окна на экране. Необходимо предусмотреть контроль ошибок пользователя при вводе данных. При разработке программы применить технологию нисходящего проектирования. Логически законченные фрагменты оформить в виде подпрограмм, которым все необходимые данные передать через список параметров. Использования глобальных переменных следует...	Pascal Для заданной матрицы размером 8 × 8 найти указанные характеристики Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах не допускается. Вывод результатов работы подпрограмм должен выполняться в главной программе. Для заданной матрицы... https://www.cyberforum.ru/ pascal/ thread1653618.html
Pascal Найти номер максимального элемента массива 1. Найти номер максимального элемента массива. 2. Найти произведение элементов массива, расположенных между первым и вторым нулевыми элементами. 3. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях, а во второй половине — элементы, стоявшие в четных позициях. ПОЖАЛУЙСТА ЗАПИЩИТЕ ЦЕЛУЮ ПРОГРАММУ (((	Pascal Вычислить и вывести на экран в виде таблицы значения функции arcctg(x), заданной рядом Тейлора https://www.cyberforum.ru/ pascal/ thread1653611.html Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xнач до xкон с шагом dx с точностью ε. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. С функциями или подпрограммой \operatorname{arcctg} x=\frac{\pi }{2}+\sum_{n=0}^\infty...
Pascal Произведение матрицы на вектор Помогите в решении этой задачки, пожалуйста(( Дана вещественная квадратная матрица А порядка n. Считая, что 1<=i<=n,1<=j<=n, найти: произведение матрицы на вектор y=Ax, n где yi=∑ aik xk, x, y-вещественные векторы. k=1 https://www.cyberforum.ru/ pascal/ thread1653382.html	Найдите максимальную красоту среди красот всех клеток и количество клеток, имеющих такую красоту Pascal Помогите с Олимпиадой задачкой. Проходит не все тесты: Видимость звездочек (упрощенная версия) ограничение времени на тест: 1 секунда ограничение памяти на тест: 256 мегабайт ввод: standard вывод: standard Задано прямоугольное поле из символов, состоящее из n строк по m символов в каждой строке. Каждый символ — это либо точка ('.’), либо звездочка '*’.
Pascal Вывести номер курса, на котором наибольший процент мужчин https://www.cyberforum.ru/ pascal/ thread1652737.html Сведения о студентах вуза записаны в массиве и содержат следующую информацию: фамилия, имя, отчество, пол (М или Ж), возраст (от 16 до 35), курс (от 1-го до 5-го). Напишите программу, которая выводит эту информацию и печатает следующие данные: а) номер курса на котором наибольший процент мужчин; б) самые распространенные мужские и женские имена; в) фамилии (в алфавитном...	Pascal Какой алгоритм действий при изучении паскаля? https://www.cyberforum.ru/ pascal/ thread1652709.html Только два шага? 1) Теория 2) Решение задач
Pascal Вычислить произведение отрицательных элементов массива В одномерном массиве состоящем из n вещественных элементов, вычислить: 1)произведение отрицательных элементов массива; 2)сумму положительных элементов массива, расположенных до максимального элемента. Изменить порядок следования элементов в массиве на обратный. (Помогите пожалуйста, напишите код в паскале)	Pascal Вычислить произведение https://www.cyberforum.ru/ pascal/ thread1652555.html program lab6; var P:real; k,N:integer; begin P:=1; N:=30; for k:=1 to N do begin if (k<6) then P:=P(sqr(sin(k))+cos(k)) else if (6<=k) and (k<=10) then P:=P0 else if (k>10) then P:=P*(sqr(cos(k))+sin(k))

Greenmars

0 / 0 / 0

Регистрация: 01.02.2016

Сообщений: 75

03.02.2016, 17:14 [ТС]

Слить две строки, вставив символы одной строки между символами другой строки - Pascal - Ответ 8706550

03.02.2016, 17:14. Показов 2699. Ответов 20

Метки (Все метки)

Ответ

bormant,посмотрите мой код на ABC. Что в нем не так? Он компилирует. Но при отправке проходит больше половины тестов, но не все.

Pascal

var a,b:string;
c:array [1..2000] of char;
i,j,k,n:integer;
begin
readln(a);
read(b);
j:=1;
i:=1;
k:=1;
n:=length(a)+length(b);
a:=a+'*';
b:=b+'*';
while (a[i]<>'*') and (b[j]<>'*') do 
    begin
    if a[i]>b[j] then 
         begin
         c[k]:=a[i];
         Inc(i);
         end 
   else 
         begin
         c[k]:=b[j];
         Inc(j);
         end;
   write(c[k]);
   Inc(k);
   end;
while a[i]<>'*' do begin
    c[k]:=a[i]; 
    Inc(i); 
    write(c[k]);
    Inc(k);
    end;
  while b[j]<>'*' do 
   begin
   c[k]:=b[j]; 
   Inc(j); 
   write(c[k]);
   Inc(k);
   end;
end.

Добавлено через 10 минут
APALoff, а можете пояснить решение?

Добавлено через 4 минуты
bormant, APALoff, кстати, смотрите... например:
kaaz
kaam
программа должна вывести kkaazaam;
но в предложенной программе выведет: kkaaamaaaz

Вернуться к обсуждению:
Слить две строки, вставив символы одной строки между символами другой строки Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

03.02.2016, 17:14

Готовые ответы и решения:

Ввести две строки. Вывести на экран можно ли, переставляя символы первой строки, получить вторую строку
Очень нужно решить задачу, чтоб экзамен поставили) Вот сама задача: Ввести две строки....

Определить, совпадают ли первые два символа первой строки с двумя последними символами второй строки?
Помогите решить задачку... Определить совпадаеют ли первые два символа первой строки с двумя...

Символами строки являются большие и малые латинские буквы. Удалить из состава строки последовательности 'abcd', в составе которых могут быть как боль
Символами строки являются большие и малые латинские буквы. Удалить из состава строки...

Из строки сформировать новую строку, содержащую символы цифр исходной строки
Из введенной символьной строки выбрать все цифры и сформировать другую строку из этих цифр,...

	03.02.2016, 17:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

03.02.2016, 17:14

Помогаю со студенческими работами здесь

вам даны две строки s и t определите длину наибольшей строки которая встречается в обеих
вам даны две строки s и t определите длину наибольшей строки которая встречается в обеих

Вывести одну гласную латинскую букву из первой строки, две из второй, ... i гласных латинских букв из строки н
Разработать функцию MakeStr(S:string; N:integer):string, возвращающую строку из N первых гласных...

Даны две строки: S1 и S2. Удалить из строки S1 последнюю подстроку, совпадающую с S2. Если таких подстрок нет, то вывести S1 без изменений
Вот условие: Даны две строки: S1 и S2. Удалить из строки S1 последнюю подстроку, совпадающую с S2....

Удалить из строки все символы, находящиеся между «А» и «В»
1.Дана строка символов. Удалить из нее все символы, находящиеся между «А» и «В». Если таких...

Наверх