| Автор | Помощь от программистов |
|---|
Есть 2 задачи по Delphi. Нужно написать компьютерную часть задачи (решение через begin-end).
задача 1) Количества человек проживающих в городе N человек, за 2 года количества жителей увеличелось на 1%,
за следующие 2 года уменьшилось на 2% от предыдущего, определить увеличелось или уменьшилось к концу срока.
задача 2) Установлена следующая закономерность: в четные года выпуск продукции увеличиваеться на K%, по сравнению с предыдущем годом, а в не четные года увеличелось на K1%. Определить сколько продукции будет выпущенно с N года до конца после 2 года. Если до N1 года было выпущенно X едениц продукции.
Тому кто поможет скажу огромное человеческое спасибо и подарю кое что ^___^ |
| Дам или элемент или 1000 золота за помощь. |
| блин, ток начал изучать делфи |
блин, ток начал изучать делфи
Ну надежда на то что найдется кто либо кто шарит в этом =) Ибо иначе два кола по предмету будет :Р |
| могу на паскале о_О) |
для сэр_хонна:
надо в дельфи >__< |
| Задача нужна до 22 00 по серваку. Потом уже нет. |
могу на паскале о_О)
надо в дельфи >__<
а какая разница? Синтаксис одинаков во многом. Или все так туго? |
для Йопсель:
ммм... я не знаю Паскаль так что судить об этом не могу. |
| Опять двойка. Как не стыдно списывать? Кого хочешь обмануть? |
задача 1) Количества человек проживающих в городе N человек, за 2 года количества жителей увеличелось на 1%,
за следующие 2 года уменьшилось на 2% от предыдущего, определить увеличелось или уменьшилось к концу срока.
N*1.01*0.98 = 0.9898*N < N => уменьшилось. Я не понял задачу? При чём тут дельфи? |
При чём тут дельфи?
вот я тоже так подумал))) |
Определить сколько продукции будет выпущенно с N года до конца после 2 года.
До конца чего? |
| Дельфи - бренд одной из разновидностей паскаля. Так что паскаль |
| Полностью солидарен с алексом, втф? |
N*1.01*0.98 = 0.9898*N < N => уменьшилось. Я не понял задачу? При чём тут дельфи?
Я почем знаю. Учитель диктовал, я списывал. Задачу на дельфи же пишут. Для примера сейчас кину.
Пример:
Дано 4-значное число. Найти сумму его цифр. Проверить является ли сумма двух первых цифр равной сумме двух последних.
Решение на Дельфи.
var a, z1, z2, z3, z4:integer;
begin
a:=strtoint(Edit1.Tetx);
z1:=a div 1000;
z2:=(a div 100) mod 10;
z3:=(a div 10) mod 10;
z4:=a mod 10;
If (z1+z2)=(z3+z4) then Label3.caption:='сумма первых двух чисел равны сумме 2 последних чисел' else;
(z1+z2)>(z3+z4) then Label3.caption:='сумма первых двух чисел не равны сумме 2 последних чисел' else;
(z1+z2)<(z3+z4) then Label3.caption:='сумма первых двух чисел не равны сумме 2 последних чисел' else;
If (a>9999) and (a<1000) then Label3.caption:='введите 4-значное число';
end;
end:
Вот такое описание надо, задач что я выдал на 1 посту. |
Задача №1
N:=strtoint(Edit1.text);
N1:=N+(N*0.01);
N2:=N1-(N1*0.02);
If N>N1 then Label3.caption:='увеличилось' else;
If N<N1 then Label3.caption:='уменьшилось' else;
If N=N1 then Label3.caption:='не изменилось' else;
end;
end:
Правильно? |
То есть
N:=strtoint(Edit1.text);
N1:=N+(N*0.01);
N2:=N1-(N1*0.02);
If N>N2 then Label3.caption:='увеличилось' else;
If N<N2 then Label3.caption:='уменьшилось' else;
If N=N2 then Label3.caption:='не изменилось' else;
end;
end: |
| Браво, еще ; убрать после else и " О Бог ты мой, да я же..." |
для Somefreeknight:
ленивый Я :Р
Про то что после else не пишется вечно забываю.
Эх 500 Голда себе придется платить xD |
