miss_graffiti
Долгожитель
|
      
Орать незачем.
внешняя ссылка удалена слабо в поиске набрать?
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 9 апр. 2006 20:48 | IP
|
|
ELNIN
Удален
|
всем здрасте.... не подскажете где можно скачать среду паскаль?????
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 11 апр. 2006 15:12 | IP
|
|
VF 
Administrator
|
Guest & ELNIN, не пробывали пользоваться поисковиками? За минуту нашел внешняя ссылка удалена
Установку и запуск не проверял.
|
Всего сообщений: 3110 | Присоединился: май 2002 | Отправлено: 11 апр. 2006 15:17 | IP
|
|
waqe
Удален
|
доброго время суток!
помогите! мне очень нужно решить:
1). Создайте программу, которая подсчитывает количество (только) положительных чисел среди трех введенных.
2). Создайте программу, которая выдает сообщение на экран Yes!, если среди трех введенных чисел есть положительные, и No! в противном случае
3). Напишите вариант программы суммирования трех чисел, используя только глобальные переменные и процедуру без параметров.
4). Пусть задан массив с четным количеством элементов. Создайте программу, в которой четные элементы массива меняются местами с нечетными, например,
1 2 3 4 5 6
на
2 1 4 3 6 5
5). Создайте программу, в которой обнуляются четные элементы массива. Исходный и измененный массивы вывести на экран.
6). Создайте программу, которая подсчитывает среди элементов массива количество троек элементов, сумма которых равна 0. Создайте программу, которая выводит на экран все такие тройки.
СПАСИБО!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 15 апр. 2006 17:14 | IP
|
|
KMA
Долгожитель
|
Интересно, ты думаешь что мы тебе вот так вот и напишем, давай говори, где у тебя вопросы??? Ответ можешь получить по любой задаче, у меня решены все... Буду рад помочь...
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 15 апр. 2006 23:16 | IP
|
|
Abror
Удален
|
Здрасте не поможете написать прогу?
Есть офис сотрудников указаны фамилию,имя,стаж, номер телефона и зароботная платаю
А) Вывести список сотрудников чей стаж не менее 20 лет работы
В) Вывести список сотрудников две первые цифры номера которых одинаковы
Часть А я сделал.
Часть В надо сделать с массивами и процедурой
Заранее огромное спасибо! Если можно мне на адрес abrorr@mail.ru
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 16 апр. 2006 16:14 | IP
|
|
Abror
Удален
|
program Kursovaya;
type group=record ▲
║surname:string[10]; ■
║name:string[10]; ▒
║year:integer; ▒
║money:integer; ▒
║number:string[7]; ▒
║end; ▒
║var F:file of group; ▒
║G:group; i,n:integer; s:string; ▒
║begin ▒
║ Assign(F,'C:\TP7\kursovaya.pas'); ▒
║write('Vvedite chislo sotrudnikov'); readln(n); rewrite(F); ▒
║ For i:=1 to n do begin with G do ▒
║begin ▒
║ readln(surname); ▒
║ readln(name); ▒
║ readln(year); ▒
║ readln(money); ▒
║ readln(number); ▒
║ end; ▒
║write(F,G);
end; ▒
║reset(F); ▒
║WHILE NOT EOF (F) do begin ▒
║read (F,G); ▒
║IF(G.year>=20) then begin ▒
║writeln('Staj raboti ne menee 20 let'); writeln(G.surname); ▒
║writeln(G.name);
end.
Это первая чпсть проги которую я смог сделать
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 16 апр. 2006 16:24 | IP
|
|
miss_graffiti
Долгожитель
|
сделай не
number:string[7];
а
number: array [1..7] of byte;
а потом двойным циклом пробегаешься по всем сотрудникам и сравниваешь первые ячейки.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 16 апр. 2006 17:18 | IP
|
|
Abror
Удален
|
А если мне надо задать 7 значное число??
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 16 апр. 2006 18:59 | IP
|
|
miss_graffiti
Долгожитель
|
вот у тебя и будет массив из 7 элементов, каждый из которых - цифра номера.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 16 апр. 2006 19:39 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
