Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Программа производит неверные вычисления r ,по идее , должно быть равно 1000000, но почему то получается 16960 !!! если написать так: r:=100100100 то всё нормально В чём прикол??? var x1,x2,x3:integer; r:real; Begin x1:=100; x2:=100; https://www.cyberforum.ru/ pascal/ thread320220.html	Pascal по паспортным данным найти самую старшую и самого старшего потомка или предка program drevo; uses crt; var Vmx, n, i, k:integer; pr:boolean; F:array of string; p:array of char; v:array of integer; procedure input_output; begin write('n=');read(n);
Pascal Алгоритм решения https://www.cyberforum.ru/ pascal/ thread320177.html Нужно написать алгоритм решения к двум задачам (и подписать комментариями происходящее в строках кода). 1. Задание: Решить уравнение методом Ньютона (с помощью касательных) uses crt; const eps=0.000000001; var a,x,y,x1,f,proiz:real;	Pascal Процедура: все четные элементы массива увеличить в два раза В массиве все четные элементы увеличить в 2 раза. Пример: из массива A: 1 3 4 5 6 должен получиться массив 1 3 8 5 12. https://www.cyberforum.ru/ pascal/ thread320130.html
Pascal Вычислить число положительных чисел, меньших числа А К этой задаче применить процедуру...я ни наю как(...сделайте пжалуйста. Текст задачи вот: Вычислить число положительных чисел, меньших числа А. ======================================================= var i,s,n,a: integer; m:array of integer; begin write ('vvedite kol-vo chisel = '); readln (n); write ('a=');	Pascal двумерные массивы https://www.cyberforum.ru/ pascal/ thread320081.html найти произведение тех элементов массива содержащего натуральныйе числа произведение цифр которых больше заданного к
Pascal записи Требуется удалить из данной переменной Bagaje сведения о багаже, общий вес вещей в котором меньше, чем 10 кг. Использовать вспомогательную переменную F. https://www.cyberforum.ru/ pascal/ thread320076.html	Pascal множества Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские цифры. Удалить из массива слово, содержащее наибольшее количество четных цифр.
Pascal Процедуры и функции Определить, есть ли в массиве хотя бы одна пара одинаковых соседних элементов. В случае положительного ответа определить номера элементов первой из таких пар. Сделать с помощью процедур или функций. Напишите плизз программу оч прошу. https://www.cyberforum.ru/ pascal/ thread320054.html	Pascal Вывести созданный массив на экран, расположив элементы в одну строку через пробелы https://www.cyberforum.ru/ pascal/ thread320041.html 1. Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов в получившемся массиве.
Вычисление последовательностей Pascal . Для данного действительного числа х вычислить по схеме Горнера: Y = x10 + 2x9 + 3x8 + … + 10x + 11.	Pascal Многомермые массивы https://www.cyberforum.ru/ pascal/ thread319983.html Составить программу обнуления гл. диагонали массива А(N,N), если в массиве будет хотябы один нулевой элемент. Вывести новый и старый массив!!

Dekio

Фрилансер

5845 / 1226 / 499

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

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

Записей в блоге: 1

15.06.2011, 19:46

Запись в *.txt файл - Pascal - Ответ 1762811

15.06.2011, 19:46. Показов 4342. Ответов 2

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

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

Решение

Pascal

program Dekio;
var
   SourceF: Text;
   num: Integer;
begin
   assign(SourceF,'Source.txt');
   rewrite(SourceF);
   writeln('Вводите числа, окончание число 0');
   while true do
   begin
      readln(num);
      if num<>0 then
      writeln(SourceF,num)
      else
      break;
   end;
   close(SourceF);
end.

Вернуться к обсуждению:
Запись в *.txt файл Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.06.2011, 19:46

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

Создать новый файл qa.txt, который будет содержать строки с вопросами и ответами из файлов q.txt и a.txt.
В текстовом редакторе создать два текстовых файла q.txt и a.txt, которые соответственно содержат...

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

Чтение и запись txt
В файле содержится программе на Паскале, каждый оператор записан с новой строки.Определить...

Запись в 2 файла, сравнение и запись в 3-ий файл
Нуждаюсь в помощи с программами, написаны, вот надо готовить отчеты, но проблема в том, что у нас...

	15.06.2011, 19:46

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.06.2011, 19:46

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

Не пишет в txt файл
program textstandart; var z: integer; x: integer; f: text; fi: text; begin ...

вывести в файл 2.txt количество четных и нечетных чисел.
Для целых чисел, которые хранятся в файле 1.txt определить четное оно или нечетное и вывести в файл...

Как значение функции и процедуры вывести в файл txt?
Здравствуйте. Подскажите пожалуйса, у меня есть функция сложения матриц и вывод найменьшего...

Как результат работы программы сохранить в txt-файл?
программа со строками про студентов(сделана) как результат этой программы сохранить в ТХТ-файл?

Наверх