Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2006, 22:10   #1
cL1zMa
Пользователь
 
Регистрация: 14.12.2006
Сообщений: 26
По умолчанию Помогите решить задачу

Плохо понимаю массивы и функции div mod. Прошу помочь решить задачку. Буду очень признателен за любую помощь.

Запросить с клавиатуры 5 любых целых чисел и вычислить сумму чисел составляющих (использовать функции DIV и MOD). Числа и результат запомнить в массивах. Вывести результат в виде таблицы. Ниже в рамке из звездочек (*) вывести авторов программы. В программе использовать цикл с постусловием.

Запросить несколько значений целых чисел и вычислить сумму чисел составляющих их (использовать функции DIV и MOD), записав данные в типизированный файл. Организовать вывод данных из файла.
cL1zMa вне форума Ответить с цитированием
Старый 14.12.2006, 22:44   #2
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Первая часть задачи:

Код:
uses crt;
var a,b:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
readln(a[i]);
ClrScr;
for i:=1 to 5 do
write(a[i]:4);
Writeln;
for i:=1 to 5 do
while a[i] > 0 do
begin
b[i]:=b[i]+(a[i] mod 10);
a[i]:=a[i] div 10;
end;
Writeln;
for i:=1 to 5 do
Write(b[i]:4);
i:=1;
Writeln;
Writeln;
repeat
Write('*');
i:=i+1;
until i > 8;
writeln;
Writeln('* AVER *');
i:=1;
repeat
Write('*');
i:=i+1;
until i > 8;
readln;
end.
Вторая часть:

Код:
USES CRT;
var a,b:array[1..5] of integer;
z,i:integer;
f:file of integer;
begin
Assign(f,'File.txt');
Rewrite(f);
for i:=1 to 5 do
readln(a[i]);
ClrScr;
for i:=1 to 5 do
Write(f,a[i]);
for i:=1 to 5 do
while a[i] > 0 do
begin
b[i]:=b[i]+(a[i] mod 10);
a[i]:=a[i] div 10;
end;
for i:=1 to 5 do
Write(f,b[i]);
Close(f);
Reset(f);
for i:=1 to 5 do
begin
read(f,z);
write(z:4);
end;
Writeln;
for i:=1 to 5 do
begin
read(f,z);
write(z:4);
end;
Close(f);
readln;
end.
ICQ: 5311314
[SIGPIC][/SIGPIC]

Последний раз редактировалось AVer; 14.12.2006 в 23:02.
AVer вне форума Ответить с цитированием
Старый 14.12.2006, 23:08   #3
cL1zMa
Пользователь
 
Регистрация: 14.12.2006
Сообщений: 26
По умолчанию

AVer, спасибо Вам огромное! Знали бы Вы как меня выручили!

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

Нарисовать посередине экрана окно зеленого цвета в центре которого предлагается на выбор прорисовать окружность или эллипс в случайных координатах экрана. При выходе из программы создать звуковой сигнал.
cL1zMa вне форума Ответить с цитированием
Старый 14.12.2006, 23:26   #4
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Сорри, у меня GRAPH.TPU не работает, а "на глаз" такое задание писать не возьмусь...
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 15.12.2006, 05:28   #5
Юдифь
 
Аватар для Юдифь
 
Регистрация: 10.12.2006
Сообщений: 6
По умолчанию

Попробуй так:
Код:
Uses Graph,CRT;
var
Gd,Gm: Integer;
x1,y1:integer;
radius:word;
begin
randomize;
gd:=9;
gm:=1;
initgraph(Gd,Gm,'c:\tp7\bgi');
x1 := GetMaxX div 4;
y1 := GetMaxY div 4;
SetFillStyle(1,2);
Bar(x1,y1,3*x1,3*y1);
setcolor(4);
setlinestyle(1,1,3);
radius:=random(GetMaxY div 2);
circle(GetMaxX div 2,GetMaxY div 2,radius);
readln;
CloseGraph;
Sound(220);
Delay(2000);
NoSound;
End.

Последний раз редактировалось Юдифь; 15.12.2006 в 05:34.
Юдифь вне форума Ответить с цитированием
Старый 15.12.2006, 11:04   #6
cL1zMa
Пользователь
 
Регистрация: 14.12.2006
Сообщений: 26
По умолчанию

Спасибо! Благодарен вам за помощь.
cL1zMa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите решить задачу... studentIC Помощь студентам 3 12.03.2008 08:29
Помогите решить задачу. Кронос Помощь студентам 3 28.10.2007 14:11