Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC подпрограмма Составить функцию нахождения площади треугольника, по двум сторонам и углу между ними. С помощью данной функции вычислить площадь для N треугольников. вроде работает,но сказали что с синусом что то не правильно uses crt; var b,c,sinbc,s:real; i,N:integer; function plosh(s:real):real; begin https://www.cyberforum.ru/ pascalabc/ thread401386.html	строки Pascal ABC Посчитать в строке количество слов. что то не получается uses crt; var s: string; i, j , k : byte; begin
Pascal ABC Строки верхней половины массива поменять местами со строками нижней половины Дан двухмерный массив из четного числа строк. Строки верхней половины массива поменять местами со строками нижней половины https://www.cyberforum.ru/ pascalabc/ thread401344.html	Pascal ABC Множество: Напечатать в алфавитном порядке, все гласные буквы которые входят в каждое слово https://www.cyberforum.ru/ pascalabc/ thread401283.html Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово. Программу надо написать в Pascal ABC. Опишите как можно подробнее))) Заранее спасибо)))
Pascal ABC Функции чтобы мне решить задачу нужно использовать функцию.. кто может объяснить или ссылку на сайт дать как она работает и обозначение?.. много искал в интернете и в справке читал в самом p.a. но толком ничего не понял..( Спасибо.	Pascal ABC Файлы. Описать запись с данными 2. Описать запись с данными по таблице из задания 2. Все программы составлять для N записей. Выполнить задание своего варианта. Результат вывести в текстовый файл в виде таблицы. https://www.cyberforum.ru/ pascalabc/ thread401272.html
Pascal ABC задача на файлы В файле вещественного типа расставить элементы в порядке возрастания их абсолютных значений. https://www.cyberforum.ru/ pascalabc/ thread401250.html	Pascal ABC Составить программу подсчёта количества цифр в заданной строке и печати их ЗАдание: Составить программу подсчёта количества цифр в заданной строке и печати их. Помогите,плиз
Pascal ABC оценка рекурсивного алгоритма (с примером) https://www.cyberforum.ru/ pascalabc/ thread401245.html на паре задали найти временную оценку какого - гибудь рекурсивного алгоритма. Не зная что делать. В голове ни одной идеи. ПОМОГИТЕ!!!!	Pascal ABC Напечатать индексы отрицательных элементов массива Тема:одномерные массивы. Условие: Есть ли среди положительных элементов массива элементы,равные своему индексу,в протином случае выдать сообщение,что таковых нет. Тема: Двумерные массивы. Условие: Дан действительный массив А Напечатать индексы его отрицательных элементов. Помогите. А то завал. Ещё куча кучная) https://www.cyberforum.ru/ pascalabc/ thread401242.html
Таблица умножения Pascal ABC 1)Составить таблицу умнажения с помощью паскаль for. 2) Составить программу для вычесления выражения y=6*x в квадрате в промежутке от a до b. Где a и b вводятся с клавиатуры. 3)Составить программу которая вычесляет сумму чисел от 1 до n. Значение n вводится с клавиатуры.	Pascal ABC Как вычисляется среднее арифметическое для каждого столбца матрицы https://www.cyberforum.ru/ pascalabc/ thread401199.html дана двумерная вещественная матрица.

issus

1 / 1 / 2

Регистрация: 07.12.2011

Сообщений: 46

записи - Pascal ABC - Ответ 2258142

08.12.2011, 12:12. Показов 1249. Ответов 0

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Составить программу, которая вычисляет зарплату сотрудников с учетом оклада и стажа работы: 50% от величины оклада – тем, кто проработал больше 20 лет, 30% - 10 лет и более, 10% - 5 лет и более соответственно. Вывести сведения о всех сотрудниках и зарплату каждого.

Добавлено через 16 часов 34 минуты
все сам сделал)
вот

Pascal

uses crt;
type
sotr=record
fio:string;
data:string;
stag:integer;
oklad:integer;
zarplata:real;
end;
var
base:array [1..50] of sotr;
i,n:integer;
begin
clrscr;
writeln('введите кол-во сотрудников-->');
read(n);
writeln('заполнение базы');
for i:=1 to n do
with base [i] do
begin
writeln('введите: фамилию,дату,стаж и оклад');
read(fio,data,stag,oklad);
end;
writeln('ввод закончен');
writeln;
for i:=1 to n do
with base[i] do
begin
case  stag of
0..4:zarplata:=oklad;
5..9:zarplata:=oklad+oklad*10/100;
10..19:zarplata:=oklad+oklad*30/100;
20..50:zarplata:=oklad+oklad*50/100;
end;end;
for i:=1 to n do
with base[i] do
begin
writeln('фамилия = ',fio);
writeln('data = ',data);
writeln('stag = ',stag);
writeln('zarplata = ',zarplata);
end;
end.

Вернуться к обсуждению:
записи Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.12.2011, 12:12

Готовые ответы и решения:

Записи
Создать файл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись...

Записи
Создать тип с описанием товара: код, наименование, цена за единицу товара, количество и сумма....

Записи
Дан фрагмент программы: Type aaa = record a, b: integer; c: char; end; Var z: aaa; Begin With...

записи
описать тип записи для представления комплексного числа в алгебраической форме (z=x+i*y).Написать...

	08.12.2011, 12:12

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.12.2011, 12:12

Помогаю со студенческими работами здесь

Записи
Дано описание: type circle = record radius: real; centre: record x, y: real end end; var C:...

Задача на записи
Доброго вам времени суток, требуется помощь в решении задачи на записи. Постановка задачи: Дан...

Задача на записи
Помогите решить пожалуйста: Составить программу, выводящую на экран меню ресторана "Дракон"...

Задача на записи.
Ребята, помогите, 1 задачу осталось до зачета получить :) Рассортировать корреспонденцию,...

Наверх