Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal задача на массивы пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread1012995.html
Даны целые числа a1,a2,a3. Получить целочисленную матрицуij=1,2,3, для которой bi,j=ai-3*aj. 		Turbo Pascal Распечатать список студентов, фамилии которых начинаются на букву А
ввести сведения о 8 студентах: фамилию, год рождения, рейтинг по предметам:информатика, история, высшая математика. Распечатать список студентов, фамилии которых начинаются на букву А.
Turbo Pascal Найти те члены q1, последовательности q1,q2,..qn, которые при делении на 7 дают остаток 1, 2 или 5 https://www.cyberforum.ru/ turbo-pascal/ thread1012985.html
даны натуральные числа n,q1,q2,..qn. Найти те члены q1, последовательности q1,q2,..qn, которые при делении на 7 дают остаток 1, 2 или 5. 		Turbo Pascal Составьте программу нахождения числа простых делителей Программирование с использованием процедур, проверяющих, является натуральное число простым или составным Составьте программу нахождения числа простых делителей натурального числа М, не являющихся в то же время делителями числа К. https://www.cyberforum.ru/ turbo-pascal/ thread1012960.html
Turbo Pascal Пошаговая детализация
1.1. Дана матрица размера*5*x*10. В*каждой строке найти количество элементов, больших среднего арифметического всех элементов этой строки. 		Turbo Pascal Создайте файл f действительных чисел от А до В с шагом х (значения вводятся с клавиатуры). Проанализировав в программе созданный файл, создайте два ф https://www.cyberforum.ru/ turbo-pascal/ thread1012895.html
Помогите пожалуйста! Создайте файл f действительных чисел от А до В с шагом х (значения вводятся с клавиатуры). Проанализировав в программе созданный файл, создайте два файла: - содержащая целые части числа, - содержащий дробные части чисел. Выведите на экран содержимое файлов. Предусмотреть в программе вывод соответствующего сообщения, если элементов в файле не оказалось.
Turbo Pascal 2 Задачи.Цикл итерационного типа и подпрограмма: процедуры и функции https://www.cyberforum.ru/ turbo-pascal/ thread1012885.html
Форумчане. Помогите с 2-мя задачками :) 1. Задача решаемая с помощью цикла итерационного типа: Составить программу для вычисления функции, разложенной в ряд (сумму ряда). е – заданная степень точности, n – порядковый номер очередного члена ряда. Задача: F(x)=1+(x/1+(x^2)/2+⋯+(x^n)/2+⋯) Условия к выполнению: 		Turbo Pascal тема: Работа с данными типа множества
Задан некоторый набор товаров и три магазина. Определить какие товары имеются в каждом из трех магазинов, есть хотя бы в одном магазине и не имеется ни в одном из магазинов.
Turbo Pascal Дан массив А(п), состоящий из целых чисел. Определить сколько раз в нём встречается заданное целое число n Дан массив А(п), состоящий из целых чисел. Определить сколько раз в нём встречается заданное целое число n https://www.cyberforum.ru/ turbo-pascal/ thread1012844.html Turbo Pascal Определить максимальное количество одинаковых элементов в массиве https://www.cyberforum.ru/ turbo-pascal/ thread1012843.html
Дан целочисленный массив размера N. Определить максимальное количество его одинаковых элементов (Помагите пожалуйсто полную программу)
Turbo Pascal Циклический вычислительный процесс
Вычислить значение функции F(x), разложенной в ряд и сходящейся в указанной области. помогите пожалуйста построить блок-схему. вот сама программа: program z1; uses crt; var x,e,s,t:real; n:integer; begin clrscr; repeat 		Turbo Pascal Строки https://www.cyberforum.ru/ turbo-pascal/ thread1012835.html
Дано предложение .верно ли что его самое длинное слово имеет больше 10 символов?
585 / 488 / 371
Регистрация: 05.11.2013
Сообщений: 1,265
Записей в блоге: 6
20.11.2013, 17:58 0

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента - Turbo Pascal - Ответ 5363693

20.11.2013, 17:58. Показов 1556. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Светлана25 Посмотреть сообщение
Ввод цифр должен быть введен с клавиатуры
сама дописала в условие или так и было?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

var a:array [1..100] of real;
 n,i,k,iotr:integer; s:longint;
 c:real;
begin
 write ('Введите значение C:'); readln(c);
 write ('Введите размерность массива от 2 до 100:'); readln(n);
 iotr:=0; k:=0;
 for i:=1 to n do begin
  write ('a[',i,']='); readln (a[i]);
  if a[i]<0 then iotr:=i;
  if a[i]<c then inc(k);
 end;
 writeln ('Количество элементов, меньших C=',k);
 if iotr=0 then writeln ('Нет отрицательных элементов, сумма не найдена')
 else begin
  s:=0;
  for i:=iotr+1 to n do s:=s+trunc(a[i]);
  writeln ('Сумма целых частей после последнего отрицательного=',s)
 end;
 write ('Нажмите ENTER для завершения');
 readln;
end.
Введите значение C:5
Введите размерность массива от 2 до 100:10
a[1]=3.5
a[2]=6
a[3]=-5
a[4]=1
a[5]=-2
a[6]=1.5
a[7]=2.5
a[8]=3
a[9]=4
a[10]=0
Количество элементов, меньших C=9
Сумма целых частей после последнего отрицательного=10
Нажмите ENTER для завершения


Вернуться к обсуждению:
Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 20.11.2013, 17:58
Готовые ответы и решения:

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

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

Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента
Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон (...

Найти сумму элемента массива, расположенных до последнего отрицательного
2.Найдите сумму элемента массива,расположенных до последнего отрицательного элемента

1
20.11.2013, 17:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 20.11.2013, 17:58
Помогаю со студенческими работами здесь

Найти сумму элементов массива, расположенных после последнего элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1. Количество...

Как найти сумму элементов массива, расположенных после последнего положительного элемента
Дано 12 вещественных чисел Как найти сумму элементов массива, расположенных после последнего...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
Люди добрые, помогите пожалуйста решить задачи на массивы! Помогите чем можете!!! 1) Сумму...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
Помогите решить! Сумму целых частей элементов массива, расположенных после последнего...

Вычислить сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
Составить текст программы на языке Паскаль, содержащий: 1) процедуру, выполняющую действия над...

Подсчитать сумму элементов массива, расположенных после последнего отрицательного элемента
1. В одномерном числовом массиве размерности n подсчитать сумму элементов, расположенных после...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru