Задачи по PASCALю. Срочно нужна помощь. - Форум
Пятница, 09.12.2016, 10:41
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи по PASCALю. Срочно нужна помощь.
Задачи по PASCALю. Срочно нужна помощь.
АнтонДата: Воскресенье, 19.06.2011, 12:52 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Задачи по PASCALю. помогите пожалуйста кто чем может.
1. написать программу, которая подсчитывает радиус окружности, описанной около равностороннего треугольника со стороной а;
2. вывести на экран все трехзначные числа, которые начинаются и заканчиваются на одну и ту же цифру;
3. вывести на экран числа в виде следующей таблицы: 3
0
2 3
9 0
2 2 3
8 9 0
2 2 2 3
7 8 9 0
2 2 2 2 3
6 7 8 9 0

4. дана последовательность целых чисел. Вывести на экран элементы с четными индексами (для двумерного массива- первый индекс должен быть нечетным);
5. дана последовательность из n действительных чисел. Найти количество пар соседних элементов, в которых предыдущий элемент кратен последующему;
6. дан массив размером nxn, элементы которого целые числа. Для каждой строчки найти номер первой пары неравных элементов. Данные записать в новый массив;
7. вывести на экран все числа из отрезка [a;b], которые являются взаимнопростыми числами.
 
DoZoRДата: Среда, 22.06.2011, 00:03 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
1) Геометрию надо знать, дорогой мой.
Quote
readln(a);
R = a*sqrt(3)/3; // R - радиус

2) Создадим цикл для всех трехзначных чисел и будем проверять их.
Quote
begin
for i:=100 to 999 do
if (i mod 10 = i div 100) then write(i, ' ') // здесь можно использовать просто writeln(i), но у меня в консоли не хватило места для всех чисел
readln;
end.


Остальные завтра допишу, щас глаза закрываются

4) Вывод(предполагается что у нас уже есть заполненный массив с именем "a"):
Quote
for i:=0 to 10 do
if (i mod 2 = 0) then
writeln(a[i]);


Сообщение отредактировал DoZoR - Среда, 22.06.2011, 19:51
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи по PASCALю. Срочно нужна помощь.
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016