Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Загрузка текстур в программу. OpenGL В стандартном модуле OpenGL.pas для PascalABC.NET отсутствуют следующие процедуры для работы с текстурами: glGenTextures(); glBindTexture(); Вопрос: зачем их выкинули из модуля, и есть ли какие-то другие способы для вывода текстур на сцену? Добавлено через 2 часа 57 минут Добавил сам. Другой вопрос: https://www.cyberforum.ru/ pascalabc-net/ thread1560728.html Заполнить матрицу заданной размерности из случайных вещественных чисел. Вывести ее по заданным условиям. PascalABC.NET
Помогите с заданием: Дано: с клавиатуры вводятся два целых числа – М и К. 1<M<10, 1<K<10. (М – число строк, К – число столбцов) Требуется: сгенерировать матрицу размерности М х К из случайных вещественных чисел из интервала . Вывести её на экран в отформатированном табличном виде. Определить и вывести на экран построчно только те строки, все элементы которых положительны Генерацию,...
PascalABC.NET Удалить из строки все последовательности идущих подряд цифр, образующие числа большие 315 У меня есть программа, которая меняет цифру на следующую по порядку ( 9 меняет на 0 ) Подскажите, как удалить все последовательности идущих подряд цифр, образующие числа большие 315. Допустим: 15gd300v2743g--->26gd300vg Var Str: String; i: Integer; ch: Byte; Begin Write('Введите исходную строку: '); ReadLn(Str); https://www.cyberforum.ru/ pascalabc-net/ thread1560304.html PascalABC.NET "Перевести" код Нашел на сайте код стека, но он на турбо паскале 7.0 Подскажите, как его перевести в АBC.Net, а то я не бум-бум в паскале, но код нужен... Спасибо:) Program Stek; uses crt; {Для использования readkey и clrscr} type Tinf=integer; {тип данных, который будет храниться в элементе стека} List=^TList; {Указатель на элемент типа TList} TList=record {А это наименование нашего типа... https://www.cyberforum.ru/ pascalabc-net/ thread1560212.html
PascalABC.NET Найти максимальную цифру натурального числа
( с помощью рекурсивной функции или процедуры). Найти максимальную цифру натурального числа. 		PascalABC.NET Не знаю куда положить файл для открытия https://www.cyberforum.ru/ pascalabc-net/ thread1559513.html
Объясните пожалуйста куда надо положить файл чтобы его открыл паскаль? Так и не понял как то сделать
PascalABC.NET Написать программы с подпрограммой-функцией https://www.cyberforum.ru/ pascalabc-net/ thread1559455.html
Написать программы с подпрограммой-функцией. 		PascalABC.NET Жду ваших идей
Сам не знаю как решить,помогите штоль 1)В период кризиса многие предприниматели серьезно пытаются сократить расходы. ведь доходы получаются от заказов на работу, а заказов все меньше и меньше. Предприниматель Вениамин только-только начал выбиваться из кредитов и его производство начало понемногу развиваться и тут. . . кризис. Вся его программа по покупке станков срочно была приостановлена до...
PascalABC.NET Дана строка символов S, состоящая из латинских букв. Преобразовать исходную строку в строки S1 и S2 в соответс https://www.cyberforum.ru/ pascalabc-net/ thread1558963.html
Дана строка символов S, состоящая из латинских букв. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Преобразовать исходную строку в строки S1 и S2 в соответствии с пунктами 1 и 2. Если какая-либо из итоговых строк окажется пустой, выводить соответствующее сообщение. п.1. – Напечатать слова, отличные от последнего слова, если каждая буква... 		PascalABC.NET Планирование работы В период кризиса многие предприниматели серьезно пытаются сократить расходы. ведь доходы получаются от заказов на работу, а заказов все меньше и меньше. Предприниматель Вениамин только-только начал выбиваться из кредитов и его производство начало понемногу развиваться и тут. . . кризис. Вся его программа по покупке станков срочно была приостановлена до лучших времен, а пока нужно как-то... https://www.cyberforum.ru/ pascalabc-net/ thread1558942.html
Поиск клада PascalABC.NET
Фёдор решил написать игрушку для двух игроков на клетчатом поле w × h (ширина и высота соответственно). На поле находятся два игрока, Зайчик и Волк. Зайчик ходит первым и может двигаться по горизонтали, вертикали и диагонали, то есть, если он находится в клетке (4, 3), то он может попасть в клетки (3, 3),(5, 3),(4, 2),(4, 4), (3, 2),(3, 4),(5, 4),(5, 2). Волк же ходит вторым и может... 		PascalABC.NET Создание электронной доски почета https://www.cyberforum.ru/ pascalabc-net/ thread1558933.html
Начинающий программист Фёдор помогает учителю информатики поддерживать школьный сайт. На последнем педсовете было принято решение на сайте сделать электронную доску почета. То есть на специально созданной страничке разместить фотографии размером a×b точек. Известно, что размер странички w × h точек. Требуется определить сколько фотографий можно разместить на этой веб-страничке....
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 66
0

Из текстового файла считывать строку, обрабатывать и результат записывать в тот же файл - PascalABC.NET - Ответ 8238367

24.10.2015, 15:25. Показов 716. Ответов 2
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Программа должна работать следующим образом, из текстового файла считывать строку, обрабатывать и результат записывать в тот же файл.
Строку обрабатывает следующим образом - выводит только те слова, перед которым стоят меньшие, а после большие

ошибок не выводит, запускается но ничего не происходит((
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

var
str,w1,w2,w3:string;
i,j,nw:integer;
f : Text;
Begin
Assign(f,'D:\new\InputFile.txt'); 
Reset(f); 
Readln(f, str); 
Close(f); 
 
 
 
 
str:=str+'.';
i:=1;
nw:=0;
w1:='';
w2:='';
if (str[i] >= 'A') and  (str[i] <= 'Z') then
while(str[i]<>'.') do
  begin 
  while((str[i]<>'.') and (str[i]=','))do inc(i);
  if str[i]<>'.' then
    begin
    j:=i;
    
    while((str[i]<>'.') and (str[i]<>','))do inc(i);
    if j-1> 5 then halt;
    inc(nw);
    if nw>30 then halt;
    w1:=w2;
    w2:=w3;
    w3:=copy(str,j,i-j);
    if (w1<>'') and (w2<>'') and (w1<w2) and (w2<w3) then writeln(w2);
    end;
  end;
 
  Assign(f,'D:\new\InputFile.txt'); 
  Rewrite(f); 
  
  Close(f)
End.


Вернуться к обсуждению:
Из текстового файла считывать строку, обрабатывать и результат записывать в тот же файл PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.10.2015, 15:25
Готовые ответы и решения:

Как считывать строки из текстового файла и записывать их в файл?
До этого на java не программил, но щас потребовалось сделать это именно на этом языке. Желательно...

Считывать из текстового файла и записывать в новый файл только строки, содержащие двузначные числа
Написать программу, которая считывает из текстового файла и записывает в новый файл только строки,...

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

Нужно переделать, чтобы программа могла считывать данные с файла и записывать в него результат.
Вот программа, созданная мною в C++ Builder. Она в не квадратной матрице элементы(кроме граничных)...

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

Считывать из файла по 512 байт и записывать их в новый файл
Надо считывать из файла по 512 байт и записывать их в новый файл. Так как я написал, при...

Удалить из текстового файла третью строку. Результат записать в другой файл
Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл.

Удалить из текстового файла его последнюю строку. Результат записать в другой файл.
Удалить из текстового файла его последнюю строку. Результат записать в другой файл.

Удалить из текстового файла его последнюю строку. Результат записать в другой файл
удалить из текстового файла его последнюю строку. Результат записать в другой файл. У меня есть...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru