с текстовых файлов

11.01.2012, 22:13. Показов 783. Ответов 0

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

Author24 — интернет-сервис помощи студентам

Даны координаты xi и yi n точек на плоскости. Определите количество точек, лежащих в первой четверти.

Добавлено через 2 минуты
Это с процедурой,надо переделать с помощью текстовых файлов.

Pascal

Program Delo;
uses
crt;
type
 mas =array[1..100] of real;
 Var
 kol:integer;
 n,i:integer;
 x,y:array[1..100] of real;
procedure p1(x,y:mas; var kol:integer);
begin for I:=1 to n do
if (x[i]>=0) and (y[i]>=0)
then kol:=kol+1;
end;
begin
 clrscr;
 write('Введите количество элементов массива [x,y]=');
 readln(n);
 writeln('Введите элементы массива x,y');
 for i:=1 to n do
 begin
 write('x[',i,']= ');
 readln(x[i]);
 write('y[',i,']= ');
 readln(y[i]);
 end;
 p1(x,y,kol);
 writeln('количество ', kol);
 readkey;
 end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.01.2012, 22:13

Ответы с готовыми решениями:

Обработка текстовых файлов
Пусть на МД имеется текстовый файл ID.DAT, который содержит числовые значения вещественного типа ...

Создание программы с использованием текстовых файлов и файлов записи
Дан текстовый файл в котором хранится информация о 6 спорсменах. В нечетных строчкеах записаны ФИО,...

Опознавание текстовых файлов
Помогите написать процедуру. Объясню, в чем проблема. Пытаюсь написать процедуру типа ЗАГРУЗИТЬ....

Чтение и запись текстовых файлов
Строки исходного файла записать в новый файл, добавив знак "?" после первого слова строки.

	11.01.2012, 22:13

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.01.2012, 22:13

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

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

Чтение и запись текстовых файлов.
1.С помощью тестового редактора БЛОКНОТ создать файл INFO.txt ("вручную") Вывести первую и...

Форматированный вывод из текстовых файлов
var f,g,q:text; n,s:string; a,k,p:integer; begin assign(f,'family.txt'); reset(f);...

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

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх