Пятница, 29.03.2024, 08:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи Pascal (Сделайте пожалуйста решение задач (до 17.05.2010г) плиз)
задачи Pascal
xionrДата: Среда, 12.05.2010, 17:47 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Begin6°. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a•b•c и площадь поверхности S = 2•(a•b + b•c + a•c).

Integer6°. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления.

Boolean6°. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Справедливо двойное неравенство A < B < C».

If6°. Даны два числа. Вывести большее из них.

Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

For6. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, … , 2 кг конфет.

While6. Дано целое число N (> 0). Найти двойной факториал N:
N!! = N•(N–2)•(N–4)•…
(последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.

Proc6. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

Array6. Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.

Array70. Дан массив размера N (N — четное число). Поменять местами первую и вторую половины массива

Matrix6. Даны целые положительные числа M, N, число Q и набор из N чисел. Сформировать матрицу размера M  N, у которой первая строка совпадает с исходным набором чисел, а элементы каждой следующей строки равны соответствующему элементу предыдущей строки, умноженному на Q (в результате каждый столбец матрицы будет содержать элементы геометрической прогрессии).

Matrix52. Дана матрица размера M  N. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы.

String6. Дан символ C, изображающий цифру или букву (латинскую или русскую). Если C изображает цифру, то вывести строку «digit», если латинскую букву — вывести строку «lat», если русскую — вывести строку «rus».

String46. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого длинного слова.

(скажите пожалуйста из какого задачника эти задачи взяты))

 
ignorerДата: Среда, 12.05.2010, 22:42 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
до 17.05.2010 сделаю (если кто-то не опередит)
_____________________________
Тема перенесена в соответствующий раздел.
 
xionrДата: Суббота, 15.05.2010, 07:41 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
если уже есть какие нибудь готовые задачки выложите пожалуйста )))
 
ignorerДата: Суббота, 15.05.2010, 15:30 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
не, нету. я на выходные откладывал. сегодня и завтра решу все. как решу какую-нибудь сразу выложу.
 
xionrДата: Суббота, 15.05.2010, 19:24 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
ОК wink СПС
 
ignorerДата: Суббота, 15.05.2010, 19:32 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот например Begin6:
var a, b, c, s, v : integer;
begin
read(a, b, c);
s:=2*(a*b+b*c+c*a);
v:=a*b*c;
writeln('Площадь равна ', s);
write('Обьём равен ', v);
end.
 
ignorerДата: Суббота, 15.05.2010, 19:37 | Сообщение # 7
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
только щас прочитал последний вопрос вашего первого сообщения. эти задачи взяты с задачника, встроенного в PascalАВС. так что скорее всего в инете есть все эти программы. сейчас я поищу, если найду, то скину ссылку
 
ignorerДата: Суббота, 15.05.2010, 20:11 | Сообщение # 8
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
не нашёл. придётся всё вручную решать. вот название этого задачника - Programming Taskbook, если зочешь, поищи.
 
xionrДата: Суббота, 15.05.2010, 20:37 | Сообщение # 9
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
СПС большое))) выручили

Добавлено (15.05.2010, 20:37)
---------------------------------------------
а можно немного теории где нибудь взять , чтоб в будущем самому решать в паскале??)))

 
ignorerДата: Суббота, 15.05.2010, 21:09 | Сообщение # 10
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
впринципе можно, но это уже в другой части форума (Общение). просто эти задачки очень просты и если человек знает как писать ввод, вывод данных и объявленять переменные, то ему достаточно будет выучить несколько операторов и эти задачки можно будет решать самостоятельно.
 
ignorerДата: Воскресенье, 16.05.2010, 14:10 | Сообщение # 11
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Integer 6:
Code
var a, d, e : integer;
begin
  cls;
  read(a);
  d:=a div 10;
  e:=a mod 10;
  writeln('Десятков - ', d);
  write('Единиц - ', e);
end.
 
ignorerДата: Воскресенье, 16.05.2010, 14:13 | Сообщение # 12
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Boolean 6:
Code
var a, b, c : integer;
bool : boolean;
begin
cls;
read(a, b, c);
if (a<b)and(b<c) then bool:=true;
if bool then write('Верно')
else write('Не верно');
end.

ПРИМЕЧАНИЕ: при решении задачи используется переменная типа Boolean (короче говоря логическая переменная), судя по теме задачи такое решение должно быть, но есть ещё одно, более простое.
 
ignorerДата: Воскресенье, 16.05.2010, 14:16 | Сообщение # 13
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
If 6:
Code
var a, b : integer;
begin
  cls;
  read(a, b);
  if a>b then write(a) else write(b);
end.
 
ignorerДата: Воскресенье, 16.05.2010, 14:22 | Сообщение # 14
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Case 6:
Code
var a : integer;
b : real;
begin
cls;
write('Введите единицы измерения '); read(a);
write('Введите длину '); read(b);
case a of
1 : b:=b/10;
2 : b:=b*1000;
3 : b:=b;
4 : b:=b/1000;
5 : b:=b/100
else write('Не верные данные');
end;
if (a>0)and(a<6) then write(b);
end.
 
ignorerДата: Воскресенье, 16.05.2010, 14:48 | Сообщение # 15
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
For 6:
Code
var a : array[1..6] of real;
     i : integer;
begin
  cls;
  read(a[1]);
  for i:=2 to 6 do a[i]:=a[1]*(4+i)/5;
  for i:=1 to 6 do writeln((4+i)/5, ' - ', a[i]);
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи Pascal (Сделайте пожалуйста решение задач (до 17.05.2010г) плиз)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Copyright MyCorp © 2024