Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
LirikY
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 32
#1

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

23.05.2011, 19:11. Просмотров 850. Ответов 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):

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

Определить массив квадратов первых ста натуральных чисел и распечатать его в виде матрицы 10x10 - Pascal ABC
Определить массив квадратов первых ста натуральных чисел и распечатать его в виде матрицы 10x10. Элементы пятой колонки и шестой строки...

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

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

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

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

10
Daemon025
380 / 328 / 67
Регистрация: 06.12.2010
Сообщений: 894
23.05.2011, 19:13 #2
Можно посмотреть на Ваши усилия?
0
LirikY
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 19:19  [ТС] #3
Цитата Сообщение от Daemon025 Посмотреть сообщение
Можно посмотреть на Ваши усилия?
да я бы с радостью я в масивах вообще напонимаю ...я пропустил тогда а в четверг экзамен((((
0
be
94 / 94 / 33
Регистрация: 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 / 0
Регистрация: 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 / 33
Регистрация: 18.04.2011
Сообщений: 165
23.05.2011, 20:27 #6
что не пашет?
где пишет ошибка
1
LirikY
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 32
23.05.2011, 20:32  [ТС] #7
Цитата Сообщение от be Посмотреть сообщение
что не пашет?
где пишет ошибка
вот последнее...я ввожу букву а ноль имоций((((

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

Добавлено через 1 минуту
Напиши что еще можешь решить!!!Спасибо зарание!
0
be
94 / 94 / 33
Регистрация: 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 / 0
Регистрация: 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 / 33
Регистрация: 18.04.2011
Сообщений: 165
23.05.2011, 20:38 #10
Например в первой размерность массива
0
LirikY
0 / 0 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива. - Pascal
Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива. (Напишите функцию, что находит сумму цифр в...

Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов - Pascal ABC
Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов. Задачу решить двумя способами: с использованием...

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

Вычислить произведение первых ста натуральных чисел (использовать динамическую память) - Pascal
Написать программу, вычисляющую произведение первых ста натуральных чисел. Использовать динамическую память и указатели.


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

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

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