Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Подскажите что я зделала не правильно.. делфи 
V
    Опции темы
Pyx
Дата 16.12.2011, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 16.12.2011

Репутация: нет
Всего: нет
Создайте файл целых чисел, записав в него 15 последовательных чисел от 5 до 20. Вычислить сумму и произведение элементов.
 вот я делала но..нужно чтобы результат выводился сразу на экран

 
Код

program Project2;

 {$APPTYPE CONSOLE}

 uses
 SysUtils;

 const n=15;
 var chuslo,sum, dob,i: integer;
 intfile: file of integer;
 begin
 assign (intfile, 'chusla');
 rewrite (intfile);
 writeln (' Vvedit chusla vid 5 do 20: ');
 for i:=1 to n do
 begin
 write(' ');
 readln (chuslo);
 write (intfile, chuslo);
 end;
 close (intfile);

 reset (intfile);
 sum:=0; dob:=1;
 while not eof (intfile) do
 begin
 read (intfile,chuslo);
 sum:=sum+chuslo;
 dob:=dob*chuslo;
 end;
 close (intfile);
 writeln (' sum=' ,sum,' dob=',dob);
 readln
 end.


M
MetalFan		Модератор: Пользуемся кнопкой "КОД"!!!


Это сообщение отредактировал(а) MetalFan - 16.12.2011, 21:57
PM MAIL   Вверх
Данкинг
Дата 16.12.2011, 21:48 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Pyx @  16.12.2011,  22:31 Найти цитируемый пост)
Подскажите что я зделала не правильно.. 

Три ошибки в одном предложении. smile 
Цитата(Pyx @  16.12.2011,  22:31 Найти цитируемый пост)
нужно чтобы результат выводился сразу на экран

Результат чего? А в "writeln (' sum=' ,sum,' dob=',dob);" что выводится тогда?

Это сообщение отредактировал(а) Данкинг - 16.12.2011, 21:49


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
MetalFan
Дата 16.12.2011, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Pyx
Дата 16.12.2011, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 16.12.2011

Репутация: нет
Всего: нет
нужно чтобы сумма и произведение выводились на экран при запуске программы .. smile 
PM MAIL   Вверх
Данкинг
Дата 16.12.2011, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Ну так поставь код, начинающийся с "reset (intfile);", в начало, после "assign (intfile, 'chusla');". 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Pyx
Дата 16.12.2011, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 16.12.2011

Репутация: нет
Всего: нет
нужно числа от 5 до 20 записать в файл и подсчитать и вывести только результат на экран

Это сообщение отредактировал(а) Pyx - 16.12.2011, 23:59
PM MAIL   Вверх
newbee
Дата 16.12.2011, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бревно
**


Профиль
Группа: Участник
Сообщений: 703
Регистрация: 24.8.2011

Репутация: 1
Всего: 19
Цитата(Pyx @  16.12.2011,  22:31 Найти цитируемый пост)
Создайте файл целых чисел, записав в него 15 последовательных чисел от 5 до 20. Вычислить сумму и произведение элементов.
 вот я делала но..нужно чтобы результат выводился сразу на экран

Я не писала на паскале.. Да вообще практически не писала )) Но все равно попробую)
Код

комментарий: тут были объявления типов
sum:=0;
mult:=1;
for i:=5 to 20 do
 begin
 write(intfile,i);
 sum:= sum+i; комментарий: вычисляем сумму чисел
 mult:= mult*i; комментарий: вычисляем произведение чисел
 end

writeln("Сумма: ",sum,", произведение: ",mult);



--------------------
You're face to face
With man who sold the world
PM   Вверх
Данкинг
Дата 16.12.2011, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(newbee @  17.12.2011,  00:16 Найти цитируемый пост)
Я не писала на паскале.. 

Это не паскаль, а твоя любимая Дельфи, только в консольном варианте. smile 
В общем, задания я так и не понял, так как это - 
Цитата(Pyx @  17.12.2011,  00:05 Найти цитируемый пост)
нужно числа от 5 до 20 записать в файл ... подсчитать и вывести только результат на экран 

- вроде как в коде и выполняется.



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
newbee
Дата 16.12.2011, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бревно
**


Профиль
Группа: Участник
Сообщений: 703
Регистрация: 24.8.2011

Репутация: 1
Всего: 19
Цитата(Данкинг @  17.12.2011,  00:20 Найти цитируемый пост)
Это не паскаль, а твоя любимая Дельфи, только в консольном варианте. 
Да как ни крути бяку, один фиг мертвый язык ;)

Цитата(Данкинг @  17.12.2011,  00:20 Найти цитируемый пост)
В общем, задания я так и не понял, так как это - 
...
- вроде как в коде и выполняется.
Может быть... Но я не поняла тот код, он очень длинный )) И предложила более короткую альтернативу. Я ж не виновата, что у меня сейчас тяга помочь кому-нибудь)))



--------------------
You're face to face
With man who sold the world
PM   Вверх
Данкинг
Дата 16.12.2011, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(newbee @  17.12.2011,  00:27 Найти цитируемый пост)
Но я не поняла тот код, он очень длинный )) 

Многабукаф? smile В общем, там запрашиваются числа с клавиатуры, затем записываются в файл, а затем из файла уже выводятся.
Цитата(newbee @  17.12.2011,  00:27 Найти цитируемый пост)
один фиг мертвый язык ;)

Ты ещё Clipper не видела.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Pyx
Дата 17.12.2011, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 16.12.2011

Репутация: нет
Всего: нет
Цитата(newbee @ 16.12.2011,  23:16)
Цитата(Pyx @  16.12.2011,  22:31 Найти цитируемый пост)
Создайте файл целых чисел, записав в него 15 последовательных чисел от 5 до 20. Вычислить сумму и произведение элементов.
 вот я делала но..нужно чтобы результат выводился сразу на экран

Я не писала на паскале.. Да вообще практически не писала )) Но все равно попробую)
Код

комментарий: тут были объявления типов
sum:=0;
mult:=1;
for i:=5 to 20 do
 begin
 write(intfile,i);
 sum:= sum+i; комментарий: вычисляем сумму чисел
 mult:= mult*i; комментарий: вычисляем произведение чисел
 end

writeln("Сумма: ",sum,", произведение: ",mult);

Спасибо, за помощ))
PM MAIL   Вверх
Данкинг
Дата 17.12.2011, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Pyx, я лично так и не понял, что требовалось сделать, но хорошо то, что хорошо кончается. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Pyx
Дата 17.12.2011, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 16.12.2011

Репутация: нет
Всего: нет
спасибо)
Слелала))
PM MAIL   Вверх
Rodman
Дата 19.12.2011, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman		Модератор: Название темы должно отражать ее суть!



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0939 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.