Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Написать программу,содержащую процедуру,которая вставляет в матрицу строку или столбец с заданным номером Ребят помогите пожалуйста. Написать программу,содержащую процедуру,которая вставляет в матрицу строку или столбец с заданным номером. Заранее спасибо ребят. https://www.cyberforum.ru/ turbo-pascal/ thread794786.html	Процедуры-подпрограммы. сформировать новую матрицу Turbo Pascal Подскажите, что делаю не так? Ввести матрицу А(4,4). Сформировать матрицу В(4,4), где -1, если a<0 b= 0, если a=0 1, если a>0 Новую матрицу и исходную вывести на печать, используя процедуру. program laba8; uses crt;
Turbo Pascal Редактирование задачи. Нужно чтобы интервал ab, введенный пользователем, исключал минус единицу https://www.cyberforum.ru/ turbo-pascal/ thread794705.html Есть вот прога) Нужно ее чуть отредактировать: нужно чтобы интервал ab, введенный пользователем, исключал минус единицу (-1) иначе происходит деление на ноль. Т.е. если пользователь вбил а=-3 а б=3 (в интервал входит -1), программа должна вывести ошибку и попросить ввести а и б еще раз) program kkr2; uses crt; var str: string; a, b, h, e, x, Fx, ak, ck: real; n, k, err: integer; begin...	Turbo Pascal В новом массиве определить полусумму первого и последнего элементов https://www.cyberforum.ru/ turbo-pascal/ thread794683.html Сформировать новый массив B(N) из заданного массива A(N) последовательным умножением всех элементов на третий элемент массива A(N). В новом массиве B(N) определить полусумму первого и последнего элементов.
Turbo Pascal Найти количество двузначных чисел. 1)Дано н чисел.Найти количество двузначных чисел. Все задачи нужно решить через For,While,Repeat.	Turbo Pascal 2 массива, интерпретируемые как множества https://www.cyberforum.ru/ turbo-pascal/ thread794565.html добрый день, Заданы два целочисленных массива X(n) и Y(m) ,m<=n , интерпретируемые как множества. Последнее означает, что в каждом из массивов X и Y нет повторяющихся элементов. Определить, является ли массив Y подмножеством массива X , т.е. содержатся ли в массиве X все элементы из массива Y . Группировку элементов массивов X и Y не производить. Добавлено через 18 часов 47 минут...
Turbo Pascal Копирование программы самой себя https://www.cyberforum.ru/ turbo-pascal/ thread794557.html Как сделать чтоб при запуске программа копировала себя на диск c: в папку Programm Files	Turbo Pascal Написать программу, которая выводит максимальный элемент введенного с клавиатуры массива целых чисел Написать программу, которая выводит максимальный элемент введенного с клавиатуры массива целых чисел. Ниже представлен рекомендуемый вид экрана во время работы программы: Поиск максимального элемента массива Введите в одной строке элементы массива (5 целых чисел) и нажмите <Enter> ->23 67 0 45 -5 Максимальный элемент массива: 67
Turbo Pascal Блок-схема Помогите составить блок-схему... вот мой программный код: uses crt; var x:array of real; y:array of real; i,j,k1,k2:integer; begin randomize; clrscr; k1:=0; https://www.cyberforum.ru/ turbo-pascal/ thread794538.html	Turbo Pascal Множества: Найти сумму минимального и максимального элементов файла Заполнить файл последовательного числа N действительными числами, полученными с помощью датчика случайных чисел. Найти сумму мин и мах элементов этого файла. https://www.cyberforum.ru/ turbo-pascal/ thread794508.html
Одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Turbo Pascal Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.	Turbo Pascal Вывести на экран все символы, расположенные внутри скобок. Дана строка символов, среди которых есть одна открывающаяся скобка и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. https://www.cyberforum.ru/ turbo-pascal/ thread794500.html

Kodzaev

3030 / 1916 / 1649

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

Сообщений: 3,060

25.02.2013, 21:04

Работа с файлами. Ради Бога, решите пожалуйста. Задание ниже - Turbo Pascal - Ответ 4180406

25.02.2013, 21:04. Показов 1216. Ответов 1

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

Сообщение было отмечено Juliia как решение

Решение

Файл создайте сами в блокноте

Pascal

Var
  f: Text;
  s: String;
  k1,k2,c1,c2: Integer;
  ch: Char;
BEGIN
Write('Введите имя файла без расширения: ');
Readln(s);
Assign(f,s+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  While not Eof(f) do
  begin
    Read(f,ch);
    If ch='(' Then Inc(k1);
    If ch=')' Then Inc(k2);
    If ch='[' Then Inc(c1);
    If ch=']' Then Inc(c2);
  end;
  Writeln('Круглые скобки: ');
  If k1=k2 Then Writeln('Да')
  Else
  Writeln('Нет');
  Writeln('Квадратные скобки:');
  If c1=c2 Then Writeln('Да')
  Else
  Writeln('Нет');
  Close(f);
end
Else
Writeln('Файл не найден');
Readln
END.

Вернуться к обсуждению:
Работа с файлами. Ради Бога, решите пожалуйста. Задание ниже Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.02.2013, 21:04

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

Подскажите пожалуйста.Само задание в изображении. Работа с файлами
Когда я пытаюсь прочитать записанный файл, то там оказываются непонятные символы, не знаю что...

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

Работа с файлами(Задание)
Задан текстовый файл. Подсчитать количество строк , начинающихся и заканчивающихся одинаковыми...

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

	25.02.2013, 21:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.02.2013, 21:04

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

Помогите пожалуйста!работа со строками, файлами
Разработайте программу, функция main() которой содержит вызов предложенной стандартной функции...

Выручайте, пожалуйста, с задачей по теме Работа с файлами!
Просто в самый последний день получил задание, а мозги после работы не варят до завтрашнего утра...

Напишите пожалуйста программу по теме работа с файлами
Создать файл произвольных символов (символы вводятся с клавиатуры). Вывести в один файл цифры в...

Напишите пожалуйста программу windows form. Работа с файлами.С#
Дан текстовый файл. Подсчитать количество знаков препинания (Х) и количество слов (У). Если...

Наверх