Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 33, средняя оценка - 4.85
Renako
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 10
#1

Найти произведение цифр заданного целого четырехзначного числа - Pascal

13.05.2009, 13:01. Просмотров 4572. Ответов 15
Метки нет (Все метки)

дали 30 задач, решить в Паскаль, тут люди умнее меня...

1. Найти произведение цифр заданного целого четырехзначного числа.
2. Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц оплачиваются В р., а разговоры свыше установленной нормы оплачиваются из расчета С р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.
3. Определить и вывести на экран номер четверти в которой расположена точка М(х,у).
4. Вычислить значение функции: .
5. Написать программу нахождения суммы большего и меньшего из трех чисел.
6. Вычислить значение функции .
7. Возраст человека условно разделим на детский, юношеский, возраст взрослого человека и возраст пожилого человека. Записать алгоритм и программу, отвечающую на ввод с клавиатуры, например, возраста 15 – «Вы юноша», возраста 65 – «Вы пожилой человек» и т. д. Градации возраста определить самостоятельно.
8. Вывести на экран сообщение в зависимости от введенного значения оценки ( по десятибалльной системе ), например: 1. . 2: плохо, 3. . 5: удовлетворительно, и т. д. , иначе - неправильный ввод данных.
9. Расход бензина на 100 км пути в среднем составляет 9 л. Составить программу определения стоимости бензина для расстояний 200 км, 400 км, 600 км, 800 км и 1000 км, если цена одного литра равна x руб.
10. Напечатать таблицу перевода миль в километры для расстояний от 5 до 75 миль с шагом 5, если 1 миля составляет 1,609 км.
11. Вычислите: 1*2*3 + 4*5*6 + 7*8*9 +  +43*44*45.
12. Составить программу вычисления куба суммы всех четных чисел от 2 до 100.
13. Составить программу вычисления значения выражения:
14. Определить наименьшее количество четных чисел, начиная с числа 2, сумма которых превысит число R.
15. Вычислить, за сколько лет в сбербанке при начальном вкладе W и процентах годового прироста Р будет накоплена сумма R.
16. Найти все трехзначные числа равные сумме кубов своих цифр.
17. Найти все двузначные числа, сумма квадратов цифр которых кратна 13.
18. Найти сумму индексов наибольшего и наименьшего элементов одномерного массива А(10).
19. Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива.
20. Найти номера элементов массива целых чисел А(40), которые больше первого элемента массива. Если таких элементов нет, выдать сообщение «поиск неудачен».
21. Дан массив С(N,M). Подсчитать сумму положительных чисел в каждой строке массива.
22. Дана квадратная матрица А(10, 10). Определить номер строки этой матрицы с минимальной суммой положительных элементов.
23. Дана квадратная матрица. Подсчитать сумму элементов, значения которых кратны трем и расположенных на побочной диагонали.
24. Дана квадратная матрица. Найти максимальный элемент, среди элементов расположенных на главной диагонали.
25. Написать программу, определяющую, сколько слов в заданной строке оканчивается буквой «а», если известно, что после слова обязательно стоит либо пробел, либо точка.
26. Написать программу получения из заданной строки новой строки путем замены всех символов «а» на «б».
27. Написать программу, проверяющую, является ли заданное слово палиндромом (примеры палиндромов: казак, шалаш, мадам и т.д.)
28. Написать программу, которая подсчитывает, сколько раз среди символов заданной строки встречается буква «F».
29. Написать программу получения из заданной строки новой строки путем удаления всех точек.
30. Составьте программу построения картинки.



Ворд архив....с заданиями теме же, просто рисунки тут есть, формулы
http://www.cyberforum.ru/pascal/thread75167.html
0
Вложения
Тип файла: doc zadachi.doc (34.5 Кб, 38 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2009, 13:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение цифр заданного целого четырехзначного числа (Pascal):

Найти произведение цифр заданного четырехзначного числа
Написать программу, которая находит произведение цифр заданного четырехзначного...

Найти произведение цифр заданного четырехзначного числа
Задача - Найти произведение цифр заданного четырехзначного числа Как...

Найти сумму всех четных цифр целого четырехзначного числа введенного с клавиатуры.
Кому не сложно решить? 1. С клавиатуры вводится целое четырехзначное число....

найти сумму цифр заданного четырехзначного числа
еще три задачки 1) Для матрицы размером NxM вывести на экран все ее седловые...

определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа
Помогите пожалуста!) определить символ код который в 4 раза больше суммы четных...

15
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.05.2009, 13:03 #2
тут люди умнее меня...
И жаднее. Неужели Вы действительно хотите на халяву 30 задач получить?
0
Rififi
2363 / 1056 / 104
Регистрация: 03.05.2009
Сообщений: 2,656
13.05.2009, 13:12 #3
дали 30 задач
А почему не 100? Вываливай сразу всё!
Пипец народ пошёл.. ):
0
Renako
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 10
13.05.2009, 13:14  [ТС] #4
Цитата Сообщение от Rififi Посмотреть сообщение
дали 30 задач
А почему не 100? Вываливай сразу всё!
Пипец народ пошёл.. ):
Извините...конечно...я же просто прошу помочь...
0
Vzik
32 / 25 / 7
Регистрация: 05.05.2009
Сообщений: 58
13.05.2009, 13:19 #5
Лучший ответ Сообщение было отмечено как решение

Решение

27 задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var n,r,k,M,i:integer;
F:Boolean;
begin
clrscr;
repeat
write ('n=');
readln(n);
until n>0;
M:=n;
 r:=1;
  k:=1;
  f:=false;
while (m div 10) >0 do
begin
M:=m div 10;
R:=r*10;
K:=k+1;
end;
M:=n;
For i:=1 to k div 2 do
begin
if (m div r) <> (m mod 10) then f:=true;
M:=(m mod r) div 10;
R:=r div 100;
end;
if f then writeln (n,'-ne palindrom') else writeln (n,'-palindrom');
readkey;
end.
4
Adler
79 / 79 / 19
Регистрация: 07.05.2009
Сообщений: 316
13.05.2009, 13:22 #6
Цитата Сообщение от Puporev Посмотреть сообщение
И жаднее
Регистрация: 13.05.2009
м-да... не повезло. Теперь только когда 666 сообщений наберёшь поможем.
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
13.05.2009, 13:31 #7
Предлагаю не решать задачи, когда человек выкладывает их в колличистве больше двух и без какой то попытки, ее решить или даже поискать решение на форуме

Добавлено через 4 минуты 50 секунд
Среди этих задач есть много которые обсуждались и решались на форуме, а для многих требуются минимальные знание языка
1
Renako
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 10
13.05.2009, 13:42  [ТС] #8
Пацаны, я решил первые 6 задач, они просты, помогите дальше, если вам конечно не сложно...
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program z1;
Uses Crt;
Var Number,      {zadannoe chislo}
    i, j, k, l,  {zifri chisla}
    P : Integer; {proizvedenie zifr}
BEGIN ClrScr;
  Write( 'BBeguTe 4-x znachnoe chislo: ' ); ReadLn(Number);
  Number:=Abs(Number);
  Write( 'Zifri chisla: ' , Number , ' : ' );
  i := Number div 1000; Write(i:3);       {pervaya zifra}
  j := Number div 100 mod 10; Write(j:3); {vtoraya zifra}
  k := Number div 10 mod 10; Write(k:3);  {tretia zifra}
  l := Number mod 10; WriteLn(l:3);       {chetvertaya zifra}
  P := i * j * k * l ;
  WriteLn( 'Otvet : proizvedenie chisel ' , P );
  ReadLn
end.

2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program z2;
Var A,B,C,M,Rez:Longint;
Begin
WriteLn ('Vvedite A:');
ReadLn (A);
WriteLn ('Vvedite B:');
ReadLn (B);
WriteLn ('Vvedite C:');
ReadLn (C);
WriteLn ('Vvedite M:');
ReadLn (M);
Rez:=B+(M-A)*C;
WriteLn ('Itogo v etom mesyace za ' ,M, ' minut razgovorov vi dolgni: ' ,Rez, ' rub.');
ReadLn;
End.
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program z4;
uses crt;
Var
  y, x: real;
begin
clrscr;
  WriteLn('BBeguTe x= ');
  read(x);
  y:=(3/x)+1/(x-1)+3;
  writeln('y= ',y:2:1);
  readln;
  readln;
end.
4.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program z5;
uses crt;
 var
  r:integer;              {1-e chislo}
  t:integer;              {2-e chislo}
  y:integer;              {3-e chislo}
   procedure god(r,t,y:integer);   {prozedura nachovdenia max,min}
 var
  max:integer;             {max}
  min:integer;             {min}
   begin
    if (r>=t) and (r>=y) then        
     max:=r;
    if (t>=r) and (t>=y) then       
     max:=t;
    if (y>=r) and (y>=t) then        
     max:=y;
     if (r<=t) and (r<=y) then       
      min:=r;
     if (t<=r) and (t<=y) then      
      min:=t;
     if (y<=r) and (y<=t) then     
      min:=y;
       writeln('MAX: ',max);
       writeln('MIN: ',min);
        readln;
   end;
    begin
     clrscr;
     write('BBeguTe 3 chisla: ');
      readln(r,t,y);
      god(r,t,y);                    {wizov prozeduri}
end.
6.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program z6;
uses crt;
Var
  y, x: real;
begin
clrscr;
  WriteLn('BBeguTe x= ');
  read(x);
  if x<=0 then y:=0;
  if (x>0)and(x<=1) then y:=x;
  if x>1 then y:=x*x*x*x;
  writeln('y= ',y:1:1);
  readln;
  readln;
end.
Добавлено через 43 секунды
27 задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var n,r,k,M,i:integer;
F:Boolean;
begin
clrscr;
repeat
write ('n=');
readln(n);
until n>0;
M:=n;
 r:=1;
  k:=1;
  f:=false;
while (m div 10) >0 do
begin
M:=m div 10;
R:=r*10;
K:=k+1;
end;
M:=n;
For i:=1 to k div 2 do
begin
if (m div r) <> (m mod 10) then f:=true;
M:=(m mod r) div 10;
R:=r div 100;
end;
if f then writeln (n,'-ne palindrom') else writeln (n,'-palindrom');
readkey;
end.
Спасибо...братан...

Добавлено через 9 минут 16 секунд
Цитата Сообщение от mamedovvms Посмотреть сообщение
Предлагаю не решать задачи, когда человек выкладывает их в колличистве больше двух и без какой то попытки, ее решить или даже поискать решение на форуме

Добавлено через 4 минуты 50 секунд
Среди этих задач есть много которые обсуждались и решались на форуме, а для многих требуются минимальные знание языка
Если бы я смог их решить я бы решил, да...искал...но не все, есть такая ошибка...
0
БурундукЪ
13.05.2009, 13:42
  #9

Не по теме:

слушай, братан Renako.
а, тебе не стыдно, что девушка (Vzik, я, надеюсь, правильно фотку разобрал? )) за тебя задачки решает?

0
Renako
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 10
13.05.2009, 13:47  [ТС] #10
16.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program z16;
uses crt;
Var
  A, B: Integer;
begin
clrscr;
  WriteLn('Trehznachnie chisla ravnie summe kubov svoux zifr:');
  WriteLn;
  For A:=100 to 999 do
    begin
      B:=(Sqr(A div 100)*(A div 100))+
         (Sqr(A mod 100 div 10)*(A mod 100 div 10))+
         (Sqr(A mod 10)*(A mod 10));
      If B = A then
        WriteLn(A);
    end;
    readln;
end.
Вот еще 16 решил....остальные пока....туго...

Добавлено через 3 минуты 36 секунд
Цитата Сообщение от Бурундук Посмотреть сообщение

Не по теме:

слушай, братан Renako.
а, тебе не стыдно, что девушка (Vzik, я, надеюсь, правильно фотку разобрал? )) за тебя задачки решает?

Извиняюсь если обидел....конечно....был не прав....Задача решена не на русский текст...но все же спасибо, я её допишу...

Слушай, здесь форум чтобы ругаться? ... Значит она умнее чем я, у каждого мышление работает по разному...
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
13.05.2009, 13:49 #11
Ты тоже извини , но я почему то думал что этот форум нужен чтобы помогать а не делать за кого то работу или задания
1
c00le®
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
13.05.2009, 14:14 #12
гм, ты хотяб названия программ менял, когда из книжки копировал

Добавлено через 16 минут 23 секунды
28:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 
var
s:string;
i,f,d:integer;
 
begin
clrscr;
readln(s);
  d:=length(s);
    i:=1;
    while i<=d do
  begin
if s[i]='f' then inc(f);
i:=i+1;
   end;
  writeln('Bukva "F" vstre4aetsya ', f, ' raz');
readkey;
 end.
Добавлено через 6 минут 33 секунды
18:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program massiv_18;
uses crt;
var
a:array[1..100] of real;
i,n:integer;
min,max,s:real;
begin
clrscr;
  writeln('Введите количество элементов массива');
     readln(n);
       writeln('Введите сами элементы');
     for i:=1 to n do
  begin
write('A[',i,']=');
    readln(a[i]);
          end;
          writeln;
    min:=a[1];
for i:=2 to n do
    if min>a[i] then min:=a[i];
          writeln('Min= ', min:1:0);
          max:=a[1];
    for i:=2 to n do
if max<a[i] then  max:=a[i];
writeln('Max= ', max:1:0); writeln;
 
begin
   writeln;
   s:=max+min;
   write('Rezult= ',s:1:0);
end;
readkey;
end.
2
lexus_ilia
3050 / 710 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
13.05.2009, 14:20 #13
Цитата Сообщение от Renako Посмотреть сообщение
Пацаны, я решил первые 6 задач, они просты, помогите дальше, если вам конечно не сложно
Цитата Сообщение от Renako Посмотреть сообщение
Спасибо...братан...
Цитата Сообщение от Renako Посмотреть сообщение
Слушай, здесь форум чтобы ругаться?
Давайте Вы сначало выучите простейшие манеры общения и только потом будете критиковать Наш форум. Хорошо? А то ,за лишний флуд, закрытие темы ,с получением карточки, не за горами.
З.Ы. Тему переименовал, а то неприятно видет "указание" в названии темы "Решить 30 задач...- " (старое название)
0
c00le®
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
13.05.2009, 14:53 #14
26:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program i_s;
uses crt;
var s,tmp:string;
    x:integer;
begin
clrscr;
writeln('Vvedi stroku: ');
tmp:='b';
  readln(s);
  writeln('Old: ',s);
     x:= pos('a',s);
  While x<>0 do
  begin
     delete(s,x,1);
     insert(tmp,s,x) ;
     x:=pos('a',s);
  end;
  writeln('New: ',s);
readkey;
end.
21:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
 
const n=10;
 
var
i,j:integer;
a:array [1..n,1..n] of integer;
f:real;
begin
clrscr;
randomize;
for i:= 1 to n do
  begin
    for j:= 1 to n do
      begin
      a[i,j]:=random(10)-5;
      write(a[i,j]:3);
    end;
       writeln;
   end;
 for i:= 1 to n do
     begin
        f:=0;
           for j:= 1 to n do
        if a[i,j]>0 then
    f:=f+a[i,j];
writeln('Summa ',i,' stroki ' ,f:0:0,' '); end;
    writeln;
 readkey;
end.
10:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program miles2km ;
uses crt;
const mile=1.609;
      shag=5;
var
 i,x:integer;
 km:real;
begin
 clrscr;
 i:=0;
 x:=70;
    while i<=x do
    begin
    i:=i+shag;
  km:=i*mile;
  writeln(i,' mile ' ,km:2:4,' km ');
  end;
  readkey;
end.
1
Vzik
32 / 25 / 7
Регистрация: 05.05.2009
Сообщений: 58
13.05.2009, 18:13 #15
Эта 15 задача! Сам подкорректируй возраст(рамки молодого, старого) как тебе нравиться!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
     m:integer;
 
BEGIN
 clrScr;
 writeln ('vvedi simvol:  ' );
 readln(m);
 case m of
1..15: writeln ('rebonok');
16..25:writeln('enysha');
26..100:writeln ('starik');
end;
writeln;
 readln;
END.
1
touffal
0 / 0 / 1
Регистрация: 11.05.2009
Сообщений: 22
15.05.2009, 21:54 #16
13 задание исправьте
0
15.05.2009, 21:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2009, 21:54
Привет! Вот еще темы с решениями:

Рекурсия: произведение цифр заданного натурального числа
Написать программу с рекурсивной функцией, вычисляющей произведение цифр...

Найти все такие N(N<100),что у числа N!(факториал) сумма цифр-квадрат целого числа
Без этой задачи мне не ставят зачет и я не могу выйти на сэссию=( &quot;&quot;Найти...

Найти кол-во цифр числа, больших 6 и произведение цифр, не удовлетворяющих данному критерию
Дано натуральное число. Написать программу, котрая будет находить: а)кол-во...

Найти такое число, что сумма его цифр превосходит произведение цифр этого же числа на 1
сумма цифр заданного четырехзначного N превосходит произведение цифр этого же...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru