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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.02.2014, 22:48   #1
qewertyns
Пользователь
 
Регистрация: 21.10.2012
Сообщений: 71
По умолчанию Задачи с массивами

Прошу знающих людей помочь. До этого всё с массивами получалось, делал все задачи, но эти задачи никак не могу решить, просто в голову не приходит идей. Прошу не использовать какие-то команды/операторы, которые учат в институте, Я сам учусь в 10 классе, поэтому должно быть на уровне 10 класса. Заранее спасибо.
Цитата:
Продавщица Несчитайкина просит разработать программу, которая по стоимости 1 кг некоторого продукта выдавала бы таблицу стоимости 50 г, 100 г, 150 г, ... 1000 г, 2000 г, 3000 г, ... 10000 г
Цитата:
Татьяна Ларина, читая очередной французский роман,подсчитал сумму номеров прочитанных страниц. Составить алгоритм, определяющий номер последней прочитанной страницы.
P.S: гугл не дал нормального решения

Последний раз редактировалось Stilet; 14.02.2014 в 23:02.
qewertyns вне форума Ответить с цитированием
Старый 14.02.2014, 23:01   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
До этого всё с массивами получалось, делал все задачи, но эти задачи никак не могу решить, просто в голову не приходит идей.
Простите, а где сами задачи?
Цитата:
Прошу не использовать какие-то команды/операторы, которые учат в институте, Я сам учусь в 10 классе, поэтому должно быть на уровне 10 класса.
Простите меня ещё раз, но что именно в настоящий момент соответствует уровню 10го класса?
Streletz вне форума Ответить с цитированием
Старый 14.02.2014, 23:58   #3
qewertyns
Пользователь
 
Регистрация: 21.10.2012
Сообщений: 71
По умолчанию

Цитата:
Сообщение от Streletz Посмотреть сообщение
Простите, а где сами задачи?
Простите меня ещё раз, но что именно в настоящий момент соответствует уровню 10го класса?
Задачи, которые я не могу решить, я процитировал. Насчёт уровня 10го класса: Одномерный/двумерный массив. Циклы с постусловием/предусловием, цикл с параметром. Думаю, что вы поняли, на каком уровне должно быть решение, ну а если не поняли, то не заморачивайтесь, просто объясните алгоритм
qewertyns вне форума Ответить с цитированием
Старый 15.02.2014, 00:23   #4
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Теперь я всё понял. Только, будет лучше если я Вам подскажу алгоритм, а код Вы напишите сами. Пожалуйста, не поймите меня не правильно.
Для 1й задачи.
Составьте одномерный массив значений массы.
В цикле. Значение цены за 1кг умножайте на поправочный коэффициент, который равен [значение элемента массива]/1000. Так в результате работы цикла Вы и сформируете таблицу цен.
Для 2й задачи.
Здесь речь идёт о сумме членов арифметической прогрессии. Точнее, о сумме первых N натуральных чисел. Формула приведена на рисунке во вложении.
Эта формула легко преобразуется в квадратное уравнение. Его, в свою очередь, можно решить вообще без массивов.
Или по условию задачи требуется обязательно использовать массивы и циклы?
Изображения
Тип файла: png 001.png (505 байт, 165 просмотров)
Streletz вне форума Ответить с цитированием
Старый 15.02.2014, 00:24   #5
qewertyns
Пользователь
 
Регистрация: 21.10.2012
Сообщений: 71
По умолчанию

Задачу про сумму номеров страниц решил наконец-то, оказывается тут и без массива можно сделать, смотрите кому надо
Цитата:
program SNStr; uses crt;
var
Q, str, sum: integer;
begin
clrscr;
Q:= 0; str:= 0; sum:= 0;
writeln ('Ведите сумму номеров прочитанных страниц');
readln (Q);
while sum<Q do begin
str:=str+1; sum:=sum+str
end;
if sum=Q then
writeln ('Номер последней прочитанной страницы - ', str);
if sum>Q then
writeln ('Сумма номеров прочитанных страниц не существует');
end.
Streletz, спасибо за помощь

Последний раз редактировалось qewertyns; 15.02.2014 в 00:26.
qewertyns вне форума Ответить с цитированием
Старый 15.02.2014, 00:55   #6
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
Радость

Пожалуйста!
Streletz вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи с массивами. Elnadrion Паскаль, Turbo Pascal, PascalABC.NET 2 30.03.2011 19:51
Задачи с массивами Kerragin Помощь студентам 18 29.03.2011 22:50
2 задачи с массивами Vanchel56 Помощь студентам 5 12.02.2011 17:51
Задачи с массивами Alenchik Помощь студентам 4 21.12.2010 20:40
Задачи с массивами Pina_Kolada Помощь студентам 2 27.11.2010 15:49