Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > 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
Модератор
9601 / 4923 / 3248
Регистрация: 17.08.2012
Сообщений: 15,366
31.03.2014, 23:41 0

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

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

Ответ

Первый файл нормально создали... Ну, лишнее убрать только. Со вторым файлом швах. Запутались в индексации и циклах, видимо. В циклах с downto первый параметр должен быть больше, Вы всё перепутали. Как Вы написали, цикл не выполнится ни разу. А, да ладно... Изучайте.
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

var i: integer;
    f, f1: text;
    s: string;
begin
  assign(f, 'c:\fff.txt');// создаем первый файл и записываем в ручную строки
  rewrite(f);
  writeln('Введите строки:');
  for i:=1 to 5 do
    begin
      readln(S); writeln(f, s)
    end;
  close(f);
 
  assign(f1, 'c:\ff1.txt');
  rewrite(f1);
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      for i := length(s) downto 1 do write(f1, s[i]);
      writeln(f1);
    end;
  close(f1) ;
  close(f);
 
  reset(f1);
  writeln('Второй файл:');
  while not eof(f1) do
    begin
      readln(f1, s);
      writeln(s)
    end;
  close(f1);
  readln
end.


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

Дан текстовый файл 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, 23:41
Помогаю со студенческими работами здесь

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

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

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

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

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