Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Распечатать номера такси, работающих до доведённого времени В файле записаны сведения о работе такси: N такси, время, окончание работы. Распечатать номера такси, работающих до доведённого времени. https://www.cyberforum.ru/ pascalabc/ thread739388.html Выполнить операции (здесь A, B, C, D — квадратные матрицы порядка n) Pascal ABC
помогите как это решить???
Pascal ABC Дана действительная квадратная матрица порядка N (N — нечетное) Дана действительная квадратная матрица порядка N (N — нечетное), все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей. кто помогите с решением!!!надо сдать скоро Добавлено через 5 часов 9 минут ну хоть кто то... https://www.cyberforum.ru/ pascalabc/ thread739358.html Pascal ABC не могу составить блок-схему https://www.cyberforum.ru/ pascalabc/ thread739299.html
Распечатайте числа массива Ав обратном порядке по 5 чисел в строке. Program Primer_10; uses crt; var a:array of integer; i,k:byte; begin writeln('исходный набор чисел:'); for i:=1 to 30 do begin a:=random(30);
Pascal ABC Вычислить сумму ряда с заданной точностью
с точностью 0.0001 найти сумму ряда 1/1*3+1/2*4+1/3+4 ...
Pascal ABC Работа со строками. Дана последовательность, содержащая от 1 до 30 слов https://www.cyberforum.ru/ pascalabc/ thread739217.html
Дана последовательность, содержащая от 1 до 30 слов. Слова разделены одним или несколькими пробелами. За последним словом - точка. Напечатать: эту же последовательность слов, но удалив из неё повторные вхождения слов.
Pascal ABC Определить номер дня недели для k-го дня года, если известно, что в этом году 1 января было четвергом https://www.cyberforum.ru/ pascalabc/ thread739167.html
Напишите пожалуйста программу! Дни недели пронумерованы следующим способом:0-воскресенье, 1-понедельник, 2-вторник, ..., 6-суббота. Дано целое число k лежащее в диапазоне 1-365. Определить номер дня недели для k-го дня года, если известно, что в этом году 1 января было четвергом. k=2 Ответ:5. Заранее спасибо!
Pascal ABC Неверное число параметров функции
program snejok_velikiy; Uses crt; Type MatrixType = Array of integer; Var A:MatrixType; stolb,l,k,m,n:integer; sz:real; {-------------------------------------------------------------}
Pascal ABC Вычислить значение сложной (составной) функции https://www.cyberforum.ru/ pascalabc/ thread739141.html
Создайте программу вычисления функции y по формуле: Y=(ln^2(x+1)+cos^2(x+1))), где x=kz^2, при k<1; x=z*(z+1), при k>=1.
Pascal ABC Записи: Вывести на печать предметы, по которым наименьшее и наибольшее количество "неудов" https://www.cyberforum.ru/ pascalabc/ thread739127.html
Ребят выручайте очень нужно завтра зачет я хз не работает ничего вот задание: program bI; uses crt; type anketa=record fio: string; ocenka: string ; predmet: string; end; var student: anketa; i,n,b:integer;
Pascal ABC В массиве С(20) найти отрицательные, положительные и нулевые значения элементов, их количество и сумму.
В массиве С(20) найти отрицательные, положительные и нулевые значения элементов, их количество и сумму. Из найденных элементов сформировать отдельные массивы. помогите, не знаю что тут не так.. почему задача не правильно считает?? program kon1; var i,otr,pol,nul,kotr,kpol,knul,sotr,spol:integer; C:array of integer; begin randomize; for i:=1 to 20 do C:=random(30)-5;
Pascal ABC Составить функцию нахождения площади параллелограмма по двум сторонам и углу между ними https://www.cyberforum.ru/ pascalabc/ thread739117.html
Составить функцию нахождения площади параллелограмма по двум сторонам и углу между ними. С помощью данной функции вычислить площадь для N параллелограммов. И схемку пожалуйста) Ps: 16 Лаба.
2 / 2 / 1
Регистрация: 01.06.2012
Сообщений: 70
Записей в блоге: 4
23.12.2012, 00:50  [ТС] 0

Записать в текстовый файл t2 все положительные числа из t1 - Pascal ABC - Ответ 3902202

23.12.2012, 00:50. Показов 1898. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Powersej как решение

Решение

Вот решение.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program Failbl;
Var t1,t2:text;
Procedure kak_to_tak(t1,t2:text);
 Var s,p:string; t,code,i:integer;
  Begin
   Readln(t1,s);
   For i:=1 to length(s) do
    If not(s[i]=' ') and not(i=length(s)) then p:=p+s[i]
    Else
     Begin
      If i=length(s) then p:=p+s[i];
      Val(p,t,code);
      If (code=0) and (t>0) then Write(t2,t,' ')
      Else code:=0;
     p:='';
   End;
 End;
Begin
Assign(t1,'C:\Users\.......\Desktop\......\2\In.txt'); Reset(t1);
Assign(t2,'C:\Users\.......\Desktop\......\2\Out.txt'); ReWrite(t2);
kak_to_tak(t1,t2);
Close(t1); Close(t2);
End.


Вернуться к обсуждению:
Записать в текстовый файл t2 все положительные числа из t1 Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2012, 00:50
Готовые ответы и решения:

Записать в текстовый файл f2 все положительные числа из файла f1
В текстовом файле f1 записана последовательность целых чисел, разделенных пробелами (пробелов...

В текстовом файле f1 записаны целые числа, разделённые пробелами. Записать в текстовый файл f2 все положительные числа
В текстовом файле f1 записаны целые числа, разделённые пробелами. Записать в текстовый файл f2 все...

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

Записать в новый текстовый файл все положительные числа из исходного файла в порядке возрастания
В текстовом файле записана последовательность целых чисел, разделённых пробелами. Записать в другой...

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

Текстовый файл. Написать процедуру, записывающую в текстый файл все положительные числа из исходного
Текстовый файл. В текстовом файле t1 записана последовательность целых чисел,разделенных пробелами...

Все положительные числа из файла F записать в файл 6, все отрицательное число в файл H
Создать файл целых чисел F. Все положительные числа из файла F записать в файл 6, все отрицательное...

Написать процедуру,записывающую в текстовый файл t2 все положительные числа с t1
Текстовый файл. В текстовом файле t1 записана последовательность целых чисел,разделенных пробелами...

Написать процедуру, записывающую в текстовый файл t2 все положительные числа из t1
В текстовом файле t1 записана последовательность целых чисел, разделенных пробелами (пробелов может...

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