Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC курсовая остался один баг не могу исправить у меня в меню выводятся 3 текстовых файла когда открываю первый файл все нормально когда открываю повторно или другой файл текст спускается вниз текстовые файлы закинул в архив или можете создать свои uses crt,graphabc; label mn; var a:array of string; k,k1,k3,img,z,z1,a1,b,c,d,e,f2,g,h,i,j,k2,l,m,n,o,p,q,r,s2,t:integer; s,s1:string;f:text; procedure menu(x,y,n:integer;var k:integer); var... https://www.cyberforum.ru/ pascalabc/ thread700886.html Задание с строковыми величинами: 2 повторяющееся буквы заменить на 2 на другие Pascal ABC
Нужно что бы 2 повторяющееся буквы в слове менялись на другие (тоже 2) Например: лоорвоод на лппрвппд. Буквы оо меняются на пп. Я делал эту программу так: program urtr; var s,sl,e: string; k,v: integer; begin write('Введите слово: '); read(s); write('Заменить буквы: '); read(sl); write('На буквы: ');
Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread700833.html
Даны действительные числа s, t. Используя функцию, получить значение f(t,0.3*s)+f(s,0.2*t), вывод результата оформить в виде процедуры, где f(a,b)
Pascal ABC Вычислить значение выражения Дано натуральное число n. https://www.cyberforum.ru/ pascalabc/ thread700832.html
Сложить минимальное четных и максимальное нечетных элементов массива Pascal ABC
Даны натуральное число n, действительные числа a1, a2, … ,an. Получить min(a2, a4, … )+ max(a1, a3, … )
Pascal ABC Перемещение картинки в GraphABC Кто знает как в GraphABC переместить картинку(чтоб было видно как она перемещаеться), по отрезку из одной точки в другую https://www.cyberforum.ru/ pascalabc/ thread700780.html
Pascal ABC Трижды определить значение суммы трижды определить значение суммы, используя три различных цикла 4 s=∑ (n=x/sqr(n+1)) n=1 https://www.cyberforum.ru/ pascalabc/ thread700662.html Изобразить движение транспорта на перекрестке Pascal ABC
Нужно сделать движение как на этой картинке все картинки в архиве и залил на хостинк картинок первой должна проехать красная машина ссылки на изображение 1) smotr.im/98JS 2) http://smotr.im/98JT 3) http://smotr.im/98JV
Pascal ABC Составить программу, которая печатает фамилии людей с данным именем Описать процедуру сравнения двух слов. Составить программу, которая печатает фамилии людей с данным именем. Описати процедуру порівняння двох слів. Скласти програму, яка друкує прізвища людей з даним іменем https://www.cyberforum.ru/ pascalabc/ thread700644.html Pascal ABC Замена одного символа на три Здравствуйте. Есть задача: "Даны две строки. Заменить на символы *** символы из 1-ой строки, которые встречаются во второй строке. Исходные строки вводит пользователь." var str1, str2: string; i,j: integer; begin write('Введите первую стоку: '); readln(str1); write('Введите вторую строку: '); https://www.cyberforum.ru/ pascalabc/ thread700636.html
Задача про Кузнечика Pascal ABC
Здравствуйте! Помогите пожалуйста решить задачку: У одного из преподавателей параллели С в комнате живёт кузнечик, который очень любит прыгать по клетчатой одномерной доске. Длина доски — N клеток. К его сожалению он умеет прыгать только на 1, 2, . . . , k клеток вперёд. Однажды преподавателям стало интересно, сколькими способами кузнечик может допрыгать из первой клетки до последней. Помогите...
Pascal ABC Найти число m – среднее арифметическое всех элементов массива https://www.cyberforum.ru/ pascalabc/ thread700565.html
2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m. Добавлено через 10 минут помогите пожалуйста
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,551
Записей в блоге: 1
18.11.2012, 13:19 0

Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами - Pascal ABC - Ответ 3716002

18.11.2012, 13:19. Показов 1874. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено vladik0106 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var s,s1:string;
    n,k:integer;
Begin
    write('Введите произвольные десятичные числа разделённые пробелом: ');
    readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      Val(s1,n,k);
      if (n mod 2 = 0)and(k=0) then writeln(s1);
    End;
    readln;
End.


Вернуться к обсуждению:
Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 13:19
Готовые ответы и решения:

Pascal Дана строка состоящая из русских слов разделенных пробелами (одними или несколькими)
Дана строка состоящая из русских слов разделенных пробелами (одними или несколькими). Вывести...

Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти ко¬личество слов, которые
Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним...

Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же слова, но разделенные одним символом "."
Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же...

Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами
Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 13:19
Помогаю со студенческими работами здесь

Строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами
Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним...

Дана строка, состоящая из произвольного текста, слова разделены пробелами
Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Вывести на...

Дана строка, состоящая из русских слов, разделенных пробелами
Дана строка, состоящая из русских слов, разделенных пробелами. Вывести слова с количеством букв...

Дана строка, состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв в ведении тексте
Дана строка, состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru