Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Перенести из C++ в Pascal ABC помогите пожалуйста перенести из C++ в Pascal ABC #include <iostream> #include<conio.h> #include<math.h> #include<cstdlib> using namespace std; int main() { setlocale(LC_CTYPE,"RUSSIAN"); https://www.cyberforum.ru/ pascalabc/ thread1135060.html Оптимизация процедур Pascal ABC
помогите пожалуйста оптимизировать последние две процедуры(чтобы в этих процедурах на вход давалось не 2 строки, а одна, а в самой программе по очереди вызывать эти процедуры для строк) Вот условие: Параметры – строки. Действия: • урезание более длинной строки до длины более короткой; • добавление пробелов в более короткую строку до длины более длинной; • конкатенация первых слов обеих строк;...
Pascal ABC Переписать код, используя другие операторы прошу помочь мне переписать эту задачу с другими операторами begin Y:=(sin(x*x)/cos(x*x))/((x*x)+1); end; begin b:=1; a:=0.2; n:=10; h:=(b-a)/n; s:=0; z:=a+h; https://www.cyberforum.ru/ pascalabc/ thread1135034.html Pascal ABC Машина Тьюринга https://www.cyberforum.ru/ pascalabc/ thread1134981.html
Здравствуйте. Я не знаю в какой раздел писать, поэтому если что подскажите. Помогите пожалуйста с такой вот задачей. Построить систему команд машины Тьюринга, реализующей следующие действия: На входной ленте заданы два числа в унарном коде. Получить на ленте число в двоичной системе счисления, равное произведению первого числа на второе. Саму машину я построить то смогу, но эту задачу...
Вставить элемент перед отрицательным последним элементом Pascal ABC
Вставить элемент перед отрицательным последним элементом.
Pascal ABC Прямоугольник с закругленными углами https://www.cyberforum.ru/ pascalabc/ thread1134905.html
Нужно нарисовать в паскале знак. подскажите, как нарисовать прямоугольник с закругленными углами?) ну если не сложно можно нарисовать полностью:)
Pascal ABC Найдите количество строк прямоугольной матрицы содержащей 0 и 1, в которых число нулей больше числа единиц https://www.cyberforum.ru/ pascalabc/ thread1134829.html
ПОМОГИТЕ СРОЧНО!!!!!!
Pascal ABC В квадратной матрице найти наибольший элемент и сумму элементов строки на пересечении которой расположен этот элемент
сРОЧНО ПОМОГИТЕ!!!!!!!!!!
Pascal ABC Получить квадратную матрицу по правилу https://www.cyberforum.ru/ pascalabc/ thread1134759.html
Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка n: \begin{pmatrix}a_1 & a_2 & a_3 &\ldots & a_{n-2} & a_{n-1} & a_n\\a_2 & a_3 & a_4 &\ldots & a_{n-1}& a_n & a_1\\a_3 & a_4 & a_5 &\ldots & a_n & a_1 & a_2\\\vdots & \vdots & \vdots & \ddots & \vdots & \vdots & \vdots\\a_{n-1} & a_n & a_1 &\ldots & a_{n-4}& a_{n-3} & a_{n-2}\\a_{n} & a_1 & a_2...
Pascal ABC Выполнить замену первого символа на второй символ во всей строке текста https://www.cyberforum.ru/ pascalabc/ thread1134681.html
привет , помогите с лабой , мне нужно что бы не нужно было задавать первый символ и второй , а что бы я задал строку и программа сама определила первый и второй символ и поменяла их местами var s : string; ch1, ch2 : char; i : integer; begin Writeln('первый символ ');Readln(ch1); Writeln('второй символ');Readln(ch2); Writeln('строка ');Readln(s); Writeln(s);
Pascal ABC Определить числа, что равны произведению элементов столбцов и заменить их на 1
Задана матрица целых чисел размером (М;Н). Определить числа, что равны произведению элементов столбцов и заменить их на 1
Pascal ABC Найти количество элементов в каждом столбце, меньших среднеарифметического значения элементов данного столбца матрицы Создать матрицу 4х6. Найти количество элементов в каждом столбце, меньших среднеарифметического значения элементов данного столбца. https://www.cyberforum.ru/ pascalabc/ thread1134606.html
0 / 0 / 0
Регистрация: 21.01.2014
Сообщений: 20
0

Дан многострочный текстовый файл слова разделены пробелами, сформировать новый файл с палиндромом строк первого файла - Pascal ABC - Ответ 5979619

31.03.2014, 20:04. Показов 1312. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите что не так в создании и обработке второго файла...

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
var i:integer;f,f1:text;S,s1:string;
begin
assign(f,'fff.txt');// создаем первый файл и записываем в ручную строки
rewrite(f);
for i:=1 to 5 do
begin
readln(S);write(f,s);writeln(f);
end;
close(f);
 
assign(f1,'ff1.txt');
rewrite(f1);
reset(f);
while not eof(f) do
begin
for i:=1 downto length(s) do begin
s1:=s;
write(f1,s1);
writeln(f1);
end;
end;
close(f1) ;
close(f);
 
reset(f1);
write('Второй файл');
while not eof(f1) do
begin
readln(f1);
writeln(f1,s1);
writeln(f1);
end;
close(f1);
end.
Добавлено через 1 час 14 минут
Под палиндром я подразумевал...
Должно выводить перевернутые строчки из 1ого файла на подобие:
Я иду домой
йодом уди я

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

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством...

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей
Помогите, пожалуйста. 1) Как вернуть значения n к 0 после подсчета количества слов в предложении?...

Дан символьный файл, содержащий произвольный текст длиной более 5000 слов. Слова разделены пробелами и знаками препинания. Получить 100 наиболее часто
НАРОД срочно нужно написать на паскале : Дан символьный файл, содержащий произвольный текст...

Дано число k и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк
И снова всем привет) Помогите пожалуйста со следующим заданием: Дано число k (&lt;10) и текстовый...

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

Текстовый файл. Сформировать новый файл, исключив строки, длина которых превышает 50 символов
Дан текстовый файл. Сформировать новый файл, исключив из него строки, длина которых превышает 50...

Создать новый текстовый файл, содержащий k последних строк исходного файла
Дано число k (&lt; 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл,...

Дан многострочный текстовый файл, посчитать количество гласных и согласных букв в этом файле
дан многострочный текстовый файл посчитать кол-во гласных и согласных букв в этом файле

Файлы. Создать новый текстовый файл, содержащий К последних строк исходного файла
Дан текстовый фаил содержащий более К строк. Создать новый текстовый фаил содержащий К последних...

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