Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
LirikY
0 / 0 / 1
Регистрация: 12.12.2010
Сообщений: 32
#1

Создать массив из первых ста целых чисел и вычислить сумму всех его элементов - Pascal ABC

23.05.2011, 19:11. Просмотров 860. Ответов 10
Метки нет (Все метки)

1-Написать программу с использованием массивов: Создать массив из первых ста целых чисел и вычислить сумму всех его элементов
2-Дано квадратную матрицу размерности n. Напечатать сумму элементов боковой диагонали
3-Составить программу, которая будет находить среднее арифметическое табл (а)
4-Дано одномерный массив целых чисел А [и], где i = 1, 2, ... n. Вывести элементы массива с четными индексами.
5-Написать программу с использованием массивов:
6-данная табл. с n срок и столбцов. Найти суммы элементов по диагоналям.
7-Написать программу с использованием срочных типов: Вывести на экран весь алфавит и код каждой буквы
8- Написать программу с использованием циклов: Вывести на экран код букв которые вводятся с клавиатуры. Завершение программы при клавиши «пробел»
9-Написать программу с использованием циклов: Написать программу «мини калькулятор » есть чтобы с клавиатуры вводятся две цифры и действие которой надо с ними сделать: «+»,«-»,«/»,«*» и вывести результат. Завершить программу нажав пробел
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2011, 19:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать массив из первых ста целых чисел и вычислить сумму всех его элементов (Pascal ABC):

Вычислить сумму первых ста натуральных чисел
вычислить сумму первых ста натуральных чисел!срочно!

Определить массив кубов первых ста натуральных чисел и распечатать его в виде матрицы 10x10
Решить задачу: Определить массив кубов первых ста натуральных чисел и...

Определить массив квадратов первых ста натуральных чисел и распечатать его в виде матрицы 10x10
Определить массив квадратов первых ста натуральных чисел и распечатать его в...

Задан массив с целых чисел L(m). Найти сумму всех непарных элементов.
Задан массив с целых чисел L(m). Найти сумму всех непарных элементов, если их...

Цикл while. Вывести сумму первых ста натуральных чисел
Помогите, пожалуйста, решить задачу 1)Вывести суммы первых ста натуральных...

Вичислить сумму квадратов первых ста четных чисел
Вичеслить сумму квадратов первых ста четных чисел. на паскаль. заранее огромное...

10
Daemon025
380 / 328 / 159
Регистрация: 06.12.2010
Сообщений: 894
23.05.2011, 19:13 #2
Можно посмотреть на Ваши усилия?
0
LirikY
0 / 0 / 1
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 19:19  [ТС] #3
Цитата Сообщение от Daemon025 Посмотреть сообщение
Можно посмотреть на Ваши усилия?
да я бы с радостью я в масивах вообще напонимаю ...я пропустил тогда а в четверг экзамен((((
0
be
94 / 94 / 64
Регистрация: 18.04.2011
Сообщений: 165
23.05.2011, 20:15 #4
4)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:array [1..100] of integer;
i,n:integer;
begin
randomize;
writeln('vvedite razmer');
readln(n);
for i := 1 to n do
    begin
     a[i]:=random(100);
     write(a[i]:4);
    end;
     writeln;
     writeln('chetnie elementi');
 for i := 1 to n do
      if i mod 2=0 then
      write (a[i]:4);
    readln;
end.
Условия корректно нужно писать.

Добавлено через 22 минуты
8) вроде так
Pascal
1
2
3
4
5
6
7
8
9
10
var
s:char;
begin
 while s<>' ' do
 begin
  writeln('vvedite bukvu');
  readln(s);
   writeln('kod bukvi:',ord(s));
 end;
end.
1
LirikY
0 / 0 / 1
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 20:24  [ТС] #5
Цитата Сообщение от be Посмотреть сообщение
4)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:array [1..100] of integer;
i,n:integer;
begin
randomize;
writeln('vvedite razmer');
readln(n);
for i := 1 to n do
    begin
     a[i]:=random(100);
     write(a[i]:4);
    end;
     writeln;
     writeln('chetnie elementi');
 for i := 1 to n do
      if i mod 2=0 then
      write (a[i]:4);
    readln;
end.
Условия корректно нужно писать.

Добавлено через 22 минуты
8) вроде так
Pascal
1
2
3
4
5
6
7
8
9
10
var
s:char;
begin
 while s<>' ' do
 begin
  writeln('vvedite bukvu');
  readln(s);
   writeln('kod bukvi:',ord(s));
 end;
end.
блин чето оно непашит(((((
0
be
94 / 94 / 64
Регистрация: 18.04.2011
Сообщений: 165
23.05.2011, 20:27 #6
что не пашет?
где пишет ошибка
1
LirikY
0 / 0 / 1
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 20:32  [ТС] #7
Цитата Сообщение от be Посмотреть сообщение
что не пашет?
где пишет ошибка
вот последнее...я ввожу букву а ноль имоций((((

Добавлено через 1 минуту
Цитата Сообщение от LirikY Посмотреть сообщение
вот последнее...я ввожу букву а ноль имоций((((
Все работает!!!Ура ...разобрался просто я туплю..извени!

Добавлено через 1 минуту
Напиши что еще можешь решить!!!Спасибо зарание!
0
be
94 / 94 / 64
Регистрация: 18.04.2011
Сообщений: 165
23.05.2011, 20:34 #8
а не через enter вводить буквы надо?

Добавлено через 1 минуту
как вариант для 9
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
label
 metka;
var
s:char;
i,n,c:real;
begin
metka:
writeln ('vvedite 1 cifru');
readln(i);
writeln ('vvedite 2 cifru');
readln(n);
writeln ('vvedite simvol  «+»,«-»,«/»,«*»  or  probel dlia vihoda ');
readln(s);
 while s<>' ' do
 begin
 if s='+' then
   c:=i+n
   else
  if s='-' then
   c:=i-n
   else
  if s='/' then
   c:=i/n
   else
  if s='*' then
   c:=i*n;
   writeln('rezultat:',c:4:2);
   goto metka;
 end;
 
end.
в остальных условие не понятно написано
1
LirikY
0 / 0 / 1
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 20:37  [ТС] #9
Цитата Сообщение от be Посмотреть сообщение
а не через enter вводить буквы надо?

Добавлено через 1 минуту
как вариант для 9
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
label
 metka;
var
s:char;
i,n,c:real;
begin
metka:
writeln ('vvedite 1 cifru');
readln(i);
writeln ('vvedite 2 cifru');
readln(n);
writeln ('vvedite simvol  «+»,«-»,«/»,«*»  or  probel dlia vihoda ');
readln(s);
 while s<>' ' do
 begin
 if s='+' then
   c:=i+n
   else
  if s='-' then
   c:=i-n
   else
  if s='/' then
   c:=i/n
   else
  if s='*' then
   c:=i*n;
   writeln('rezultat:',c:4:2);
   goto metka;
 end;
 
end.
в остальных условие не понятно написано
СпасиБООООООООО работает....А что именно непонятно в тех задачах???
0
be
94 / 94 / 64
Регистрация: 18.04.2011
Сообщений: 165
23.05.2011, 20:38 #10
Например в первой размерность массива
0
LirikY
0 / 0 / 1
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 20:46  [ТС] #11
Цитата Сообщение от be Посмотреть сообщение
Например в первой размерность массива
незнаю сам....может -число измерений фигуры
0
23.05.2011, 20:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2011, 20:46
Привет! Вот еще темы с решениями:

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

Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива.
Дан одномерный массив целых чисел. Определите сумму всех цифр в записи...

Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов
Дан двухмерный массив целых чисел. В каждой его строке найти сумму...

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


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

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

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