Паскаль(помогите)

[tiGer]

Срочно!!!!Помогите пожалуйста кто разбирается решить(написать прогу) эту задачку, нужно в течении двух дней!!!в долгу не останусь, кто может решить...скиньте ПМ мне пожалуйста, надесюь на чью-нибудь помощь *

Напишите программу вычисления величины дохода по вкладу. Процентная ставка (в процентах годовых) и время хранения (в днях) задаются во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). *
Вычисление дохода по вкладу.
Введите исходные данные:
Величина вклада (руб.) ---> 2500
Срок вклада (дней) ---> 30
Процентная ставка (годовых) ---> 20
_______________________________________________
Доход: 41.10 руб.
Сумма по окончанию срока вклада: 2541.10 руб.

[tiGer]

Плз кто-нибудь откликнетись на мою просьбу!!! :-[

[Sk4]

tiger]Срочно!!!!Помогите пожалуйста кто разбирается решить(написать прогу) эту задачку, нужно в течении двух дней!!!в долгу не останусь, кто может решить...скиньте ПМ мне пожалуйста, надесюь на чью-нибудь помощь *

Напишите программу вычисления величины дохода по вкладу. Процентная ставка (в процентах годовых) и время хранения (в днях) задаются во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). *
Вычисление дохода по вкладу.
Введите исходные данные:
Величина вклада (руб.) ---> 2500
Срок вклада (дней) ---> 30
Процентная ставка (годовых) ---> 20
_______________________________________________
Доход: 41.10 руб.
Сумма по окончанию срока вклада: 2541.10 руб.


Вот что я своял.
==================================================
uses crt;
var proc, sum, day, mony: real;
begin
clrscr;
writeln('Вычисление доходов по вкладу');
writeln('Введите исходные данные:');
write('Введите величину вклада (руб): ');
readln(sum);
write('срок вклада (дней): ');
readln(day);
write('Процентная ставка (годовых): ');
readln(proc);
writeln('---------------------------------');
mony:=sum*proc*day/(365*100);
writeln('Начисления: ',mony : 10 : 2);
mony:=mony+sum;
writeln('Сумма на счете по окончания вклада: ',mony : 10 : 2);
readkey;
end.


Финал релиз. Зацени *;)

[ahab_2006]

Люди, нужна помощь в работе с текстовыми файлами, зачетная задача:

дан текстовый файл, найти кол-во абзацев в данном файле если за "красную" строку считать отступ в 5 пробелов. Желательно чтобы строки можно было добавлять и удалять, но не обязательно.

Заранее благодарен. :)

[Pl4g]

Люди, нужна помощь в работе с текстовыми файлами, зачетная задача:

дан текстовый файл, найти кол-во абзацев в данном файле если за "красную" строку считать отступ в 5 пробелов. Желательно чтобы строки можно было добавлять и удалять, но не обязательно.

Заранее благодарен. :)

program redline;
var
str: string;
col: integer;
begin
col:=0;
assign(input,'input.txt');
reset(input);
while not Eof(input) do
begin
readln(str);
if copy(str,1,5)=' ' then
inc(col);
end;
close(input);
assign(output,'output.txt');
rewrite(output);
writeln(col);
close(output);
end.
Данный файл - input.txt
Выходной файл (для записи результата) - output.txt

[Clark]

Ребят, помогите пожалуйста решить задачу в Паскале:
Напечатать в порядке возрастания все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7.

[DRON]

Ребят, помогите пожалуйста решить задачу в Паскале:
Создать два нетекстовых файла,содержащих сведение об успеваемости учеников (фамилия Имя отчество три оценки) сведение в алфавитном порядке. Перезаписать данные из этих файлов в текстовый файл, также упорядоченный в алфавитном порядке. Вывести на экран фамилии трех лучших участников. *help**help**crazy*

[Dredd]

Ребят, помогите пожалуйста решить задачу в Паскале:
Создать два нетекстовых файла,содержащих сведение об успеваемости учеников (фамилия Имя отчество три оценки) сведение в алфавитном порядке. Перезаписать данные из этих файлов в текстовый файл, также упорядоченный в алфавитном порядке. Вывести на экран фамилии трех лучших участников. *help**help**crazy*

я чет не понял как нетекстовоый файл может содержать фИО? эт че не текст?))

[GunKato]

я чет не понял как нетекстовоый файл может содержать фИО? эт че не текст?))

pss = record
FIO: String;
Ocenki: array [1..3] of byte;
end;

[™Indigo™]

Knowledge makes humble, ignorance makes proud.----------------------------------Do you look for free wow gold? Welcome to our WoW Gold (http://www.wow-powerleveling.org) , Our links:wow gold (http://www.wow-powerleveling.org/wow-gold.asp), wow gold (http://www.wow-powerleveling.org/wow-gold-us.asp), wow gold (http://www.wow-powerleveling.org/wow-gold-eu.asp),World of warcraft Power Leveling (http://www.wow-powerleveling.org/wow+power+leveling.html)..



Это щас чо было .??????? :)

[MeloMan]

Я лучше всех тут вас *crazy*

[Rock Baby]

када училась в школе у нас тож был паскаль... не завидую... жуть... =-O

[plag]

када училась в школе у нас тож был паскаль... не завидую... жуть... =-O

Да вроде не такая уж страшная штука))

[ГербертМоралес]

ну не знай, я ещё до начала изучения в школе начал в это всё вникать, итог - в школе всё проще простого

[den_po]

Помогите пожалуйста с прогой в паскале, до субботы мне срок потом практика и гг.

"помогите", я так понимаю, означает "сделайте за меня"?

[Rameo]

решите пожалуста следущую задачку:
два простых числа называются близнецами ,если их разность равна двум.нужно найти всех близнцов среди натуральных чисел из диапозона [a,b]

[CRONOS]

Ну и гадость этот паскаль:-!

[Rameo]

решите пожалуста следущую задачку:
два простых числа называются близнецами ,если их разность равна двум.нужно найти всех близнцов среди натуральных чисел из диапозона [a,b]
Использовать цикл с параметром и условие(if)