Вивести в стовпчиним всі чотиризначні числа сума цифр якого дорівнює чисалу яке введене з клаві!

Var a, b: real;
begin
read(a);
while a <=9999 do begin
read(b);
if (b div 1000 <> 0) and (b div 1000 + b div 100 mod 100 + b div 10 mod 10 + b mod 10 = a) then begin
writeln(b);
end;
end.

Romanf romanf отличник 2013-01-10t16: 13: 22+00: 00 1. подумать над алгоритмом 2. вот сам алгоритм: а. спросить у пользователя значения б. расчитать ответ в. выдать ответ на экран 3. написать код в паскале 4. исправить ошибки компиляции 5. протестировать, вводить разные числа 6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда 7. вставить код проверки введенных пользователем значений 8. убрать ошибки компиляции 9. протестировать 10. готово а вот и сама программа: program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end; correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end; end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.

  основні поняття растрової графіки

будь-яке графічне зображення як єдиний графічний об’єкт має певні властивості. розглянемо деякі з них: фізичний розмір, роздільна здатність зображення, глибина кольору, кольорова модель.

важливою властивістю графічного зображення є його фізичний розмір, який визначає розміри малюнка по вертикалі й горизонталі.

значення цієї властивості малюнка задається під час його створення і може бути вказана в одиницях довжини (сантиметрах, дюймах) або точках (пікселях). під час створення зображення для демонстрації на екрані його розміри доцільно задати в пікселях, щоб знати, яку частину екрана воно займає. якщо зображення готують для друку, то його розміри у сантиметрах або дюймах, щоб визначити, яку частину аркуша воно займає.

другою властивістю зображення є його роздільна здатність, яка вимірюється в кількості пікселів на дюйм (dрі). так, для екранного зображення достатньо, щоб воно мало роздільну здатність 72 dрі, а для друку на кольоровому принтері — не менше ніж 300 dрі. значення цього параметра задається під час створення зображення і може бути змінено за умови редагування, що автоматично призведе до зміни розміру файла зображення.

для кодування кольору пікселя зображення може бути відведена різна кількість бітів. залежно від цього може бути відтворена різна кількість кольорів. чим більша довжина двійкового коду кольору пікселя, тим більше кольорів можна використати в малюнку.

число бітів, що використовуються для кодування кольору пікселя, називається глибиною кольору. від глибини кольору залежить розмір файла, в якому подається зображення. у таблиці наведено значення деяких параметрів зображення при різній глибині кольору.

джерела растрових зображень

растрові зображення  можна отримати, скануючи малюнки, фотографії і фотоплівки за сканера, фотографуючи об’єкти цифровим фотоапаратом або цифровою відеокамерою, малюючи рисунки на графічному планшеті. їх також можна створювати за спеціальних програм опрацювання графічних даних — графічних редакторів.

використовується растрова графіка в поліграфічних і електронних виданнях, в інтернеті в тих випадках, коли потрібно якісно передати повну гаму відтінків кольорів зображення.