Реклама
Популярные статьи
Реклама
Сейчас на сайте
Гостей: 3
На сайте нет зарегистрированных пользователей
Пользователей: 13,370
новичок: dogoco6
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian
Меры близости на векторах в Delphi + Блок схемы
Компьютерный магазин на Turbo Pascal (База данных) + Пояснительная записка
Программа тестирования (тест) - вступительные экзамены (математика, физи...
Просмотр темы
Автор
Delphi
BBR
Пользователь
Сообщений: 9
Зарегистрирован: 13.03.11
Опубликовано 25-06-2011 15:52
помогите.
как зделать так штобы результаты программы сохранялись на диск тоесть как указать путь и куда ево в ставить в программу?
помогите пожалуста
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
bagazh=record
kolvo:byte;
ves:double;
end;
Procedure create(var kit:bagazh);
var count:byte;
begin
write('kolvo - ');readln(kit.kolvo);
write('ves - ');readln(kit.ves);
writeln;writeln;
end;
Procedure print(kit:bagazh);
begin
writeln('kolvo - ',kit.kolvo);
writeln('ves - ',kit.ves:0:3);
writeln;
end;
Var
f:file of bagazh;
kit:bagazh;
filename:string;
amount,i,bf:integer;
kits:array of bagazh;
t,sra,srn,c1,c2:double;
begin
filename:='kits';
assign(f,filename);
rewrite(f);
write('input T=');
readln(t);
writeln('start creating');
writeln;
repeat
create(kit);
write(f,kit);
writeln('1-continue, 2-stop');readln(bf);writeln;
until bf=2;
reset(f);
amount:=filesize(f);
setlength(kits,amount);
c1:=0;
c2:=0;
for i := 0 to amount-1 do
begin
read(f,kits[i]);
c1:=c1+kits[i].kolvo;
c2:=c2+kits[i].ves;
end;
sra:=c2/c1;
for i := 0 to amount-1 do
begin
srn:=kits[i].ves/kits[i].kolvo;
if (srn>sra) then
if (srn-sra)<t then
begin
writeln('---------');
print(kits[i]);
writeln('---------');
end
else
if srn<sra
then
if (sra-srn)<t
then
begin
writeln('---------');
print(kits[i]);
writeln('---------');
end;
if sra=srn then
begin
writeln('---------');
print(kits[i]);
writeln('---------');
end;
end;
close(f);
readln;
end.
Изменил(а) Kest , 26-06-2011 19:38
Автор
RE: Delphi
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70
Опубликовано 26-06-2011 19:40
BBR написал:
помогите.
как зделать так штобы результаты программы сохранялись на диск тоесть как указать путь и куда ево в ставить в программу?
помогите пожалуста
filename:='kits'; здесь хранится название файла
Я знаю, что ничего не знаю, но многие не знают и этого
Перейти на форум:
Вопросы от новичков
Базы данных
Графика и игры
Интернет и сети
Компоненты и классы
Мультимедия
Программа и интерфейс
Синтаксис
Технологии
Файловая система
Разное
Вопросы от новичков
Visual Basic
Assembler
Prolog
Turbo Pascal
GPSS
PHP
Perl
Апдейт 6 версии
Обсуждение модов
Разное
Битые ссылки
Исходники
WebReg
GamesBase
Converter AMR - WAV
FreeSMS
Партнерские программы
Платёжные системы и расчёты через Интернет
Продвижение и оптимизация сайтов
О рекламе
Контекстная реклама
Yandex
Google
Rambler
Aport, Webalta и другие
Рейтинги, Каталоги
Обмен ссылками
Мошенничество в интернете
Новости
Юмор
Флейм
О сайте и форуме
Работа: предложения и спрос
Гость
Вы не зарегистрированны?
Нажмите здесь для регистрации.
Забыли пароль?
Запросите новый
здесь .
Загрузки
Новые загрузки
Случайные загрузки
Топ загрузок