Перевод задачи из C++ в паскаль. Работа с текстовыми файлами - Pascal ABC

  1. Была задача в C++ C++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 #include <iostream> #include <conio.h> #include <fstream>   using namespace::std;   int main() {     char name[20];     setlocale(0, "Russian");     cout << "Введите название файла: ";     cin >> name;       ofstream file(name);       cout << "Введите число n: ";     int n = 0;     do     {         cin >> n;     } while (n>1000);       for (int i(0); i < n; i++)     {         if (i % 2 != 0)         {             file.open(name, ios::app);             file << i << endl;             file.close();         }     }       return 0;     }Задали переделать под Pascal, но вот как работать в Pascal-е с файлами я не знаю, вот мои чертежи, помогите кто и исправьте ошибку.


textual

Код к задаче: «Перевод задачи из C++ в паскаль. Работа с текстовыми файлами - Pascal ABC»

write('Введите имя файла без расширения  ');
readln(name);
name:=name+'.txt';//вот эту

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.375 из 5



Похожие ответы
  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Help В одномерном массиве А(N) (N<=60) найти максимальный элемент. Все отрицательные элементы массива А умножить на этот элемент. Преобразованный массив распечатать.Добавлено через 1 час 23 минуты Я попытался сделать, но ой как не уверен что хоть что-нибудь правильно.

  1. Нужна срочная помощь в написании данных программ на Pascal ABC. Спасибо! 1.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Сформировать и вывести на экран второй массив, каждый элемент которого получается сложением элемента первого массива на его максимальное значение. 2.Вывести на экран массив из 10 случайных положительных и отрицательных чисел. Сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные заменяются на 1. 3.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Найти разницу между максимальным и минимальным элементами массива. 4.Значения элементов массива a из 10 целых чисел вводятся с клавиатуры. Создать второй массив, состоящий из НОМЕРОВ отрицательных элементов массива a.

  1. 1) Ввести массив, состоящий из 14 элементов действительного типа. Расположить элементы с 1 по 7 по возрастанию, а с 8 по 14 - в порядке убывания. 2)Ввести массив, состоящий из 14 элементов действительного типа. Поменять местами первую половину со второй. Определить количество произведенных при этом перестановок.

  1. В заданной строке заменить группу символов 'abc' на 'abcd' Почему не правильно?

  1. Гражданский год ацтеков делился на 18 месяцев по 4 недели и 5 дней в каждой неделе, ещё 5 или 6 дней составляли дополнительную неделю поста. По данному номеру года, месяца и дня в формате 2011.01.01 (вводятся 3 числа с клавиатуры) определите номер месяца, недели месяца и дня ацтеков в формате "3 месяц, 1 неделя, 3 день". Помните, что в високосных годах Григорианского календаря есть 29 февраля, а в календаре ацтеков - 6-ой день поста. Если число приходится на конец года и не попадает ни в один месяц, нужно выводить сообщение типа "3 день поста".

  1. В году примерно 3.156х107сек. Написать программу, которая запрашивает возраст в годах и переводит его в секунды.

  1. Помогите перевести код на паскаль.C++1 2 3 4 5 6 7 8 9 10 #include #include int main(){  double x;  std::cin>>x;  if(x>0) std::cout<<68.1*tan(x); else  if(x<0) std::cout<>0.5;  std::cin.get(); }

  1. Здравствуйте, подскажите по одному вопросу, дали такое задание: перевести числа из строки в численный тип, но без использования стандартных функций, т.е. есть строка 1 34 51 и надо разделить на цифры и преобразовать например в integer, как это можно осуществить?

  1. а можете пожалуйста составить прогу для перевода из 16 в 10 без функций и процедур пожалуйста)) заранее спасибо