Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Free Pascal Цикл с постусловием и предусловием https://www.cyberforum.ru/ free-pascal/ thread1327679.html
написать программу которая вычисляет произведение первых n членов ряда 1,1/2...... решить задачу используя цикл с предусловием и постусловием. помогите, кто знает. 		Вычислить сумму первых n членов ряда (предусловие и постусловие) Free Pascal
написать программу, которая вычисляет произведение первых n членов ряда 1, 1/2, 1/3,1/4....... количество членов ряда задается во время работы программы (используя цикл с параметром) 1)решить задачу используя цикл с постусловием. 2)решить задачу используя цикл с предусловием.
Free Pascal Определить, сколько есть подстрок четной длины у строки S, которые являются палиндромами https://www.cyberforum.ru/ free-pascal/ thread1327537.html
Подстрокой строки называется любая непустая последовательность символов в строке. Палиндромом называется строка, которая читается одинаково слева и справа. У Азизхана есть строка S. Его интересует сколько есть подстрок четной длины у строки S, которые являются палиндромами. Одинаковые подстроки начинающие с разных позиций считаются разными. Формат входных данных Единственная строка входного... 		Free Pascal Цикл while, вычисление сумм и последовательностей https://www.cyberforum.ru/ free-pascal/ thread1327387.html
вот код программы var k,x,max:longint; begin readln(x); max:=x; k:=0; while x <> 0 do begin readln(x); if (x <> 0) and (x > max)
Опишите массив записей, содержащих фамилию абонента и номер его телефона Free Pascal
Здравствуйте , а мне вот нужно на паскале написать такую программу : Опишите массив записей, содержащих фамилию абонента и номер его телефона. Запрограммируйте двоичный поиск в телефонном справочнике 		Free Pascal Найти длину отрезка в метрах https://www.cyberforum.ru/ free-pascal/ thread1327041.html
Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах пожалуйста побыстрей на завтра надо
Free Pascal Проверить, образует ли данный набор возрастающую последовательность Series21± Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести TRUE, если нет — вывести FALSE пожалуйста побыстрей на завтра надо https://www.cyberforum.ru/ free-pascal/ thread1327040.html Найти номер последнего экстремального (то есть минимального или максимального) элемента из данного набора Free Pascal
Minmax11. Дано целое число N и набор из N целых чисел. Найти номер последнего экстремального (то есть минимального или максимального) элемента из данного набора. Только не использую массивы пожалуйста побыстрей на завтра надо
Free Pascal Найти номер первого экстремального (то есть минимального или максимального) элемента из данного набора Minmax10. Дано целое число N и набор из N целых чисел. Найти номер первого экстремального (то есть минимального или максимального) элемента из данного набора. пожалуйста побыстрей на завтра надо https://www.cyberforum.ru/ free-pascal/ thread1327038.html Free Pascal Оформление процедуры Последовательность {xn} определяется рекуррентной формулой: x0=4, xn=3+½cos2(xn-1-3), n=1,2,3,... Вывести такое xn и соответствующее n, для которого |xn-xn-1|<є (є дано). Вычисление xn и n оформить как процедуру. Все необходимые данные для процедуры должны передаваться ей в качестве параметров. Глобальных перемен не использовать, оформить как процедуру. https://www.cyberforum.ru/ free-pascal/ thread1326964.html
Определить, сколько есть подстрок четной длины у строки S, которые являются палиндромами Free Pascal
Объясните пожалуйста как решается на PASCAL ? У Евгения есть строка S. Он хочет узнать сколько есть подстрок четной длины у строки S, которые являются палиндромами. Одинаковые подстроки начинающиеся с разных позиций считаются разными. Вход-выход abbaabaa-4 комментарии -ab->aa<-baa 		Free Pascal Все числа в строке https://www.cyberforum.ru/ free-pascal/ thread1326529.html
дана строка S. Подсчитать кол-во чисел в ней. Каждое число положительное и не превышает 1000. Первая строка содержит строку из цифр и строчных букв англ. алфавита. Длина строки 1<=S<=1000. Пример: Ввод:1dsdf342fsdf Вывод: 2
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
12.12.2014, 16:29 0

Вывести таблицу квадратов первых пяти целых положительных нечетных чисел - Free Pascal - Ответ 6977517

12.12.2014, 16:29. Показов 1679. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Vovka1609 как решение

Решение

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

uses crt;
var i:integer;
begin
clrscr;
writeln('Цикл с параметром');
for i:=1 to 5 do
writeln(2*i-1,'^=',sqr(2*i-1));
writeln('Цикл с предусловием');
i:=1;
while i<=5 do
 begin
  writeln(2*i-1,'^=',sqr(2*i-1));
  i:=i+1
 end;
writeln('Цикл с постусловием');
i:=1;
repeat
writeln(2*i-1,'^=',sqr(2*i-1));
i:=i+1
until i>5;
readln
end.


Вернуться к обсуждению:
Вывести таблицу квадратов первых пяти целых положительных нечетных чисел Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 12.12.2014, 16:29
Готовые ответы и решения:

Вывести таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры
Задание 2. написать программу которая выводит таблицу квадратов первых пяти целых положительных...

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

Вывести таблицу квадратов первых 10 целых положительных чисел
Вот такая задачка: Вывести таблицу квадратов первых 10 целых положительных чисел(цикл For).

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

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

вывести таблицу квадратов первых 10 положительных чисел
вывести таблицу квадратов первых 10 положительных чисел

Вывести на экран таблицу квадратов первых десяти положительных чисел
program prog; var i:integer; begin for i:=1 to 10 do Writeln('i*i'); end. так правильно??

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

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

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