|
Решения задач на Паскале!Срочно нужно!
|
|
Добрый день!Напишите пожалуйста программу на паскале(или делфи в consol application) с процедурой:
1.Даны два трёхзначных числа найти сумму цифр каждого из них.
2.Даны длины рёбер двух кубов.Найти объём и площадь поверхности каждого куба. Использовать процедуру,вычисляющую по длине а ребра куба его объём v=a3 и площадь поверхности s=6a2.
3.Даны 2 строки символов.В 1-й подсчитать кол-во букв 'a' и кол-во букв 'e',во 2-й строке количество букв 'e' и кол-во букв 'i'.
4.Даны 2 целочисленных массива а0,a1,...an b1,b2,...bm.В первом из них найти количество элементов = 0,а во втором равных 7.
Заранее большое спасибо!)
|
|
|
|
Цитата (Nesti333) 1.Даны два трёхзначных числа найти сумму цифр каждого из них
a,b,c:integer;
begin
read(a,b,c);
writeln(a+b,' ',b+c,' ',a+c);
end.Цитата (Nesti333) 2.Даны длины рёбер двух кубов.Найти объём и площадь поверхности каждого куба. Использовать процедуру,вычисляющую по длине а ребра куба его объём v=a3 и площадь поверхности s=6a2.
begin
ToCube:=x*x*x;
end;
procedure Area(x:integer)
begin
Area:=6*x*x;
end;
var
a:integer;
begin
read(a);
writeln(ToCube(a));
writeln(Area(a));
read(a);
writeln(ToCube(a));
writeln(Area(a));
end.
Цитата (Nesti333) 3.Даны 2 строки символов.В 1-й подсчитать кол-во букв 'a' и кол-во букв 'e',во 2-й строке количество букв 'e' и кол-во букв 'i'.
a,b:string;
i,count1,count2:integer;
begin
readln(a);
readln(b);
for i:=1 to a.length do
if (a[i]='a') or (a[i]'e') then count1:=count1+1;
for i:=1 to b.length do
if (a[i]='e') or (a[i]'i') then count2:=count2+1;
writeln(count1,' ',count2);
end.Цитата (Nesti333) 4.Даны 2 целочисленных массива а0,a1,...an b1,b2,...bm.В первом из них найти количество элементов = 0,а во втором равных 7.
n=10;
var
a,b:array[1..n]of integer;
i,count1,count2:integer;
begin
for i:=1 to n do begin
read(a[i]);
if a[i]=0 then count1:=count1+1;end;
for i:=1 to n do begin
read(b[i]);
if b[i]=0 then count2:=count2+1;end;
writeln(count1,' ',count2);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите, пожалуйста! очень нужно и очень срочно!
три задачи, две на множества: 11) Склавиатуры в режиме диалога вводится водится фраза, содержащая одну запятую. Образовать
множество из гласных букв, которые одновременно входят в эту фразу до и после
запятой
2) Натрех стадионах открыты секции по отдельным видам спорта из следующего набора: Ski, Skate, Hockey, Biatlon, Bobsley. Постоить и вывести на печать
множества, которые содержат:
а) виды спорта, секции по которым имеются хотя бы на одном стадионе
б) виды спорта, секции по которым имеются на всех стадионах
· На записи:
· 3) опишите под именем Figure вариантную запись. Если переменнаятипа Figure
представляет собой круг, то она должна содержать величину угла и длины двух
сторон, аналогично составьте вариант записи для треугольника. Напишите функцию,
которая получает на входе массива Figure и вычисляет максимальную площадь фигуры
№ 683 | Автор: Zhuravlenok |
2013-03-06, 20:09 | Изменено: Zhuravlenok - Ср, 2013-03-06, 20:10
|
Репутация: [ + 0 ]
|
|
|
№ 683 | Автор: Zhuravlenok |
2013-03-06, 20:09 | Изменено: Zhuravlenok - Ср, 2013-03-06, 20:10
|
Репутация: [ + 0 ]
|
|
|
|
второго задания не понял..
расшифруй, а?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Здраствуйте! Помогите пожалуста решить задачку в паскале:
А. Створити файл, що містить відомості про місячну зарплату робітників заводу. Кожний запис містить поля-прізвище працівника, найменування цеху, розмір зарплати за місяць. Кількість записів-довільна.
Б. Обчіслити загальну суму виплат за місяць по цехові Х, а також середньомісячний заробіток робітника цього цеху. Вивести відомість для нарахування заробітної плати робітником цього цеху.Добавлено (22.03.13, 22:32)
---------------------------------------------
Здраствуйте! Помогите пожалуста решить задачку в паскале:
А. Створити файл, що містить відомості про місячну зарплату робітників заводу. Кожний запис містить поля-прізвище працівника, найменування цеху, розмір зарплати за місяць. Кількість записів-довільна.
Б. Обчіслити загальну суму виплат за місяць по цехові Х, а також середньомісячний заробіток робітника цього цеху. Вивести відомість для нарахування заробітної плати робітником цього цеху.
|
|
|
|
Помогите решить пожалуйста задачи.
1 Задача)Написать программу, которая читает с клавиатуры произвольнуюстроку символов, преобразует ее и выводит результат на дисплей в виде строки.- Длина строки заранее не вводится, а определяется послеокончания ввода с клавиатуры.
- В строке группы символов разделяются одним или несколькими пробелами. Пробелы
могут находиться в начале и в конце строки. Группа символов -последовательность букв, цифр или знаков, отделенная пробелами от других групп
или находящаяся в начале/конце строки.- Все буквысчитать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать.- В заголовок окна программы записать свои данные: имя,фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1
swty +12_3‘ Напечатать Группы символов, состоящие только из цифр, еслицифры расположены по убыванию.2 Задача)
- Ввести произвольную размерность квадратной матрицы винтервале 1..10.- Предложить ввод данных (чисел целого типа) двумяспособами: 1. Черездатчик случайных чисел на интервале -100..100. - Склавиатуры в виде «Х[i],[j]=», где i и j – числа, соответствующие номеру строки и столбца.- После окончания ввода данных вывести на экранматрицу в отформатированном виде по строкам и столбцам. Например: 2 5 -12 11 18 3 23 -31 72- Обработать данные согласно заданию в варианте ивывести результат.- Если результатами вычислений являются вещественныечисла, то выводить их с точностью до 2-х знаков после точки.
2)Найти среднее арифметическое из всех отрицательных элементов этой матрицы, если онибольше -10.
3 Задача)- Ввести произвольную размерность одномерного массивав интервале 1..10.- Ввести данные (тип данных указан в вариантах) склавиатуры в виде «Х[i]=», где i – индекс элемента.- После окончания ввода для контроля данных вывести наэкран массив. - Обработать данные в подпрограмме (тип подпрограммы испособ обработки указан в вариантах) и вывести результат.- Ввод данных и вывод результатов на экран должныпроизводиться в головной программе, все вычисления – в подпрограммах. Оформить подпрограммы в отдельном модуле.Подключить модуль к головной программе.- Все символьные элементы считать вводимыми только внижнем регистре.- Если результатами вычислений являются вещественныечисла, то выводить их с точностью до 1-го знака после точки.
3) Массив символов. В процедуре отсортировать массивпо алфавиту в обратном порядке.
|
|
|
|
Здраствуйте, помогите пожалуйста с решением шифрования и дешифрования: Методом Цезаря с лозунгом. Использовать русский алфавит, сдвиг на 3 знака, работа с файлами (лозунг и текст брать из файла).
Например:
лозунг: пришел,_увидел,_победил ( "_" - пробел)
текст: ручка
алфавит: абвгдежзийклмнопрстуфхцчшщъыьэюя
алф. лозунга: пришёл,_увдеобагжзйкмнстфхцчщъыьэюя .
шифр: ёеысз
Алфавит лозунга должен получиться из лозунга+алфавит, без повторяющихся букв. Потом берем первую букву текста "Р" и ищем в алф. лозунга соответствующую ей по счету букву (сдвиг +3), получается "ё" и т.д., так и получается шифр.
---------------------------------------------
У меня есть готовый код Шифра Цезаря но я не могу переделать в шифр Цезаря с лозунгом, вот код:
Код unit Unit1;
{$mode objfpc}{$H+}interfaceuses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ComCtrls;
type { TForm1 } TForm1 = class(TForm) Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
OpenDialog1: TOpenDialog;
ProgressBar1: TProgressBar;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject); private
{ private declarations } public
{ public declarations } end; var Form1: TForm1;
{ TForm1 }procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute
then
form1.Edit1.Caption:=form1.OpenDialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.SaveDialog1.Execute
then
form1.Edit2.Caption:=form1.SaveDialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
var f1,f2: file of byte;a,b,c:byte;
fs,fp:int64;
begin
assignFile(f1,form1.Edit1.Text);
reset(f1);
assignfile(f2,form1.Edit2.Text);
rewrite(f2);
fs:=filesize(f1);
while not eof(f1) do
begin fp:=filepos(f1);
read(f1,a);
b:=a+3; write(f2,b);
c:=round(fp/fs*100); form1.ProgressBar1.Position:=c;
end;closefile(f2);
closefile(f1);
end;
procedure TForm1.Button4Click(Sender: TObject);
var f1,f2: file of byte;a,b,c:byte;
fs,fp:int64;
begin
assignFile(f2,form1.Edit1.Text);
reset(f2);
assignfile(f1,form1.Edit2.Text);
rewrite(f1);
fs:=filesize(f2);
while not eof(f2) do
begin
fp:=filepos(f2); read(f2,a);
b:=a-3;
write(f1,b);
c:=round(fp/fs*100); form1.ProgressBar1.Position:=c;
end;
closefile(f2);
closefile(f1);
end;
Нужно сделать точно также как в этой программе только с шифром Цезаря с лозунгом, сделать так же с файлами.
№ 687 | Автор: Jenya |
2013-03-27, 07:05 | Изменено: Jenya - Ср, 2013-03-27, 07:23
|
Репутация: [ + 0 ]
|
|
|
|
Помогите решить задачи по прикладному программированию)))
1)напечатать все значения переменной Х для которых 1<X<2
и прилагается таблица
Х -0.1; 0.05; 0.7; 0.8; -1.5; 0.2; 0.4; -1; 0.1; 1.5;
у 0.1; 0.3; -0.9; 0.2; -0.4; 0.01; 1; 0.25 -0.1 -0.3;
Помогите пожайлуста))
|
|
|
|
что-то задание непонятное какое-то..)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
1. Сформулировать и вывести на печать массив A(25), элементы которогопринадлежат интервалу [-50;20]. Подсчитать среднее арифметическое положительных
элементовю В массиве A поменять местами наибольший и наименьший элементы.
2. Пусть дана вещественная матрица размером n x m, в которой не все элементыравны нулю. Получить новую матрицу путем деления всех элементов данной матрицы
на ее наибольший по модулю элемент.
|
|
|
|
Найти наименьший по модулю элемент массива для которых 1<X<2
и прилагается таблица
Х -0.1; 0.05; 0.7; 0.8; -1.5; 0.2; 0.4; -1; 0.1; 1.5;
у 0.1; 0.3; -0.9; 0.2; -0.4; 0.01; 1; 0.25 -0.1 -0.3;
помогите плиииз))
|
|
|
|
помогите!!!!
Задача №1. Имеется садовый участок, имеющийформу прямоугольника со сторонами А метров и В
метров. Составьте алгоритм и программу, которая
определит сколько досок надо купить, чтобы
поставить сплошной забор. Ширина одной доски 10
см.Задача №2. В магазине продается костюмнаяткань. Ее цена В руб. за квадратный метр.
Составьте алгоритм и программу, которая
подсчитает и выведет на экран стоимость куска
этой ткани длиной Х метров и шириной 80 см.Задача №3. Хозяин хочет оклеить обоямидлинную стену в своем доме. Длина этой стены
равна А метров, а высота - В метров. Рулон обоев
имеет длину 12 метров и ширину K см. Составьте
алгоритм и программу, которая определит
стоимость обоев для всей стены, если цена одного
рулона К руб.
|
|
|
|
Помогите пожалуйста!!!
упорядочить числа больше 50 в порядке возрастания
Vik
|
|
|
|
какие входные данные?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Пожалуйста помогите!!!
С генерируйте массив от 0 до 100, вывести на экран:
1) Упорядочить элементы стоящие на местах делящихся на 3в порядке возрастания;
2) Упорядочить элементы больше 50 в порядке убывания;
3) Упорядочить элементы нечётные в порядке убывания;
4) Упорядочить массив в порядке возрастания, если сведения арифметически больше 50, в противном случае в порядке убывания;
5) Упорядочить элементы стоящие на чётных местах в порядке возрастания, а не на нечётных в порядке убывания.
Vik
|
|
|
|
рандомом забивать, что-ли?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
А пункты это разные программы или всё в одной должно быть?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Пиши В контакт
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
