0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
1

Написать программу,которая выводит таблицу умножения на 7. Количество чисел задает сам пользователь.

19.05.2011, 18:36. Показов 28498. Ответов 19
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать программу,которая выводит таблицу умножения на 7. Количество чисел задает сам пользователь.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2011, 18:36
Ответы с готовыми решениями:

Написать программу, которая выводит на экран таблицу умножения на 7
написать программу , которая выводит на экран таблицу умножения на 7. и еще другая Для какого...

Написать программу, которая выводит на экран таблицу умножения
Написать программу, которая выводит на экран квадрат Пифагора - таблицу умножения. Рекомендуемый...

Написать программу, которая выводит на экран таблицу умножения, например, на 3
Написать программу, которая выводит на экран таблицу умножения, например,на 3. Я написал программу...

Напишите программу, которая выводит на чистом экране таблицу умножения чисел : 5 , 2 , 6
Напишите программу, которая выводит на чистом экране таблицу умножения чисел : 5 , 2 , 6 .

19
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 19:31 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
// Написать программу,которая выводит таблицу умножения на 7.
// Количество чисел задает сам пользователь.
// Pascal-ABC
var
  i, n: integer;
 
begin
  readln(n);
  writeln('  i  i*7');
  writeln('========');
  for i:= 1 to n do
    writeln(i:3, i*7:4);
end.
0
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
19.05.2011, 19:41  [ТС] 3
lamed, Почему то не работает
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 19:42 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

У Вас какой Pascal? Turbo? Версия для Turbo-Pascal
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{ Написать программу,которая выводит таблицу умножения на 7.
 Количество чисел задает сам пользователь. }
 
var
  i, n: integer;
 
begin
  readln(n);
  writeln('  i  i*7');
  writeln('========');
  for i:= 1 to n do
    writeln(i:3, i*7:4);
  readln;
end.
0
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
19.05.2011, 19:45  [ТС] 5
lamed, ABC
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 19:46 6
У меня ABC версия 3.0.Что пишет?
1
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
19.05.2011, 19:50  [ТС] 7
все разобрался а можете решить эту задачу
Написать программу, вычисляющую частное от деления двух целых чисел. при этом в программе предусмотреть вывод сообщения об ошибке при вводе дробного числа и при вводе делителя, равного нулю.
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 20:05 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

В качестве одного из вариантов
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
34
35
36
37
38
// Написать программу, вычисляющую частное от деления двух целых чисел. 
// при этом в программе предусмотреть вывод сообщения об ошибке при вводе дробного 
// числа и при вводе делителя, равного нулю.
// ABC
var
  a,b,c: integer;
  x: real;
  ErrLevel:0..2;
begin
  ErrLevel := 0;
  readln(x);
  if int(x)<>x then
    ErrLevel := 1
  else
    begin
      a:= trunc(x);
      readln(x);
      if int(x)<>x then
        ErrLevel := 1
      else
        begin
          b:= trunc(x);
          if b=0 then
            ErrLevel := 2
          else
            c:= a div b;
        end;
    end;
 
  case ErrLevel of
    0: writeln(a, ' div ',b,'=',c);
    1: writeln('Введено вещественное число');
    2: writeln('Деление на ноль')
  else
    writeln('Неизвестная ошибка');
  end;
    readln;
end.
1
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
19.05.2011, 20:45  [ТС] 9
lamed, Огромное Вам спасибо
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 20:46 10
Удачи!
1
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
20.05.2011, 16:45  [ТС] 11
lamed, Можете еще написать программ в последний раз оч нада

Добавлено через 2 минуты
lamed, Написать программу , вычисляющую частное от деления двух целых чисел . При этом в программе предусмотреть вывод сообщения об ошибке при вводе дробного числа и при вводе делителя, равного нулю.

Добавлено через 58 минут
lamed, Написать программу которая подсчитывает сумму ,количество и среднее арифметическое чисел последовательности, по значению больших 10,но меньших 25. Размер последовательности задает сам пользователь.
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
20.05.2011, 16:56 12
Цитата Сообщение от VLAD_VLAD Посмотреть сообщение
lamed, Написать программу , вычисляющую частное от деления двух целых чисел . При этом в программе предусмотреть вывод сообщения об ошибке при вводе дробного числа и при вводе делителя, равного нулю.
Вчерашний пост #8 в Вашем вопросе

Добавлено через 7 минут
Цитата Сообщение от VLAD_VLAD Посмотреть сообщение
lamed, Написать программу которая подсчитывает сумму ,количество и среднее арифметическое чисел последовательности, по значению больших 10,но меньших 25. Размер последовательности задает сам пользователь.
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
var
  i, n: integer;
  x,s,k: integer;
  avg: real;
begin
  readln(n);
  s:=0;
  k:=0;
 
  for i:= 1 to n do
    begin
      readln(x);
      if (x>10) and (x<25) then
        begin
          inc(k);
          s:= s+x;
        end;
    end;
 
  write(s: 4, k: 4);
 
  if (k=0) then
    writeln(' Íåò òàêèõ ÷èñåë')
  else
    begin
      avg:=s/k;
      writeln(avg:6:2);
    end;
  readln;
end.
1
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
20.05.2011, 20:25  [ТС] 13
вот еще 2 программы и все
Написать программу подсчета стоимости покупки на рынке моркови. В программе пользователь задает количество килограмм и цену одного килограмма. Предусмотреть ограничение на вводимые данные.

Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в том случаи, если покупатель совершает покупку на сумму от 1500р, и 5%, если совершается покупка на сумму от 800р. Помимо вывода стоимости покупки с учетом скидки вывести размер скидки или же написать, что скидка не предоставляется.

Добавлено через 35 минут
lamed, вот последняя
Написать программу , которая подсчитывает текущее среднее арифметическое введённых чисел и после нового вводимого числа выводит это значение.
Пользователь каждый раз должен выбирать, вводить ли числа дальше или закончить ввод чисел.

Добавлено через 2 часа 6 минут
lamed, Пожалуйста напишите эти программы

Добавлено через 14 минут
пожалуйста а я вам потом 100 руб кину

Добавлено через 27 секунд
lamed, пожалуйста а я вам потом 100 руб кину
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
20.05.2011, 21:55 14
Добрый вечер! Не в деньгах дело, устал, однако, да и завтра 6 пар вести. В понедельник посмотрю, если никто другой до этого не возьмется. Лучше поместите как новые вопросы, тогда их увидят на форуме
0
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
20.05.2011, 22:05  [ТС] 15
lamed, Просто мне нужно было сегодня

Добавлено через 2 минуты
а можете помоч с этой программой

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program delenue;
var a, b: integer; c: real;
begin
writeln('vvedite delimoe', a);
readln(a);
writeln('vvedite delitel', b);
readln(b);
if (?) or (?) then writeln('oshibka vvoda');
if b=0 then writeln('na 0 delit nelza');
c:=a/b;
writeln (c);
end.
Добавлено через 1 минуту
какая то ошибка
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
20.05.2011, 22:05 16
Повторюсь:
Цитата Сообщение от lamed Посмотреть сообщение
Лучше поместите как новые вопросы, тогда их увидят на форуме
0
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
20.05.2011, 22:06  [ТС] 17
а можете помоч с этой программой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program delenue;
var a, b: integer; c: real;
begin
writeln('vvedite delimoe', a);
readln(a);
writeln('vvedite delitel', b);
readln(b);
if (?) or (?) then writeln('oshibka vvoda');
if b=0 then writeln('na 0 delit nelza');
c:=a/b;
writeln (c);
end.


какая то ошибка
0
be
94 / 94 / 64
Регистрация: 18.04.2011
Сообщений: 165
20.05.2011, 22:21 18
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

if (?) or (?) then writeln('oshibka vvoda');
-что вы собрались проверить.
Какое условие задачи?
как вариант такой код
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,  b, c: real;
begin
writeln('vvedite delimoe');
readln(a);
writeln('vvedite delitel');
readln(b);
if b=0 then writeln('na 0 delit nelza');
c:=a/b;
writeln (c:3:4);
readln;
end.
Хотя можно ещё цикл добавить.
0
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
20.05.2011, 22:39  [ТС] 19
be, Вот условие
Написать программу , которая подсчитывает текущее среднее арифметическое введённых чисел и после нового вводимого числа выводит это значение.
Пользователь каждый раз должен выбирать, вводить ли числа дальше или закончить ввод чисел.
0
0 / 0 / 1
Регистрация: 18.05.2011
Сообщений: 67
22.05.2011, 15:53  [ТС] 20
lamed,
помогите составить блок схему
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Program L4_V19_Z21;
 
Uses crt;
 
Const n=3;
 
Var M: array [1..n, 1..n] of
integer;
 
S: array [1..n] of integer;
 
Max, Imax, Jmax, j,i: integer;
 
Begin
 
Clrscr;
 
Writeln(‘vvedite matr. M:);
 
For i:=1 to n do
 
For j:= to n do read (M [I,j] );
 
Writeln (‘calc:);
 
Max:= M[I,j];
 
For i:=1 to n do
 
For j:=1 to n do if m[I,j]>max then
Begin max:= M[I,j]; Imax:=I ;Jmax:=j;
 
End;
 
Writeln ([‘max’, Imax’,,,Jmax,]
=,max);
 
For i:=1 to n do if i=Imax then
 
Begin
 
For J:=1 to n do write (M[I,j],’’);
 
Writeln;
 
End;
 
For j:=1 to n do if J-Jmax then
 
Begin
 
For i:=1 to n do write(M[I,j],’’);
 
Writeln;
 
End;
 
Readkay.
 
End.
0
22.05.2011, 15:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2011, 15:53
Помогаю со студенческими работами здесь

Написать программу с использованием цикла, которая выводит на экран таблицу умножения в виде таблицы Пифагора.
помогите...кому не лень...пожалуйста... Задание №1. Вывести на экран (задачу решите тремя...

Написать программу, которая задает массив целых чисел, а затем выводит массив на экран
1. Написать программу, которая задает массив целых чисел (можно без ввода их с клавиатуры), а затем...

Написать программу,которая выводит на экран таблицу сложения чисел от 30 до 35 с числом 10
Результат работы программы должен быть такой: 30+10=40 31+10=41 32+10=42 33+10=43 34+10=44...

Напишите программу, которая выводит таблицу умножения
Помогите пожалуйста Написать программу,которая выводит таблицу умножения,например на 7....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru