Народ!! помогите решить задаЧИ В ПАСКАЛЕ!! ОЧ НУЖНО!! - Форум
Пятница, 09.12.2016, 12:38
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Народ!! помогите решить задаЧИ В ПАСКАЛЕ!! ОЧ НУЖНО!!
Народ!! помогите решить задаЧИ В ПАСКАЛЕ!! ОЧ НУЖНО!!
ladoga2010Дата: Суббота, 21.03.2009, 13:21 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
12. С помощью цикла while напишите программу определения идеального веса для взрослых людей по формуле: Ид.вес = рост—100. Выход из цикла: значение роста = 250.
20. Составить на языке Turbo-Pascal полный текст программы, определяющей
сумму
27. Дано натуральное число N. Вычислить:

39. Найти сумму положительных нечетных чисел, меньших 100.
47. Покупатель должен заплатить в кассу S рублей. У него имеются 1, 2, 5, 10, 50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных.

Добавлено (21.03.2009, 13:21)
---------------------------------------------
12. С помощью цикла while напишите программу определения идеального веса для взрослых людей по формуле: Ид.вес = рост—100. Выход из цикла: значение роста = 250.
20. Составить на языке Turbo-Pascal полный текст программы, определяющей
сумму 1+1/2+ 1/4+1/6....1/40
27. Дано натуральное число N. Вычислить:
S=1/(3^2)+1/(5^2)+....1/(2N+1)^2
39. Найти сумму положительных нечетных чисел, меньших 100.
47. Покупатель должен заплатить в кассу S рублей. У него имеются 1, 2, 5, 10, 50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных.

 
YurraДата: Суббота, 21.03.2009, 15:45 | Сообщение # 2
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
12.

Code

uses crt;
     var r,v:integer;
     begin
      while r<>250 do
       begin
       write('Введи рост ');
       readln(r);
       v:=r-100;
       writeln('Идеальный вес равен ',v)
       end;
     writeln('Конец программы, нажмите Enter');
     readln;
     end.

20.

Code

uses crt;
    var s:real;
        c:byte;
    begin
     s:=1;
     for c:=1 to 20 do  s:=s+1/(2*c);
     writeln('сумма равна ',s);
     writeln('Конец программы, нажмите Enter');
     readln;
    end.

39.

Code

uses crt;
   var s:real;
       c:byte;
   begin
    s:=1;
    for c:=1 to 49 do  s:=s+(2*c+1);
    writeln('сумма положительных нечетных чисел, меньших 100, равна ',s);
    writeln('Конец программы, нажмите Enter');
    readln;
   end.

47.

Code

uses crt;
  var s:integer;
   begin
   write('Введите нужную сумму ');
   readln(s);
   if s div 500<>0 then writeln('Нужно ',s div 500,' по 500 рублей');
   s:=s mod 500;
   if s div 100<>0 then writeln('Нужно ',s div 100, ' по 100 рублей');
   s:=s mod 100;
   if s div 50<>0 then writeln('Нужно ',s div 50, ' по 50 рублей');
   s:=s mod 50;
   if s div 10<>0 then writeln('Нужно ',s div 10, ' по 10 рублей');
   s:=s mod 10;
   if s div 5<>0 then writeln('Нужно ',s div 5, ' по 5 рублей');
   s:=s mod 5;
   if s div 2<>0 then writeln('Нужно ',s div 2, ' по 2 рубля');
   s:=s mod 2;
   if s div 1<>0 then writeln('Нужно ',s div 1, ' по 1 рублю');
   writeln('Конец программы, нажмите Enter');
   readln;
  end.


Коплю на новую машину, помогите кто чем может

Сообщение отредактировал Yurra - Суббота, 21.03.2009, 16:06
 
MarcusДата: Суббота, 11.04.2009, 22:15 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 6
[ 1 ]
Статус: Offline
Помогите пожалуйстаа решить задачи! cry
Очень нужно завтра сдать!!!!!!!!!!!!!!!!
Недавно прошли алгоретмическую структуру повторения и с помощью ее надо составить задачу:
Составить программу печатающую все цифры введенного числа.
Вот прога ее надо как-то переделать подскажите пожалуйста как?
Quote
program okjbktjrkb;
var n:longint;{zadannoe chislo}
c:longint;{iskomaya tifra}
begin
write('n='); readln(n);
c:=n;
while c>9 do
begin
c:=c div 10;
writeln('pervaya tifra=',c);
end;
end.
 
YurraДата: Суббота, 11.04.2009, 23:03 | Сообщение # 4
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
можно исправить вот так, если порядок цифр не важен (т.е. цифры выводятся, начиная с последней)
Code

program okjbktjrkb;
var n:longint;{zadannoe chislo}
c:longint;{iskomaya tifra}
begin
write('n=');
readln(n);
c:=n;
while c>0 do
begin
writeln(c mod 10);
c:=c div 10;
end;
end.


Коплю на новую машину, помогите кто чем может
 
MarcusДата: Воскресенье, 19.04.2009, 21:27 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 6
[ 1 ]
Статус: Offline
Задача:
Нужно найти сумму цифр заданного натурального числа.
 
zadachkiДата: Воскресенье, 19.04.2009, 23:24 | Сообщение # 6
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
возведение в степень должно обрабатываеться в отдельной функции или прям внутри цикла
Code

s=0 {сумма чисел}
for i:=0 to length(chislo)-1 do
begin
s=s+((chislo div 10^i) mod 10)
end;
 
MarcusДата: Суббота, 02.05.2009, 23:18 | Сообщение # 7
Сержант
Группа: Новичок
Сообщений: 6
[ 1 ]
Статус: Offline
Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.Очень надо!!!
И еще вопросик:
Можно ли в теле цикла с параметром не использовать величину - парамерт цикла?

Добавлено (02.05.2009, 23:18)
---------------------------------------------
очень нужно :
Определить, верно ли, что при делении целого неотрицательного числа a на целое положительное число b получается остаток r или s.
сам вроде че-то накатал,но оно не оченьто хочет работать.Так что просьба исправить, кто сможет:

Code
program bhre;
var a,b,r,s,q:integer;
begin
write('a=');read(a);
write('b=');read(b);
write('r=');read(r);
write('s=');read(s);
while q>0 do q:=a mod b;
if (q=r) or (q=s) then
write ('verno')
else
write('neverno');
end.


Сообщение отредактировал Marcus - Вторник, 21.04.2009, 23:08
 
LilyyДата: Пятница, 15.05.2009, 00:01 | Сообщение # 8
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите решить срочно задачу!!! Пожалуйста...=) в Pascal. ваще не парю в задачах...
Дано некоторое целое двузначное число. Проверить, равна ли сумма его цифр числу 7. cry
 
El0925Дата: Вторник, 28.12.2010, 12:57 | Сообщение # 9
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
даны 2 двух значных числа а и б из этих чисел
составить 2 четырех значных числа,1 число получили
путем написания сначала числа а, а затем б
для,получения второго сначало записали б,а потом
а ,найти числа а и б,если известно что первое четырех
значное число нацело делятся на 99,а второе на 49.

Добавлено (28.12.2010, 12:57)
---------------------------------------------
даны 2 двух значных числа а и б из этих чисел
составить 2 четырех значных числа,1 число получили
путем написания сначала числа а, а затем б
для,получения второго сначало записали б,а потом
а ,найти числа а и б,если известно что первое четырех
значное число нацело делятся на 99,а второе на 49.

 
NailДата: Вторник, 28.12.2010, 13:07 | Сообщение # 10
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Напишу не дорого.
Mail: shakurovnail@mail.ru
Icq: 6688101
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Народ!! помогите решить задаЧИ В ПАСКАЛЕ!! ОЧ НУЖНО!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016